Office: (Office 2013) Temporäre Abfrage per VBA erstellen

Markus Nbg · 2. Juli 2018

Zitat von Ohrkester;1876940:

Servus,

..oops.

Code:

Me.RecordSource = "AbfrageName"
Me.EinListenfeld.rowsource= "AbfrageName"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

damit habe ich noch Bauchschmerzen.

Code:

Me.EinListenfeld.rowsource
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf was will sich der Code beziehen. Hier bekomme ich eine Fehlermeldung

Stelle ich das mit ' Kalt stehe ich in dem Endlosformular in den nicht angeprochenen Feldern #Name?.
Es wird also keine Abfrage geöffnet sondern eine Abfrage auf dem Formular ausgeführt. :-)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ohrkester · 2. Juli 2018

na gut. Dann hab ich es zu wörtlich genommen.
Die Zuweisungszeilen sollten etwas für die Auswertung helfen. Sorry.

Ohrkester · 2. Juli 2018

\@Markus Nbg,

Es wird also keine Abfrage geöffnet sondern eine Abfrage auf dem Formular ausgeführt. :-)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es wird eine Abfrage erstellt. Schau mal in Dein Navigationsformular links bei den Abfragen.
Damit kannst Du dann machen, was Du willst.

Markus Nbg · 7. Januar 2021

von Beaker s.a.

@ohrkester
Na ja, was mit der Abfrage passieren soll geht für mich aus dem ersten Post
nicht hervor. Die Zuweisung zu Record-/RowSource stammt ja von dir.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ok ich weiss nicht ob eine temporäre Abfrage nötig ist, ich möchte das sich eine Tabelle, ähnlich wie wenn eine Abfrage gestartet wird, auf geht und die angeprochenen Daten sichtbar sind. (Ohne für alle Prüfungen eine Abfrage zu erstellen) Diese Daten werden dann direkt am Bildschirm überprüft oder in Excel kopiert.

ich weiss es ist nicht immer einfach für die Helfenden, aus dem Gelesenen, die Hirnwindungen des Fragenden zu verstehen *biggrin.gif*

Danke & Gruß
Markus

Ohrkester · 2. Juli 2018

\@Markus Nbg:
dann geh zurück zu Thread #6
Erstelle die 3 Eingabefelder txt_werk, txt_bewert, mat_nr
und nimm statt Code:

currentdb.execute sqlc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

folgendes:
Code:

Me.Recordsource= sqlc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun sollte Dein Endlosformular alles zeigen, was Du sehen willst.

Markus Nbg · 7. Januar 2021

von Ohrkester

@Markus Nbg:
dann geh zurück zu Thread #6
Erstelle die 3 Eingabefelder txt_werk, txt_bewert, mat_nr
und nimm statt Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

currentdb.execute sqlc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

folgendes:
Code:

Me.Recordsource= sqlc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun sollte Dein Endlosformular alles zeigen, was Du sehen willst.

ich habe ca. 10 bis 15 Prüfabfragen (darin wird sichtbar gemacht ob die Daten im richtig eingegeben wurden oder ob unplausible Daten erfasst wurden) zu erstellen, möchte nicht das Formular mit Eingabefelder zuschütten.
Einfach fest definierte Abfragen per VBA laufen lassen und die Daten sichtbar machen, aber nicht auf dem Formular, da könnte ich ja mit Filter arbeiten.

Markus Nbg · 7. Januar 2021

von Beaker s.a.

Hallo,

@Markus
Zum einfachen Testen von in VBA zusammengesetzter SQL-Strings empfehle ich
dir dieses Tool http://access-codelib.net/download/a...DebugPrint.zip

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

Danke, habe ich mir gerade runtergeladen.

Beaker s.a. · 2. Juli 2018

Hallo Markus,

aber nicht auf dem Formular
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo denn? Als Tabelle, wie aus dem Navigationsbereich geöffnet?
Dann musst du es so machen, wie von Ohrkester codiert.
Wenn du die Werte fest verdrahten willst (warum?) würde ich eine
Parameterabfrage erstellen, deren Parameter dann vom jeweiligen Button
per VBA gefüllt werden. Wie das geht kannst du hier nachlesen:
donkarls Access-Seiten
gruss ekkehard

Markus Nbg · 7. Januar 2021

von Ohrkester

@Markus Nbg,

Es wird eine Abfrage erstellt. Schau mal in Dein Navigationsformular links bei den Abfragen.
Damit kannst Du dann machen, was Du willst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... oh mann jetzt hat es klick gemacht

Ich habe es jetzt mit Eurer Hilfe so gelöst.
da die Abfrage ja vorher immer gelöscht wird funktioniert es bei allen anderen VBA Abfragen dann auch.

Code:

