PDA

Vollständige Version anzeigen : Eintrag überprüfen


timo_neu
23.10.2001, 17:51
Hallo zusammen,
ich habe ein Formular indem Werte eingetragen werden.
Nun soll jedoch, wenn ein Eintrag bereits in dem selben Datensatz und das gleiche Feld überschrieben wird eine MSGBox angezeigt werden.
Wie und bei welchem Ereignis muß was passieren.
Danke schon einmal für jeden Tip.
Michael

Andi_D
23.10.2001, 19:01
Äh, ma schau`n ob ich des jeze verstanden hab...

Du möchtest einen Hinweis geben, wenn der User im Begriff ist, einen bestehenden Wert in diesem Formularfeld zu überschreiben...?


Private Sub DeinFeld_Before_Update()

Dim strMessage As String
Dim intOptions As Integer
Dim bytChoice As Byte

strMessage = "Achtung! Wenn Sie forfahren wird der bestehende Wert überschrieben. Fortfahren?"
intOptions = vbExclamation + vbYesNo
bytChoice = MsgBox(strMessage, intOptions, "Feldwert ändern

If bytChoice = vbNo Then
Me.DeinFeld.Undo
Cancel = True
Me.DeinFeld.SetFocus
End If

End Sub

erwin
24.10.2001, 05:08
ich würd' am Anfang der Sub noch ein:

if isnull(Me!DeinFeld) or Me.NewRecord then exit sub

einbauen, ansonsten kommt die Meldung (für meinen Geschmack) etwas zu oft ;)

so long erwin...