Access VBA Abfragen
erster und letzter Tag im Monat
Erster und letzter Tag des aktuellen Monats
z.B. als Standardwert in einem Formularfeld
- erster Tag des aktuellen Monats: Datum()-Tag(Datum())+1
- letzter Tag des aktuellen Monats: DatSeriell(Jahr(Datum());Monat(Datum())+1;0)
Erster und letzter Tag (VBA)
- erster Tag des aktuellen Monats: Date - Day(Date)+1
- letzter Tag des aktuellen Monats: DateSerial(Year(Date), Month(Date)+1,0
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
