Universielle Sicherheitsabfrage

Codes Sonstiges 26. August 2026 Zugriffe: 17

Für 32Bit und 64Bit Office Versionen

Problemstellung:

Manchmal kann es sehr aufwändig sein immer wieder die gleiche
Messagebox zu programmieren um Sicherheitsabfrage einzubauen.

"Wollen Sie den Datensatz löschen?"
"Soll das Formular geschlossen werden?"
usw.

If MsgBox("Wollen Sie den Datensatz löschen?", _
 vbQuestion Or vbQuestion, "Löschen") = vbYes Then
     'Datensatz löschen
 End If

Besser wäre doch eine universielle Funktion.
z.B. so:

Function Security_Query(sMsg As String, _
     sTitle As String) As Boolean
     Dim iResult As Integer
     iResult = MsgBox(sMsg, _
         vbYesNo + vbQuestion, sTitle)
 
    Security_Query = (iResult = vbYes)
End Function

Dann wäre der Aufruf kürzer:

If Security_Query("Datensatz löschen ?", _
 "Löschen:") = True Then
     'Datensatz löschen ...
 End If

Der Funktion wird nur der MsgBox- Text und -Titel übergeben.

Home

Universielle Sicherheitsabfrage

Wir verwenden Cookies