Wie erstelle ich in Access VBA eine SQL-Abfrage?

Question

Wie erstelle ich in Access VBA eine SQL-Abfrage?

Antwort

Verwandte Fragen

Was ist falsch an folgendem Access VBA SQL-Statement: strSQL = "INSERT INTO tbl_Bestände_HZV (Datum, RLEx) IN " & strPfadExtern & "." & ZielTabelle & ...?

Was bedeutet ErrNum 75 in Access VBA?

Warum tritt in Access VBA bei der Abfrage 'If AnlageNeu = "Schleifmaschine" And Nachklassifizierung Is Null Then' die Fehlermeldung 'Objekt erforderlich' auf?

Wie kann man in Access VBA eine Pause von 10 Sekunden einlegen?

Wie kann man eine per Access-VBA automatisch geöffnete Excel-Datei direkt wieder schließen?

Wie finde ich in PHP nach einer SQL-Abfrage im Ergebnis-Array den Eintrag, bei dem ein Attribut einen bestimmten Wert hat?

Was bedeutet 'On Error GoTo 0'?

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Accepted Answer

Um in Microsoft Access per VBA eine Abfrage (Query) mit SQL zu erstellen, kannst du das DAO-Objektmodell verwenden. Hier ein Beispiel, wie du per VBA eine neue Abfrage mit einer SQL-Anweisung erstellst: ```vba Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb strSQL = "SELECT * FROM DeineTabelle WHERE DeinFeld = 'Wert';" Set qdf = db.CreateQueryDef("MeineNeueAbfrage", strSQL) Set qdf = Nothing Set db = Nothing ``` **Hinweise:** - Ersetze `"DeineTabelle"`, `"DeinFeld"` und `'Wert'` durch deine tatsächlichen Tabellennamen, Feldnamen und Werte. - `"MeineNeueAbfrage"` ist der Name der neuen Abfrage, die in Access gespeichert wird. - Wenn eine Abfrage mit diesem Namen schon existiert, musst du sie vorher löschen: ```vba On Error Resume Next db.QueryDefs.Delete "MeineNeueAbfrage" On Error GoTo 0 ``` **Weitere Infos:** - [Microsoft Access QueryDefs-Objekt (Microsoft Docs)](https://learn.microsoft.com/de-de/office/client-developer/access/desktop-database-reference/querydefs-collection-dao) - [DAO in Access verwenden (Microsoft Docs)](https://learn.microsoft.com/de-de/office/client-developer/access/desktop-database-reference/dao-overview) So kannst du per VBA und SQL eine Abfrage in Access erstellen.

Accepted Answer

In deinem SQL-Statement gibt es mehrere Probleme: 1. **Syntaxfehler bei `IN`**: Das `IN`-Schlüsselwort wird in Access-SQL für das Einfügen in eine externe Tabelle verwendet, aber... [mehr]

Accepted Answer

In deinem SQL-Statement gibt es mehrere Probleme: 1. **Syntaxfehler bei `IN`**: Das `IN`-Schlüsselwort wird in Access-SQL für das Einfügen in eine externe Tabelle verwendet, aber die Syntax ist sehr speziell. Die korrekte Syntax ist: ```sql INSERT INTO [Tabelle] IN 'Pfad\Datei.mdb' (Feld1, Feld2) VALUES (...) ``` **Achtung:** `IN` erwartet einen Dateipfad zu einer Access-Datenbank, nicht zu einer Tabelle. 2. **Zusammenbau des Strings**: Du versuchst, den Tabellennamen und den Pfad zu kombinieren, das ist aber nicht korrekt. Der Tabellenname steht direkt nach `INSERT INTO`, der Pfad nach `IN`. 3. **Fehlende `VALUES`-Klausel**: Dein Statement enthält keine `VALUES`-Klausel, die die einzufügenden Werte angibt. **Korrektes Beispiel:** Angenommen, du hast: - `strPfadExtern = "C:\Daten\Zieldatenbank.mdb"` - `ZielTabelle = "tbl_Bestände_HZV"` Dann sollte dein SQL-String so aussehen: ```vba strSQL = "INSERT INTO " & ZielTabelle & " (Datum, RLEx) " & _ "IN '" & strPfadExtern & "' " & _ "VALUES (#2024-06-01#, 123)" ``` **Hinweise:** - Der Pfad muss in einfache Anführungszeichen gesetzt werden. - Das Tabellenobjekt steht direkt nach `INSERT INTO`. - Die `VALUES`-Klausel ist notwendig. - Datumswerte in Access-SQL werden mit `#` umschlossen. **Zusammengefasst:** Dein Fehler liegt in der falschen Platzierung und Zusammensetzung von `IN`, Pfad und Tabellennamen sowie der fehlenden `VALUES`-Klausel. Weitere Infos: [Microsoft Doku zu INSERT INTO](https://learn.microsoft.com/de-de/office/client-developer/access/desktop-database-reference/insert-into-statement-microsoft-access-sql) **Beispiel für dynamischen SQL-String in VBA:** ```vba strSQL = "INSERT INTO " & ZielTabelle & " (Datum, RLEx) " & _ "IN '" & strPfadExtern & "' " & _ "VALUES (#" & Format(MeinDatum, "yyyy-mm-dd") & "#, " & MeinRLEx & ")" ``` Passe die Werte und Variablen entsprechend an.

Accepted Answer

Der Fehlercode **ErrNum = 75** in Microsoft Access VBA steht für **"Pfad/Datei-Zugrifffehler"** (englisch: "Path/File access error"). Dieser Fehler tritt auf, wenn ein Zugriff... [mehr]

Accepted Answer

Der Fehlercode **ErrNum = 75** in Microsoft Access VBA steht für **"Pfad/Datei-Zugrifffehler"** (englisch: "Path/File access error"). Dieser Fehler tritt auf, wenn ein Zugriff auf eine Datei oder einen Ordner fehlschlägt, zum Beispiel weil: - Die Datei oder der Ordner schreibgeschützt ist. - Du keine Berechtigung hast, auf den Pfad zuzugreifen. - Die Datei von einem anderen Prozess verwendet wird. - Der Pfad ungültig ist oder nicht existiert. **Typische Ursachen:** - Versuch, eine Datei zu überschreiben, die schreibgeschützt ist. - Versuch, in ein Verzeichnis zu schreiben, für das keine Schreibrechte bestehen. - Versuch, eine Datei zu öffnen, die bereits von einem anderen Programm exklusiv geöffnet ist. **Lösungsvorschläge:** - Prüfe die Dateiberechtigungen und den Schreibschutz. - Stelle sicher, dass der Pfad korrekt ist und existiert. - Schließe andere Programme, die auf die Datei zugreifen könnten. - Führe Access ggf. mit erhöhten Rechten (als Administrator) aus. **Weitere Infos:** - [Microsoft Dokumentation zu Fehler 75](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/75-path-file-access-error) Wenn du den konkreten Code zeigst, kann die Ursache noch genauer eingegrenzt werden.

Accepted Answer

Die Fehlermeldung **"Objekt erforderlich"** in VBA tritt meist auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert oder falsch deklariert wurde. In deinem Fall liegt das... [mehr]

Accepted Answer

Die Fehlermeldung **"Objekt erforderlich"** in VBA tritt meist auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert oder falsch deklariert wurde. In deinem Fall liegt das Problem vermutlich an der Verwendung von `Is Null` mit einer Variablen, die kein Objekt ist. **Fehlerursache:** - `Is Null` wird in VBA für **Datenbankfelder** oder **Variablen vom Typ Variant** verwendet, nicht für einfache Variablen wie String, Integer etc. - Wenn `Nachklassifizierung` kein Objekt oder kein Variant ist, sondern z.B. ein String oder Integer, führt `Is Null` zu diesem Fehler. **Korrekte Prüfung auf Null/Leer:** 1. **Wenn Nachklassifizierung ein Variant ist:** ```vba If AnlageNeu = "Schleifmaschine" And IsNull(Nachklassifizierung) Then ``` 2. **Wenn Nachklassifizierung ein String ist:** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung = "" Then ``` 3. **Wenn Nachklassifizierung ein Objekt ist (z.B. ein Recordset):** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung Is Nothing Then ``` **Zusammengefasst:** - **Is Null** ist keine gültige Syntax in VBA. Verwende stattdessen **IsNull()** für Variablen vom Typ Variant oder prüfe auf `= ""` bei Strings. **Beispiel für deinen Fall (String):** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung = "" Then ``` **Beispiel für deinen Fall (Variant):** ```vba If AnlageNeu = "Schleifmaschine" And IsNull(Nachklassifizierung) Then ``` **Weitere Infos:** - [Microsoft Docs: IsNull-Funktion (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/isnull-function) Falls du den Typ von `Nachklassifizierung` nicht kennst, prüfe dies im Code oder in der Variablendeklaration.

Accepted Answer

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32&qu... [mehr]

Accepted Answer

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Sub Pause10Sekunden() Sleep 10000 ' 10.000 Millisekunden = 10 Sekunden End Sub ``` **Hinweise:** - In 32-Bit-Versionen von Access verwende stattdessen: `Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)` - Während der Pause reagiert Access nicht auf Benutzereingaben. Weitere Infos zur Sleep-Funktion findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/windows/win32/api/synchapi/nf-synchapi-sleep).

Accepted Answer

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das g... [mehr]

Accepted Answer

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das geht: ```vba Dim xlApp As Object Dim xlWB As Object Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Open("C:\Pfad\zur\Datei.xlsx") ' Hier kannst du ggf. mit der Datei arbeiten xlWB.Close SaveChanges:=False ' oder True, wenn du speichern willst xlApp.Quit Set xlWB = Nothing Set xlApp = Nothing ``` **Wichtige Hinweise:** - `SaveChanges:=False` schließt die Datei ohne zu speichern. Wenn du Änderungen speichern willst, setze es auf `True`. - Mit `xlApp.Quit` wird die gesamte Excel-Anwendung geschlossen. - Die Objekte werden am Ende auf `Nothing` gesetzt, um Speicher freizugeben. Weitere Infos findest du z.B. in der [Microsoft-Dokumentation zu Excel VBA](https://learn.microsoft.com/de-de/office/vba/api/overview/excel). So wird die Excel-Datei nach dem Öffnen automatisch wieder geschlossen.

Accepted Answer

Angenommen, du hast nach einer SQL-Abfrage ein Array von Datensätzen, z.B. so: ```php $ergebnis = [ ['id' => 1, 'name' => 'Anna'], ['id' =&g... [mehr]

Accepted Answer

Angenommen, du hast nach einer SQL-Abfrage ein Array von Datensätzen, z.B. so: ```php $ergebnis = [ ['id' => 1, 'name' => 'Anna'], ['id' => 2, 'name' => 'Bernd'], ['id' => 3, 'name' => 'Clara'], ]; ``` Du möchtest nun den Array-Eintrag finden, bei dem z.B. das Attribut `name` den Wert `'Bernd'` hat. Das kannst du so machen: ```php $gesuchterName = 'Bernd'; $gefundenerEintrag = null; foreach ($ergebnis as $eintrag) { if ($eintrag['name'] === $gesuchterName) { $gefundenerEintrag = $eintrag; break; } } if ($gefundenerEintrag !== null) { // Eintrag gefunden print_r($gefundenerEintrag); } else { // Kein Eintrag gefunden echo "Kein Eintrag gefunden."; } ``` Alternativ, etwas kompakter mit [array_search()](https://www.php.net/manual/de/function.array-search.php) und [array_column()](https://www.php.net/manual/de/function.array-column.php): ```php $index = array_search($gesuchterName, array_column($ergebnis, 'name')); if ($index !== false) { $gefundenerEintrag = $ergebnis[$index]; print_r($gefundenerEintrag); } else { echo "Kein Eintrag gefunden."; } ``` Beide Methoden durchsuchen das Array nach einem bestimmten Wert in einem Attribut und liefern dir den passenden Eintrag zurück.

Accepted Answer

Die Anweisung `On Error GoTo 0` stammt aus der Programmiersprache Visual Basic (z. B. VBA, VB6). Sie wird verwendet, um die aktuelle Fehlerbehandlung zu deaktivieren. Das bedeutet: - Nach `On Error G... [mehr]

Accepted Answer

Die Anweisung `On Error GoTo 0` stammt aus der Programmiersprache Visual Basic (z. B. VBA, VB6). Sie wird verwendet, um die aktuelle Fehlerbehandlung zu deaktivieren. Das bedeutet: - Nach `On Error GoTo 0` werden Laufzeitfehler nicht mehr abgefangen. - Tritt nach dieser Anweisung ein Fehler auf, wird das Programm mit einer Fehlermeldung abgebrochen. **Beispiel:** ```vb On Error Resume Next ' Fehler werden ignoriert Dim x As Integer x = 1 / 0 ' Kein Fehlerabbruch On Error GoTo 0 x = 1 / 0 ' Jetzt wird ein Fehler ausgelöst und das Programm abgebrochen ``` **Zusammengefasst:** `On Error GoTo 0` schaltet die Fehlerbehandlung aus und stellt das Standardverhalten (Fehlerabbruch) wieder her. Weitere Infos: [Microsoft-Dokumentation zu On Error](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/on-error-statement)

Accepted Answer

Der Ausdruck `Shapes("Rechteck 1").Visible = True` ist in Excel-VBA **nicht korrekt**, da das `Visible`-Eigenschaftsmerkmal für Shapes in Excel-VBA **nicht existiert**. In Excel-VBA s... [mehr]

Accepted Answer

Der Ausdruck `Shapes("Rechteck 1").Visible = True` ist in Excel-VBA **nicht korrekt**, da das `Visible`-Eigenschaftsmerkmal für Shapes in Excel-VBA **nicht existiert**. In Excel-VBA steuerst du die Sichtbarkeit eines Shapes mit der `Visible`-Eigenschaft **nicht** direkt, sondern mit der `Visible`-Eigenschaft des `Shape`-Objekts, die aber nur in PowerPoint und Word verfügbar ist, **nicht** in Excel. In Excel kannst du die Sichtbarkeit eines Shapes so steuern: ```vba Shapes("Rechteck 1").Visible = msoTrue ' FALSCH in Excel ``` oder ```vba Shapes("Rechteck 1").Visible = True ' FALSCH in Excel ``` **Richtig in Excel-VBA:** Du musst stattdessen die `Visible`-Eigenschaft des `Shape`-Objekts auf `msoTrue` oder `msoFalse` setzen, aber in Excel gibt es diese Eigenschaft nicht. Stattdessen verwendest du die `Visible`-Eigenschaft des `Shape`-Objekts **nicht**, sondern die `Visible`-Eigenschaft des `ShapeRange`-Objekts, oder du setzt die `Visible`-Eigenschaft des Objekts, wenn es sich um ein ChartObject handelt. **Für Shapes in Excel gibt es nur die Möglichkeit, das Shape ein- oder auszublenden, indem du die `Visible`-Eigenschaft auf `msoTrue` oder `msoFalse` setzt:** ```vba ActiveSheet.Shapes("Rechteck 1").Visible = msoTrue ``` **Wichtig:** - `msoTrue` und `msoFalse` sind Konstanten aus der Microsoft Office-Bibliothek. - `True` und `False` funktionieren hier **nicht** direkt. **Fazit:** Der korrekte Weg in Excel-VBA ist: ```vba ActiveSheet.Shapes("Rechteck 1").Visible = msoTrue ``` **Weitere Infos:** [Microsoft Docs: Shape.Visible property (Excel)](https://learn.microsoft.com/en-us/office/vba/api/excel.shape.visible)

Accepted Answer

Der gezeigte Code ist in Excel-VBA **nicht korrekt** und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der `Rows`-Funktion. Hier die Analyse: **Dein Code:** ```vba HeightPt =... [mehr]

Accepted Answer

Der gezeigte Code ist in Excel-VBA **nicht korrekt** und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der `Rows`-Funktion. Hier die Analyse: **Dein Code:** ```vba HeightPt = Rows("4:"Cells(49,19)).Height ``` **Fehler:** - `"4:"Cells(49,19)` ist keine gültige Adressierung. - In VBA kann man einen Zellbereich als String angeben, z.B. `"4:49"` für die Zeilen 4 bis 49. - `Cells(49,19)` gibt eine Zelle zurück, aber nicht als Teil eines Bereichs-Strings. **Korrekte Varianten:** **1. Wenn du die Höhe der Zeilen 4 bis 49 ermitteln willst:** ```vba HeightPt = Rows("4:49").Height ``` **2. Wenn du die Höhe einer bestimmten Zeile (z.B. Zeile 49) willst:** ```vba HeightPt = Rows(49).Height ``` **3. Wenn du die Höhe der Zeile einer bestimmten Zelle (z.B. Zelle in Zeile 49, Spalte 19) willst:** ```vba HeightPt = Rows(Cells(49, 19).Row).Height ``` **Fazit:** Dein Code ist nicht korrekt. Nutze stattdessen z.B. `Rows("4:49").Height`, um die Höhe der Zeilen 4 bis 49 zu bekommen.

Accepted Answer

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle **A1** steht der RGB-... [mehr]

Accepted Answer

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle **A1** steht der RGB-Code als Zahl (z.B. `255` für Rot, `65535` für Gelb, `16711680` für Blau) oder als Text im Format `"255,0,0"` (für Rot). **Variante 1: RGB-Code als Zahl in der Zelle** ```vba Dim rgbWert As Long rgbWert = Range("A1").Value With shp .Line.Visible = msoFalse .Fill.Visible = msoTrue .Fill.ForeColor.RGB = rgbWert End With ``` **Variante 2: RGB-Code als Text "R,G,B" in der Zelle** ```vba Dim farben() As String Dim rgbWert As Long farben = Split(Range("A1").Value, ",") rgbWert = RGB(CInt(farben(0)), CInt(farben(1)), CInt(farben(2))) With shp .Line.Visible = msoFalse .Fill.Visible = msoTrue .Fill.ForeColor.RGB = rgbWert End With ``` **Hinweis:** - Die Funktion `RGB(R, G, B)` wandelt die drei Farbwerte in einen Long-Wert um, der von `.ForeColor.RGB` erwartet wird. - Achte darauf, dass die Werte in der Zelle korrekt formatiert sind. Weitere Infos zu RGB in VBA findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/rgb-function).