MeineVariable= DLookup("[Nachname]", "tblMitarbeiter", "[Personalnummer] = " & PID)
Debug.Print DLookup("Nachname", "qryPersonenAbteilungen", "Abteilung LIKE 'Buchhaltung'")
Debug.Print DLookup("Vorname", "tblPersonen") 'liefert Vorname der zuerst gefundenen Datensatzes
Weites Beispiel
Public Function Sprache()
Dim deutsch
deutsch = Form_frmNewLanguage.AuswahlDescription
Sprache = DLookup("[Feldname1]", "tblTabellenname", "[Feldname2] ='" & deutsch & "'")
End Function