Eine allgemeine Standard SQL-Select Abfrage die einfach nicht in mein Kopf will 🙂 Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim intID as Integer Dim strArtikel as String strSQL = „SELECT ID, Artikel FROM tblArtikel WHERE ID='“ & intID & „‚“ Set db = CurrentDb Set rs = […]
weiterlesen..
Um einfachen Log-Datei in VBA zu erstellen habe ich was ganz einfaches gesucht. Hab dann per Zufall folgendes entdeckt: Folgende Funktion im Modul erstellen Public Function DBPfad() As String DBPfad = Left(CurrentDb.Name, Len(CurrentDb.Name) _ – Len(Dir(CurrentDb.Name))) End […]
weiterlesen..
Um einen Zeilenumbruch in der Abfrage zu erstellen muss das Zeilen umbruch string Chr(13): CR -> Carriage Return Chr(10): LF -> Line Feed eingegeben werden. Beispiel: SELECT „Nachname:“ & [nachname] & Chr$(13) & Chr$(10) & „Vorname:“ & [vorname]
weiterlesen..