title image


Smiley Re: doppelte eingabe vermeiden?
Gib als Ereignisprozedur Vor Aktualisierung folgendes an:Private Sub Formularfeld_BeforeUpdate(Cancel As Integer)Dim db As DatabaseDim rs As RecordsetSet db = CurrentDbSet rs = db.OpenRecordset("tabellenname")Do While Not rs.EOFIf rs!feldindertabelle = Me!Formularfeld ThenMsgBox "Dieser Wert ist bereits vorhanden", vbOKOnly, "Fehler"Cancel = TrueEnd Ifrs.MoveNextLoopSet db = NothingSet rs = NothingEnd SubGruß, Marion

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: