1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

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.

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png8.png2.png1.png2.png
Heute76
Gestern128
Diese Woche204
Dieser Monat1866
Total1198212

  • IP: 54.198.3.15
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

17. Juli 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...