Microsoft Access Query über VBA wird wiederholt?

Question

Ich habe diese Abfrage in meiner Form:

strSQL = "SELECT cityID FROM City WHERE Name =" & Chr(34) & Me.List60.Value & Chr(34) & ";" 
Set qdf = CurrentDb.CreateQueryDef("QueryCityName", strSQL) 
DoCmd.OpenQuery qdf.Name 
Me.cityID = qdf 

Was ich möchte die folgende Abfrage (der List60 Wert ist dynamisch) und weist das Ergebnis einer Textbox ist zu tun laufen. Jetzt läuft die Abfrage beim ersten Mal fehlerfrei und die zweite ist ein Fehler bei der Dublettenabfrage (ich überprüfe, ob eine neue Abfrage in Querys mit dem verwendeten Wert gespeichert ist). Also hier sind meine Frage:

Wie zu vermeiden, die Abfrage zu speichern und immer dynamisch? Wie man das Ergebnis von dieser Abfrage einer Textbox zuweist (ich meine qdf.Value in dem Beispiel funktioniert nicht)?

Answer 1

Sie sollten keine Abfrage erstellen, ohne zu überprüfen, ob sie existiert oder Sie einen Fehler erhalten, wie Sie gefunden haben. Sie können den SQL-Wert ändern, indem Sie auf das Querydef verweisen. Sie müssen keine neue Abfrage erstellen. In dieser Situation benötigen Sie jedoch keine Abfrage, nur DLookUp.

DLookUp("cityID", "City", "Name ='" & Replace(Me.List60.Value,"'","''") & "'") 

Sie können eine Textbox Steuerquelle einstellen wie so DLookUp:

=DLookUp("cityID", "City", "Name ='" & Replace(List60.Value,"'","''") & "'") 

BTW Nennen Sie ein reserviertes Wort ist und nicht überall eingesetzt werden soll, wird es unsägliches Leid verursachen.

Answer 2

Ich habe es mit noch weniger Code:

strSQL = "SELECT cityID FROM City WHERE Name =" & Chr(34) & Me.List60.Value & Chr(34) & ";" 
Set rst = CurrentDb.OpenRecordset(strSQL) 

Nun, wenn jeder das gleiche Problem haben, benutzen Sie einfach:

rst![name_of_the_row_in_your_table] 

In meinem Fall ist das ganze Stück:

strSQL = "SELECT cityID FROM City WHERE Name =" & Chr(34) & Me.List60.Value & Chr(34) & ";" 
Set rst = CurrentDb.OpenRecordset(strSQL) 
Me.cityID = rst![cityID]