Access Programm beenden - vorher nachfragen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,
ich frage mal in die Runde: Warum fragt Access beim Klicken dieser Prozedur nicht nach, sondern schließt ohne Nachfrage. VAR_Sicherheitsabfragen ist als boolean definiert. Was habe ich vergessen?

Public Sub schließen_Click()

If VAR_Sicherheitsabfragen Then
If MsgBox_Sicherheitsabfrage(„Programm beenden?“, „Soll das Programm beendet werden?“) = 6 Then '6=Yes
DoCmd.Quit acQuitSaveAll
End If
Else
DoCmd.Quit acQuitSaveAll
End If

Me!frm_start.SetFocus
Me!frm_start!FocusDummy.SetFocus
End Sub

#2

Hallo,

Was habe ich vergessen?

eine ELSE Anweisung

Ich übersetzte mal deinen Code…

Public Sub schließen_Click()

If VAR_Sicherheitsabfragen Then

wenn Sicherheitsabfragen gewünscht sind…

If MsgBox_Sicherheitsabfrage(„Programm beenden?“, „Soll das
Programm beendet werden?“) = 6 Then '6=Yes

frage ob das Programm beendet werden soll, und wenn JA gewählt ist …

DoCmd.Quit acQuitSaveAll

beende das Programm

und was soll passieren, wenn die Antwort NICHT ja ist? Es fehlt hier:
* ELSE
* dann öffne ein Formular etc.

End If

Ende der Abfrage

Else

andernfalls, wenn KEINE Sicherheitsabfragen gewünscht sind …

DoCmd.Quit acQuitSaveAll

beende das Programm

End If

Ende der Abfrage

Me!frm_start.SetFocus

keine Ahnung was das soll, wenn das Programm beendet wird!?

Me!frm_start!FocusDummy.SetFocus

keine Ahnung was das soll, wenn das Programm beendet wird!?

könnte es sein, dass du diese Zeilen oben in der fehlenden ELSE Anweisung unterbringen wolltest?

End Sub

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#3

Hallo Wolfgang,
vielen Dank für die Übersetzung (ist manchmal für Anfänger doch recht hilfreich).
Ich habe es jetzt so gelöst:

Public Sub schließen_Click()
Dim strTitel As String
Dim strFrage As String

strTitel = „Programm beenden“
strFrage = „Soll das Programm beendet werden?“

If VAR_Sicherheitsabfragen = False Then
If MsgBox(strFrage, vbYesNo, strTitel) = vbYes Then
DoCmd.Quit acQuitSaveAll
Else
Me!Anträge_eingeben.SetFocus
End If
End If

End Sub

Es funktioniert so.
Grüße und danke
der Rote Adler