title image


Smiley Re: Feld nach Duplikaten durchsuchen und Meldung ausgeben
Hallo Anne,ich habe es bei mir so gemacht.Dim DB As Database, rs As RecordsetSet DB = CurrentDbSet rs = DB.OpenRecordset("tblartikel", dbOpenDynaset)If Not IsNull(Me![Eingabe]) Thenrs.FindFirst "[Art_Nr] = " & Me![Eingabe]If rs.NoMatch = False ThenMsgBox "Artikel Nr. schon vorhanden"End IfEnd IfFassi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: