Avatar billede fruwille Nybegynder
30. marts 2003 - 12:44 Der er 9 kommentarer og
2 løsninger

Spørg om ja/nej inden post slettes

Nedenstående sletter en post i en database, jeg vil meget gerne have, at brugeren bliver spurgt en ekstra gang om: Er du sikker du vil slette ja/nej? Hvordan sætter jeg en msgbox ind der spørger om dette?

Private Sub Kommandoknap31_Click()
On Error GoTo Err_Kommandoknap31_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Kommandoknap31_Click:
    Exit Sub

Err_Kommandoknap31_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap31_Click
   
End Sub
Avatar billede bufferzone Praktikant
30. marts 2003 - 12:54 #1
Hvorfor ikke gøre det på en helt anden måde.

Du opretter et felt der f.eks. hedder aktiv og sætter det til ja/nej. Når brugeren "sletter" en påst sættes aktiv til nej. du viser så kun de poster der har aktiv til ja, på denne måde kan brugerne slette lystigt men posterne forsvinder ikke helt. Du kan så lave en administrator side, hvor du selv kan ændre aktiv fra nej til ja
Avatar billede fruwille Nybegynder
30. marts 2003 - 12:56 #2
>bufferzone

Dit forslag var en mulighed, men det er ikke det jeg ønsker at gøre i denne opgave.
Avatar billede mugs Novice
30. marts 2003 - 12:56 #3
Private Sub Kommandoknap31_Click()
Dim Svar as String
On Error GoTo Err_Kommandoknap31_Click
Svar = MsgBox(Prompt:="Er du sikker?"",Title:="Slet post", Buttons:=vbYesNo)
If Svar = 7 Then
Exit Sub
End If
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Kommandoknap31_Click:
Exit Sub
Err_Kommandoknap31_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap31_Click
End Sub
Avatar billede terry Ekspert
30. marts 2003 - 13:00 #4
Private Sub Kommandoknap31_Click()
Dim Svar as String
On Error GoTo Err_Kommandoknap31_Click

if msgbox ("Er du sikker?",vbYesNo) = vbNo Then Exit Sub

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Kommandoknap31_Click:
Exit Sub
Err_Kommandoknap31_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap31_Click
End Sub
Avatar billede mugs Novice
30. marts 2003 - 13:04 #5
terry > I have learned something new today:
If without End If
Avatar billede fruwille Nybegynder
30. marts 2003 - 13:12 #6
>mugs kom først derfor 20 point
>terrys var mest enkel derfor 80 point
Tak for hjælpen og håber point er OK?
Avatar billede terry Ekspert
30. marts 2003 - 13:23 #7
Selv tak.
If, mugs is happy with 20 points then I am too!
Avatar billede mugs Novice
30. marts 2003 - 13:25 #8
Everybody's happy :o)
Avatar billede terry Ekspert
30. marts 2003 - 13:34 #9
Here's another example of a single line If Then

If if msgbox ("Er du sikker?",vbYesNo) = vbNo Then a=1 : b=2 : c=3
Avatar billede terry Ekspert
30. marts 2003 - 13:34 #10
lets try that again :o)

if msgbox ("Er du sikker?",vbYesNo) = vbNo Then a=1 : b=2 : c=3
Avatar billede mugs Novice
30. marts 2003 - 13:36 #11
Ok terry, and Thank You, I will make some exsamples to learn this feature.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester