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
Please also mark the comments that contributed to the solution of the article
Content-Key: 23482
Url: https://administrator.de/contentid/23482
Printed on: April 20, 2024 at 02:04 o'clock
3 Comments
Latest comment
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/