Hallo Zusammen,
ich bin gerade dabei einige Änderungen an einem Frontend vorzunehmen.
Bisher konnte bei einer Toleranzabweichung eine MessageBox geöffnet, in der dann die Abweichungen Angezeigt wurden. Dann konnte ziwschen freigeben (ja) und nicht freigeben (nein) gewählt werden.
Nun soll aber vor der Freigabe eine Passwort eingegeben werden.
Der bisherige Code:
If Fehler_Gesamt Or Fehler_Mehl Or Fehler_Zucker Or Fehler_Hefe Or Fehler_Salz Or Fehler_Farbstoff Or Fehler_Nüsse Then
Antwort = MsgBox(("Achtung Toleranzverletzung!" + Chr(13) + Chr(13) + Chr(13) + Text_Gesamt + Chr(13) + Chr(13) + Text_Mehl + Chr(13) + Chr(13) + Text_Zucker + Chr(13) + Chr(13) + Text_Hefe + Chr(13) + Chr(13) + Text_Salz + Chr(13) + Chr(13) + Text_Farbstoff + Chr(13) + Chr(13) + Text_Nüsse + Chr(13) + Chr(13) + Chr(13) + "Für Freigabe bitte mit Ja bestätigen, sonst Nein wählen."), vbYesNo + vbCritical)
FldToleranzabweichung = "Ja"
If Antwort = vbYes Then ' Benutzer hat "Ja" gewählt.
FldFreigabe = "freigegeben" ' Operation ausführen.
Else ' Benutzer hat "Nein" gewählt.
FldFreigabe = "gesperrt" ' Operation ausführen.
End If
Else
FldFreigabe = "freigegeben" ' Operation ausführen.
FldToleranzabweichung = "Nein"
End If
Nun habe ich den Code wie folgt geändert:
If Fehler_Gesamt Or Fehler_Mehl Or Fehler_Zucker Or Fehler_Hefe Or Fehler_Salz Or Fehler_Farbstoff Or Fehler_Nüsse Then
Antwort = MsgBox(("Achtung Toleranzverletzung!" + Chr(13) + Chr(13) + Chr(13) + Text_Gesamt + Chr(13) + Chr(13) + Text_Mehl + Chr(13) + Chr(13) + Text_Zucker + Chr(13) + Chr(13) + Text_Hefe + Chr(13) + Chr(13) + Text_Salz + Chr(13) + Chr(13) + Text_Farbstoff + Chr(13) + Chr(13) + Text_Nüsse + Chr(13) + Chr(13) + Chr(13) + "Für Freigabe bitte mit Ja bestätigen, sonst Nein wählen."), vbYesNo + vbCritical)
FldToleranzabweichung = "Ja"
If Antwort = vbYes Then ' Benutzer hat "Ja" gewählt.
'FldFreigabe = "freigegeben" ' Operation ausführen.
Dim strEingabe As String
strEingabe = InputBox("Bitte Code eingeben", "Eingabe")
If strEingabe = "1234" Then
FldFreigabe = "freigegeben"
Else
FldFreigabe = "gesperrt"
End If
Else ' Benutzer hat "Nein" gewählt.
FldFreigabe = "gesperrt" ' Operation ausführen.
End If
Else
FldFreigabe = "freigegeben" ' Operation ausführen.
FldToleranzabweichung = "Nein"
End If
Leider ist das Passwortfeld nicht unkenntlich, daher würde ich jetzt gerne eine Passwortfomular schreiben, das aber universell einsetzbar sein soll.
Es soll quasi als Paramter den Passwortsollwert übergeben kiregen und dann eine Ok oder nicht ok zurückliefern.
Kann mir jemand auf die Sprünge helfen?
|