Bei Eingabe in Formular gleichzeitig suchen und Formular aktualisieren
Ich hab mir eine schöne Inventurdatenbank aufgebaut, und das funktioniert auch so im großen und ganzen sehr gut.
Über ein Formular gebe ich Seriennummer, Artikelbezeichnung, etc. ein. Die Seriennummer ist der Primärschlüssel. Das hab ich alles so ziehmlich ohne Programmieren geschafft.
Nun würde ich aber ganz gerne bei Eingabe der Seriennummer gleich prüfen lassen wollen, ob die Seriennummer schon in der Datenbank vorhanden ist. Das heist, immer wenn das Feld Seriennummer verändert wird, dass das gesamte Formular aktualisiert wird.
Geht das? Oder muss ich immer erst über Suchen gehen?
Gruß
Die Kellerassel
Über ein Formular gebe ich Seriennummer, Artikelbezeichnung, etc. ein. Die Seriennummer ist der Primärschlüssel. Das hab ich alles so ziehmlich ohne Programmieren geschafft.
Nun würde ich aber ganz gerne bei Eingabe der Seriennummer gleich prüfen lassen wollen, ob die Seriennummer schon in der Datenbank vorhanden ist. Das heist, immer wenn das Feld Seriennummer verändert wird, dass das gesamte Formular aktualisiert wird.
Geht das? Oder muss ich immer erst über Suchen gehen?
Gruß
Die Kellerassel
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 23482
Url: https://administrator.de/forum/bei-eingabe-in-formular-gleichzeitig-suchen-und-formular-aktualisieren-23482.html
Ausgedruckt am: 23.12.2024 um 11:12 Uhr
3 Kommentare
Neuester Kommentar
Wenns Acces ist:
Beispiel-Code für Access, wenn das Feld Seriennummer in der Tabelle als Typ ?Text? definiert ist:
Im Formular in dem Feld Seriennummer beim Ereignis ?Vor Aktualisierung?:
If Not IsNull(Dlookup("MeinFeld", "MeineTabelle", _
"MeinFeld = " & Chr$(34) & Me!MeinSteuerelement & Chr$(34))) _
And Me!MeinSteuerelement <> nz(Me!MeinSteuerelement.OldValue) Then
MsgBox Me!MeinSteuerelement & " gibt es bereits.", vbOKOnly, "Duplikat!"
Cancel = True
End If
mfg
Quelle: http://www.donkarl.com/
Beispiel-Code für Access, wenn das Feld Seriennummer in der Tabelle als Typ ?Text? definiert ist:
Im Formular in dem Feld Seriennummer beim Ereignis ?Vor Aktualisierung?:
If Not IsNull(Dlookup("MeinFeld", "MeineTabelle", _
"MeinFeld = " & Chr$(34) & Me!MeinSteuerelement & Chr$(34))) _
And Me!MeinSteuerelement <> nz(Me!MeinSteuerelement.OldValue) Then
MsgBox Me!MeinSteuerelement & " gibt es bereits.", vbOKOnly, "Duplikat!"
Cancel = True
End If
mfg
Quelle: http://www.donkarl.com/