Office: (Office 2016) Querydef Ergebnis lässt keine Änderung zu

Hallo, ich habe diesen Code erstellt und eine Abfrage erstellt. Nun sollen die Werte in Platz geändert werden. Das scheitert daran, dass die Werte der Abfrage nicht änderbar sind.



Public Sub AbfrageErstellen()

Dim dbs As DAO.Database
Dim qdfRennID As DAO.QueryDef

Set dbs = CurrentDb()
Set qdfRennID = dbs.CreateQueryDef


On Error GoTo 99
'SQL abfrage erstellen
With qdfRennID

.sql = "SELECT QF.RennId AS QF_RennID, " & vbCrLf _
& "TP.RPferd, " & vbCrLf _
& "TP.Differnz, " & vbCrLf _
& "TP.Platz " & vbCrLf _
& "FROM TabPferdIRennen AS TP " & vbCrLf _
& "INNER JOIN QryRennenIdfilter AS QF " & vbCrLf _
& "ON QF.RennID = TP.RenID" & vbCrLf _
& "WHERE Qf.RennID = 'suchtext'" & vbCrLf _
& "ORDER BY TP.Differnz ASC" & vbCrLf

.Name = "qryPlatzierungTemp"
End With

' Abfrage vom Temp in die Datenbank schreiben
With dbs.QueryDefs
.Append qdfRennID
.Refresh
End With

qdfRennID.Close
dbs.Close

ExitProc:
'Aufraeumen
Set qdfRennID = Nothing
Set dbs = Nothing

99 Exit Sub
End Sub

:)

 

Warum erwartet man immer, dass eine Abfrage aktualisierbar ist? Das ist doch etwas anderes wie eine Tabelle.
Wenn man Benzin auf sein Auto gießt, sind die Chancen, dass dieser im Tank landet, auch nicht sonderlich groß.

Ändere die Werte in der betreffenden Tabelle und frage danach ab.

 

Hallo und danke für die Antwort,
das hatte ich zuerst gemacht, aber der Recordset hat den Filterwert missachtet und sämtliche Tabellenwerte im Feld Platz abgeändert.
Grüße Chris

 

So etwas gibt es nicht.
Zeig was nicht funktioniert hat.
In der Regel liegt das nur am Unwissen des Anwenders.

 

Code:

Wobei eine ID mit dem Datentyp "Text" nicht gerade das Gelbe
vom Ei ist.

 

Hallo, ich habe jetzt die Anregung Eberhart umgesetzt und einen Teilerfolg. Danke schon mal dafür. Jetzt will ich einen Schritt weiter. Ich hätte gerne für die RenId eine Variable damit ich später die gesamte Tabelle in einem Rutsch bearbeiten kann.
Hier hänge ich jetzt:
Wenn ich den Text der RenId als Suchkriterium im Code eingebe, dann tut es was es soll. Ersetze ich den Text durch eine Variable; findet er mittels FindFirst den ersten String geht zur Zeile und ändert den Platz ab. Soweit so gut

Der FindNext funktioniert mit der gleichen Syntax nicht?

hier ist die Problemzeile:
RstRang.FindNext "RenID = 'VarRennID'" ' Das Geht NICHT ?
RstRang.FindNext "RenId = 'Stadt_05062019_4'" Das Geht ?

Hier der komplette Sub:

Sub MkrRangVergebenEntwicklung()

Dim VarPlatz As Double
Dim varRennID As String
Dim dbs As DAO.Database
Dim RstRang As DAO.Recordset
Set dbs = CurrentDb()
Set RstRang = dbs.OpenRecordset("SELECT RenID, Differnz, Platz FROM TabPferdIRennen ORDER BY Differnz", dbOpenDynaset)

On Error GoTo 99
varRennID = RstRang![RenID]


RstRang.FindFirst "RenID = 'VarRennID'" 'Das Geht!
VarPlatz = 1
RstRang.Edit
RstRang![Platz] = VarPlatz
RstRang.Update

Do

'RstRang.FindNext "RenId = 'Stadt_05062019_4'" Das Geht ?

RstRang.FindNext "RenID = 'VarRennID'" ' Das geht NICHT ?
If RstRang!Platz > 0 Then GoTo 99 'an dieser Stelle bleibt das PGM stehen, befindet sich im vorherigen Datensatz, hat den Wert 1 und geht auf 99
VarNum = VarPlatz
VarPlatz = VarNum + 1
RstRang.Edit
RstRang![Platz] = VarPlatz
RstRang.Update
Loop


99
RstRang.Close
dbs.Close

ExitProc:
Set RstRang = Nothing
Set dbs = Nothing
End Sub
______________________

Ist bestimmt etwas umständlich, bin aber Anfänger und arbeite mich gerade ein. :-)
Danke erst mal für eure Hilfe.

 

Code:

Das Markierte ist ein Filter. Ein Filter in datenbankbezogener Betrachtung ist der WHERE-Teil einer SQL-Anweisung ohne das Stichwort WHERE.
Man darf sich also merken: Hier spielen die Regeln von SQL.

Ein Text ist dort in DoubleQuotes, ersatzweise in einfachen Quotes, einzuschließen. Daher klappt die Zeile für diesen konstanten Text.

Code:

Wenn VarRennID eine Variable ist: Die Jet-Engine, die die SQL-Anweisung / den Filter entgegennimmt und verarbeitet, kennt keine VBA-Variablen und wird daher bei der gezeigten Form scheitern.

Der Wert in der Variablen muss vorher aufgelöst werden und als solcher an die Jet-Engine übergeben werden. Varianten:

1) Dynamic SQL - Anweisung per VBA zusammensetzen
Code:

Wenn man sich den Filter selber ansieht, erkennt man, dass da bereits der Variableninhalt übergeben wird, nicht mehr die Variable selber. Letztere ist nur ein Verweis auf den Speicherbereich, wo der Inhalt liegt.

2) Funktion: Über den Expression Service kann die Jet-Engine Funktionen nutzen und direkt mit deren Rückgaben arbeiten.
Code:

Code:

Wenn man sucht (Find), sollte man auch den Fall berücksichtigen, dass man nichts findet => If RstRang.NoMatch Then ...

Wenn man geeignet vorsortiert, muss man nicht mehr suchen mit FindFirst + FindNext, sondern man kann in einer einfachen Schleife durchlaufen.

Alternativ könnte man die Rangberechnung direkt in der Abfrage vornehmen - das sollte eigentlich erste Wahl sein.
Grundlagen - SQL ist leicht (10) - Nummerierung in Abfragen

Das klingt aber auch schon einmal gut. Erarbeitete Erkenntnisse sitzen fester im Bewusstsein. Und wenn man sich einmal "durchgeschunden" hat, weiß man dann einfachere und schnellere Lösungen viel mehr zu schätzen.

 

Hallo Eberhard,
Variante 1 hat direkt funktioniert. Mir geht es hauptsächlich ums Verstehen und Lehrnen. Die restlichen Varianten werde ich noch probieren. Schön wenn man nach langem Probieren ein Erfolgserlebnis hat.
Herzlichen Dank dafür an Dich
Chris

 

Was Du beherzigen und Dir dabei ein Beispiel an den anderen nehmen solltest: Code, der hier präsentiert wird, gehört in Tags. Kontrollstrukturen gehören eingerückt. Danke.

 

Hallo Hans Christian,
danke für den Tip, war mein erster Post. Ich habe die Infos zu Deinen Vorschlägen nachgelesen und werde es künftig versuchen.
Grüße
Chris