Dim queryTemp As DAO.QueryDef
Dim strSQL As String
Dim WerkWert As Long
Dim BewertWert As Long
Dim MatNrWert As String

WerkWert = 1615
BewertWert = 7920
MatNrWert = "0"

'Abfrage löschen falls vorhanden
If DCount("*", "MsysObjects", "Name='Temp_Auswertungen' And Type = 5") > 0 Then
DoCmd.DeleteObject acQuery, "Temp_Auswertungen"
End If
'Abfrage erstellen
Set queryTemp = CurrentDb().CreateQueryDef("Temp_Auswertungen") 'für Abfrage
strSQL = _
"SELECT PrüfsumMat, Werk, Material, Materialkurztext, Erstellt, BewertKl, MatNrKu" & _
" FROM T_01SAP_Mat" & _
" WHERE Werk=" & WerkWert & _
" AND BewertKl= " & BewertWert & "AND MatNrKu= '" & MatNrWert & "'" & _
" ORDER BY Erstellt DESC; "

queryTemp.sql = strSQL
Set queryTemp = Nothing

DoCmd.OpenQuery "Temp_Auswertungen", acNormal
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab einfach das
DoCmd.OpenQuery "Temp_Auswertungen", acNormal
eingefügt.

Morgen melde ich micht nochmals an selber Stelle ;-) da ich noch ein paar Abfragen mit verknüpften Tabellen und Grupierungen habe

Nouba · 2. Juli 2018

Jetzt versteh' ich auch, warum manche Produkte so teuer sind. Auf SAP ist einfach kein Verlass, so dass man die ganzen Daten immer in Access importieren muß, damit danach durch geschulte Augen eine Plausibilitätsprüfung stattfinden kann. Fachpersonal will halt gut bezahlt sein. *biggrin.gif*

Beaker s.a. · 2. Juli 2018

Ich plädiere weiterhin für eine Parameterabfrage.

(Luftcode):
Abfrage (gespeichert)
Code:

PARAMETERS Werk Long, BewertWert Long, MatNrWert Text ( 255 );
SELECT PrüfsumMat, Werk, Material, Materialkurztext, Erstellt, BewertKl, MatNrKu
FROM T_01SAP_Mat
WHERE Werk = Werk
AND BewertKl = Bewert
AND MatNrKu = '" & MatNrWert & "'"
ORDER BY Erstellt DESC
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Formular
Code:

Private Sub EinButton_Click()
ShowTempQuery(1615, 7920, "0")
End Sub

Private Sub ShowTempQuery( _
lWerk As Long, _
lBewert As Long, _
sMatNrKu As String)
Dim qdf As DAO.QueryDef

Set CurrentDb.QueryDefs("Temp_Auswertungen")
With qdf
.Parameters.Werk = lWerk
.Parameters.Bewert = lBewert
.Parameters.MatNrKu = sMatNrKu
End With

DoCmd.OpenQuery "Temp_Auswertungen", acNormal

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

gruss ekkehard

ebs17 · 2. Juli 2018

Einfach fest definierte Abfragen per VBA laufen lassen und die Daten sichtbar machen, aber nicht auf dem Formular, da könnte ich ja mit Filter arbeiten.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es wäre ja auch katastrophal, mit einem richtigen Formular und dessen Möglichkeiten zu arbeiten. So kann man sich noch etwas ausschweifender beschäftigen - man sollte aber bei solcher Arbeitsweise nicht über den Berliner Flughafen lästern.

Filter könnte man auch vordefinieren und in einer Tabelle ablegen.

Markus Nbg · 7. Januar 2021

von ebs17

Es wäre ja auch katastrophal, mit einem richtigen Formular und dessen Möglichkeiten zu arbeiten. So kann man sich noch etwas ausschweifender beschäftigen - man sollte aber bei solcher Arbeitsweise nicht über den Berliner Flughafen lästern.

Filter könnte man auch vordefinieren und in einer Tabelle ablegen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nach dem ich hier nocheinmal alles durchgelesen und sacken lassen habe wird das die alegantere Lösung sein und mit Hilfe der vielen Vorschläge hier realisiert. Tabelle mit vordefinierten Filtern.

Office: (Office 2013) Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen

Temporäre Abfrage per VBA erstellen - Similar Threads - Temporäre Abfrage VBA

[VBA] temporäre Kopie Blattschutz aktivieren

Daten aus temporärer Tabelle in normalisierte Tabellenstruktur übernehmen

temporäre Tabelle erstellen

Chat in Teams temporär deaktivieren

Dateien in Read Only oder View Modus - Temporäre Funktionsanpassungen für Office-Dokumente ...

unklare hinweis auf temporäre verschobene Postfächer

Bug: Zellen immer wieder temporär gesperrt