starten einer Access-Abfrage über Excel von Exilunioner vom 20. 10. 2004 15:48:29
AW: starten einer Access-Abfrage über Excel - von Karl-Otto Reimann am 20. 2004 16:01:30
AW: starten einer Access-Abfrage über Excel - von Exilunioner am 20. 2004 16:15:34
AW: starten einer Access-Abfrage über Excel - von René am 20. 2004 16:02:20
AW: starten einer Access-Abfrage über Excel - von Exilunioner am 20. 2004 16:11:36
AW: starten einer Access-Abfrage über Excel - von René am 20. Vba access abfrage ausführen. 2004 16:17:49
AW: starten einer Access-Abfrage über Excel - von Exilunioner am 20. 2004 16:48:45
Lösung gefunden - von Exilunioner am 21. 2004 16:15:20
Betrifft: starten einer Access-Abfrage über Excel
von: Exilunioner
Geschrieben am: 20. 2004 15:48:29
Hallo Leute,
ich möchte eine Accessabfrage ausführen über den VBA-Code in Excel. Dim accApp As Object Dim ls_file As String Dim ls_pfad As String ls_pfad = "C:\N\" ls_file = ""
If Dir(ls_pfad & ls_file) = "" Then Beep MsgBox ("Keine Datei gefunden. ") Else Set accApp = CreateObject("lication") currentDatabase ls_pfad & ls_file 'Abfrage ausführen ==> hier sollte jetzt der Befehl stehen der entweder meine Anfügeabfrage öffnet oder ==> eine Prozedur in Access ausführt, die die Anfügeabfrage öffnet
osecurrentdatabase Set accApp = Nothing End If End Sub
Für einige Hinweise wäre ich sehr dankbar, bis dann
michael
Betrifft: AW: starten einer Access-Abfrage über Excel
von: Karl-Otto Reimann
Geschrieben am: 20.
Access Vba Abfrage Ausführen Download
Danach greifen Sie sofort auf alle rund 400 Artikel unseres Angebots zu - auch auf diesen hier! Oder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:
Vba Access Abfrage Ausführen
Deswegen bietet die
Access-Objektbibliothek auch gar nicht erst die Möglichkeit, auf Daten zuzugreifen. Dafür muss man erst auf eine Objektbibliothek verweisen,
die das kann. Und damit es nicht zu einfach wird, gibt es dafür auch noch
verschiedene: DAO ("Microsoft DAO Object Libary", ab Access 2007
"Microsoft Office Access database engine Object Libary") und ADO
(Microsoft ActiveX Data Objects Libary). Access-Tutorial: Tipps & Tricks zu Abfragen. DAO ist speziell für den Zugriff auf
Access-Datenbanken gedacht, kann aber auch für andere ODBC-fähige Datenbanken
genutzt werden. ADO ist für alle möglichen Dateiformate verwendbar, wodurch die
Fähigkeiten eingeschränkt sind. In aller Regel ist also DAO vorzuziehen. Daher
gehen wir hier nur auf DAO ein. tblBundesländer
ID txtLand txtHauptstadt
1 Bayern München
2 Hessen Wiesbaden
3 Rheinland-Pfalz Mainz
4 Saarland Saarbrücken
* (Neu)
Wir suchen nun - ganz ohne SQL - aus der nebenstehenden Tabelle die
Landeshauptstadt eines Bundeslandes, wobei es egal ist, ob die Tabelle in der
gleichen Datei steckt wie der Code oder nur mit dieser verknüpft ist:
Public Sub HauptstadtVon(txtLand As String)
Dim db As base, rs As cordset
Set db = CurrentDb
Set rs = Recordset("tblBundesländer", dbOpenDynaset)
ndFirst "txtLand = '" & txtLand & "'"
rs("txtHauptstadt")
rs.
Access Vba Abfrage Ausführen Folder
GIFT_ID = " & PMT & " "
habe auch schon alles mgliche versucht aber finde den Fehler einfach nicht
Vielleicht wei jem weiter..... Verfasst am: 06. Jul 2005, 15:38 Rufname:
Ein Tipp:
Setze einen Testpunkt auf
Code: sql_create und sieh Dir an, wie Dein SQL1 aufgelst aussieht. Vielleicht fllt Dir dann was auf. Du kannst auch eine neue Abfrage anlegen und dort den SQL-String reinkopieren. Wenn Du die Abfrage versuchst abzuarbeiten gibt er meist sinnvollere Fehlermeldungen aus. Verfasst am: 06. Jul 2005, 15:48 Rufname:
Danke Rita....
habs jetzt raus bekommen
lag an den eckigen Klammern die VBA anscheinend ganz dringend um die variablen Werte braucht....
Gru Olsen
ChrisFun
Access Einsteiger
Verfasst am: 03. Access vba abfrage ausführen in de. Sep 2012, 10:22 Rufname:
Version: Office 2003
Hallo,
ist zwar ein alter Thread passt aber zu meinem Problem. Ich habe ein VBA-Programm geschrieben, dass eine Excel-Tabelle einliest und dann in Access die Datenstze erstellt. Die Datenstze werden in Access in der Tabelle tblDessau erstellt.
Access Vba Abfrage Ausführen Live
#1
Hallo! Wenn ihr mittels VBA in MS Access eine Parameterabfrage ausführen wollt könntet ihr folgendermaßen vorgehen:
1) Zuerst bindet ihr unter Verweise die
Microsoft DAO Bibliothek mit der Version 2. X bzw. 3. X ein. 2) Nun erstellt ihr eine Abfrage mit Namen qryTestParam. In irgendeinem Feld legen wir dann mittels der [ Eckigen Klammern] einen Parameter Namens param1 in der Kriterienzeile an. Access-vba - Ausführen der SQL Server Pass-Through-Abfrage Aus Access VBA. -> param1
3) Um nun die Parameterabfrage ausführen zu können bedienen wir uns folgenden Codes:
Code:
Dim database As Database
Dim qry As Query
'Das Recordset, welches wir aus der Abfrage erhalten. Dim rs As RecordSet
Set database = CurrentDB
Set qry= database. QueryDefs("qryTestParam")
'Hier setzen wir nun den Parameter den wir einfach mit dem Namen ansprechen. rameters("param1") = "Hallo"
'Ergebnismenge ins RecordSet schieben
Set rs = Recordset
Auf diese Art und Weise lässt sich auch ganz leicht eine Volltextsuche (Suche nach einem Textmuster in mehreren Spalten gleichzeitig) bewerkstelligen.
Access Vba Abfrage Ausführen In De
[Offertennummer]" liegen muss bzw. an den Hochkommas oder Anführungszeichen liegen muss '[Frm_Eingabe_Tagespreis]! [Offertennummer]' oder "[Frm_Eingabe_Tagespreis]! [Offertennummer]". Scheinbar gibt es aber einen Unterschied zw. der Eingabe in der Abfrage selbst und deren Ausführung unter VBA. Für jeden heißen Tipp bin ich sehr dankbar. Vielen Dank & schöne Grüße
Wenn ich den "qdf. execute" auskommentiere läuft der Kode durch und die Form wird geladen... und fragt (natürlich) den Parameter ab. :-( Vielen Dank im Voraus für jede Art von Hilfe! Gruß Ferdi
Hallo, was ist denn intAuswahl(1)? Parameter für Abfrage per VBA übergeben und Abfrage öffnen. Und warum ein Recordset öffnen, wenn nur eine Abfrage ausgeführt werden soll? Das auszuführende SQL-Statement kannst du dir ausgeben lassen und prüfen: Private Sub footer6_Click() Dim db As base Dim rs As cordset Dim qdf As dao. QueryDefs("qryMonatsfilter") rameters! Buchungsmonat = intAuswahl(1) Set qdf = Nothing Set db = Nothing End Sub
Gruß Jürgen Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit. *feedback erwünscht* Bitte Tipps lesen
Hallo, wenn das Formular an die Abfrage gebunden ist, dann funktioniert das so nicht, sondern du kannst den Parameter mit Hilfe einer Funktion in die Abfrage holen. Beispiel: Public Function get_P1() get_P1 = intAuswahl(1) End Function Und in der Abfrage schreibst du anstelle von "[Buchungsmonat]" den Funktionsaufruf: get_P1()
Freundliche Grüße MaggieMay
Hallo Jürgen und vielen Dank für deine Antwort!