Office: (Office 2016) SQL Aktualisierungsabfrage dynamisch

Helfe beim Thema SQL Aktualisierungsabfrage dynamisch in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo ass56, wenn du die Frage nicht beantworten kannst oder willst, kommen wir nicht weiter. Sorry, aber ich bin dann mal raus. Gruß Ulrich Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von ass56, 27. Oktober 2020.

Seite 3 von 4

KNOBBI38

knobbi38

SQL Aktualisierungsabfrage dynamisch

Hallo ass56,

wenn du die Frage nicht beantworten kannst oder willst, kommen wir nicht weiter.

Sorry, aber ich bin dann mal raus.

Gruß Ulrich

knobbi38, 31. Oktober 2020

#31
ASS56

ass56

Wie kann ich Feldnamen eine Tabelle auslesen und als Tabelle anzeigen?

Bsp. Tab1 Feldnamen auslesen und in die Tab2 schreiben oder darstellen?

ass56, 2. November 2020

#32
BEAKER S.A.

Beaker s.a.

Wie kann ich Feldnamen eine Tabelle auslesen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe ich doch schon geschrieben. Vielleicht schaust du mal in der OH nach
der Fields-Auflistung.

Beaker s.a., 2. November 2020

#33
ASS56

ass56

SQL Aktualisierungsabfrage dynamisch

Ich versuche über diesen Code die Feldnamen der Tbl_Test in ein Listenfeld zu schreiben, was nicht funktioniert.

Code:

Private Sub BefehlFeldnamen_Click()

Dim DB As DAO.Database, rst As DAO.Recordset, Fld As DAO.Field
Dim strFelder As String

Set DB = CurrentDb
Set rst = DB.OpenRecordset("tbl_Test")
For Each Fld In rst.Fields
If Fld.Name "" Then
strFelder = strFelder & Chr(10) & Fld.Name
End If
Next Fld
'MsgBox "Feldnamen sind: " & Mid(strFelder , 3)
Me!ListeFeldNamen.RowSource = strFelder

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Unter MsgBox wird es dargestellt aber nicht in der Listenfeld

Was ist hier falsch?

Danke

ass56, 2. November 2020

#34
BEAKER S.A.

Beaker s.a.

Code:

Private Sub BefehlFeldnamen_Click()

Dim DB As DAO.Database, rst As DAO.Recordset, Fld As DAO.Field
Dim strFelder As String

Set DB = CurrentDb
Set rst = DB.OpenRecordset("tbl_Test")
For Each Fld In rst.Fields
If Fld.Name "" Then
If Len(strFelder= = 0 Then
strFelder = FldName
Else
strFelder = strFelder & ";" & Fld.Name
End If
End If
Next Fld

'MsgBox "Feldnamen sind: " & Mid(strFelder , 3)
Me.Listefeldname.RowSourceType = "Value List"
Me!ListeFeldNamen.RowSource = strFelder

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beaker s.a., 2. November 2020

#35
ASS56

ass56

Leider passiert nichts. Listenfeld bleibt leer *frown.gif*

Code:

Private Sub BefehlFeldnamen_Click()

Dim DB As DAO.Database, rst As DAO.Recordset, Fld As DAO.Field
Dim strFelder As String

Set DB = CurrentDb
Set rst = DB.OpenRecordset("tbl_Test")
For Each Fld In rst.Fields
If Fld.Name "" Then
If Len(strFelder) = 0 Then
strFelder = FldName
Else
strFelder = strFelder & ";" & Fld.Name
End If
End If
Next Fld

Me!ListeFeldNamen.RowSourceType = "Value List"
Me!ListeFeldNamen.RowSource = strFelder

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ass56, 2. November 2020

#36
BEAKER S.A.

Beaker s.a.

Sorry, sind ja Texte, so sollte es jetzt aber klappen.
Am Besten du lässt dir den String nochmal im Direktfenster ausgeben.
Code:

If Len(strFelder) = 0 Then
strFelder = "'" & FldName & "'"
Else
strFelder = strFelder & ";'" & Fld.Name & "'"
End If
Debug.Print strFelder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beaker s.a., 2. November 2020

#37
EBS17

ebs17

SQL Aktualisierungsabfrage dynamisch

Listenfeld? Da könnte man auch gleich als Datenherkunft die Feldliste benutzen.
Fluch oder Segen: Man spart sich so schönen VBA-Code.

ebs17, 2. November 2020

#38
ASS56

ass56

von Beaker s.a.

Sorry, sind ja Texte, so sollte es jetzt aber klappen.
Am Besten du lässt dir den String nochmal im Direktfenster ausgeben.
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Len(strFelder) = 0 Then
strFelder = "'" & FldName & "'"
Else
strFelder = strFelder & ";'" & Fld.Name & "'"
End If
Debug.Print strFelder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank, das hat geklappt. Was auch ein Hochkomme alles ausmacht *Smilie

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

ass56, 2. November 2020

#39
BEAKER S.A.

Beaker s.a.

Listenfeld? Da könnte man auch gleich als Datenherkunft die Feldliste benutzen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grrr *mad.gif*

Beaker s.a., 2. November 2020

#40
ASS56

ass56

Hallo,

ist so ein SQL-String überhaupt möglich? Ich habe es versucht aber bekomme Fehlermeldung!

Code:

Private Sub BefehlAktualisieren_Click()

Dim sSQL As String

sSQL = "UPDATE tbl_Test INNER JOIN tbl_TempUpdateFromExcel " & _
"ON tbl_Test.ID = tbl_TempUpdateFromExcel.ID " & _
"SET tbl_Test.[Form]![frm_ExcelImportTest]![komb1] = tbl_TempUpdateFromExcel.[Form]![frm_ExcelImportTest]![komb2];"

CurrentDb.Execute sSQL

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ass56, 3. November 2020

#41
GPSWANDERER

gpswanderer

Hallo,

aber bekomme Fehlermeldung!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*rolleyes.gif*
Hauptsache Du kennst die Fehlermeldung.

gpswanderer, 3. November 2020

#42
EBS17

ebs17

SQL Aktualisierungsabfrage dynamisch

ist so ein SQL-String überhaupt möglich?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dass man ihn so erstellen kann, zeigst Du ja. So wird er aber in keinem Fall ausführbar sein.
db.Execute übergibt die Anweisung direkt an die Jet-Engine. Diese kennt keine Accessobjekte wie Formulare und Textfelder und Kombinationsfelder, kann also damit nichts anfangen und verkündet dies.

ebs17, 3. November 2020

#43
ASS56

ass56

von gpswanderer

Hallo,
*rolleyes.gif*
Hauptsache Du kennst die Fehlermeldung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ausnahmsweise mal ja *Smilie

"Laufzeitfehler 3061. 2 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben"

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

ass56, 3. November 2020

#44
ASS56

ass56

von ebs17

Dass man ihn so erstellen kann, zeigst Du ja. So wird er aber in keinem Fall ausführbar sein.
db.Execute übergibt die Anweisung direkt an die Jet-Engine. Diese kennt keine Accessobjekte wie Formulare und Textfelder und Kombinationsfelder, kann also damit nichts anfangen und verkündet dies.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

D.h. es gibt auch keine andere Möglichkeit?

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

ass56, 3. November 2020

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 4

Thema:

SQL Aktualisierungsabfrage dynamisch

Die Seite wird geladen...

SQL Aktualisierungsabfrage dynamisch - Similar Threads - SQL Aktualisierungsabfrage dynamisch
Benötige Hilfe bei SQL-Befehl
in Microsoft Access Hilfe
Benötige Hilfe bei SQL-Befehl: Hallo zusammen und alles Gute für 2025 Es ist mal wieder Sale-Zeit und jetzt müssen bei vielen Artikel zu eine festgesetzten Zeit die VK-Preise geändert werden. Man kann das in unserem...
SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)
in Microsoft Excel Hilfe
SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste): Hallo zusammen, ich bräuchte Eure Hilfe, bei dem ich nicht weitere komme. Ich lasse importiere SQL-Daten über mehrere Abfragen im Editor vor filtern. Eine Spalte über einen Artikel...
SQL-Abfrage mit where
in Microsoft Access Hilfe
SQL-Abfrage mit where: SQL-Abfrage mit where-Parameter. PNrHaupt ist eine Zahl. Ich vermute, da liegt der Fehler, aber ich weiss nicht, wie ich das darstellen soll. Bei jeder neuer PNrHaupt soll eine neue Datei erstellt...
Apostroph in sql Recordset
in Microsoft Access Hilfe
Apostroph in sql Recordset: Hallo Gemeinde, einen hätte ich noch: sqlTitel = "SELECT * FROM tbl_Files_Edited WHERE Titel='" & strTitel & "'" Set rs1 = db.OpenRecordset(sqlTitel) Enthält strTitel einen...
Access - SQL: Inhalt auf 255 Zeichen beschränkt
in Microsoft Access Hilfe
Access - SQL: Inhalt auf 255 Zeichen beschränkt: Hallo zusammen, in Access habe ich ein Modul mit folgender Funktion: Public Function SQLListe(Nummer As Long) As String Dim strSQL As String Dim rs As DAO.Recordset strSQL = "SELECT Dokument...
Abfrage mit den jüngsten Einträgen erstellen
in Microsoft Access Hilfe
Abfrage mit den jüngsten Einträgen erstellen: Hallo liebe Experten, ich bastel gerade an einer Access-Datenbank für die Besuche meiner Klienten. Aus meiner Tabelle "KlientenT" und einer weiteren Tabelle mit "BesucheT" möchte ich eine Abfrage...
Tabellen-Datenquelle in ganzem Dokument ändern
in Microsoft Access Hilfe
Tabellen-Datenquelle in ganzem Dokument ändern: Hallo, ich habe eine Access-Datenbank (FE & BE getrennt) mit mehreren Tabellen, Abfragen und Formularen. Nun möchte ich das BE nach SQL migrieren. Den Assistenten hierzu scheint es ja nicht mehr...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden