DLookup

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

Die Themenwahl war spannend. Onenote war für mich bis anhin unbekannt. Nun habe ich den Zugang dazu! Office 365