title image


Smiley Re: Überprüfen ob DS bereits vorhanden?
moin,



könnte u. a. so aussehen:









Private Sub Dein_Textfeld_BeforeUpdate(Cancel As Integer)

If CurrentDb.OpenRecordset("SELECT * FROM Deine_tabelle WHERE Dein_Vergleichsfeld = '" & Dein_Textfeld & "'").RecordCount > 0 Then

   MsgBox "Eingabe vorhanden!", vbInformation, "EINGABE"

   Cancel = True

End If



End Sub


gruß

BOKÖ

Die Beiträge beziehen sich alle auf Access2000 sowie WinXP.

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: