PDA

Vollständige Version anzeigen : Dlookup Befehl


GW
08.05.2004, 15:56
Hallo

Kann mir jemand weiterhelfen die Dlookup Anweisung funtioniert nicht-
Bei der Anzeige der 2. msgbox kommt immer ein leeres Feld.

Private Sub Heim_1_Exit(Cancel As Integer)
Dim lznr As Variant
Dim naheim As Variant
Dim na As Variant
lznr = Heim_1
MsgBox " Die Lizenznummer lautet " & lznr
naheim = Nz(DLookup("[LZnummer]", "[Ringer]", "[Name]='" & lznr & "'"))
MsgBox " Der Name ist" & naheim
End Sub

Die Variable naheim ist immer leer.
LZNummer = Feld in der Tabelle Ringer (suchfeld)
LZnr Nr = Variable die gesucht werden soll ( Wird in der Msgbox richtig angezeigt)
Name ist das Feld in der Tabelle Ringer der in die Variable geschrieben werden soll.

Nouba
08.05.2004, 16:04
Vertausche doch mal LZNummer und Name, wobei bei einem Ganzzahlenwert die Hochkommata weggelassen werden müssen.

GW
08.05.2004, 16:58
Hallo

Herzlichen Dank hat funktioniert