title image


Smiley Re: Kombinationsfeld: Daten hinzufügen
Leider kann ich Dir keine Lösung bieten, die doppelte Einträge verhindert. Aber zumindest eine, die neue Kreditinstitute anfügt.Private Sub Kreditinstitut_NotInList(NewData As String, Response As Integer) Dim rst As Recordset Dim db As Database If MsgBox("Neues Kreditinstitut >>" & NewData & " vbYesNo + vbQuestion, "Personen") = vbNo Then MsgBox "Ein Kreditinstitut aus der Liste wählen!", vbExclamation Response = acDataErrContinue Else Set db = CurrentDb() Set rst = db.OpenRecordset("NAME DES ATTRIBUTS, WO DER NAME DES KREDITINSTITUTS ERFASST WERDEN SOLL") rst.AddNew rst!Nachname = NewData rst.Update rst.Close MsgBox "Kreditinstitut wurde in der Liste aufgenommen!", vbInformation Response = acDataErrAdded End IfEnd SubProbiers mal...Grüessli Steph

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: