title image


Smiley Doublette prüfen
Hallo zusammen,

habe in meiner Tabelle einen Tipp von donkarl eingefügt, doch leider bekomme ich einen Laufzeitfehler und Access hängt sich auf.

Was habe ich falsch gemacht?

Folgende Zeilen in Formular in indiziertes Feld eingefügt:



Private Sub Fiche_Nr_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("Fiche-Nr", "Fiche-Datenblatt", _

"Fiche-Nr = " & Str([Me!Fiche-Nr]))) _

And Me![Fiche-Nr] Nz(Me![Fiche-Nr].OldValue) Then



MsgBox Me![Fiche-Nr] & " gibt es bereits.", vbOKOnly, "Duplikat!"

Cancel = True



End If



End Sub



Vielen Dank für wie immer schnelle Hilfe

Petra

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: