Pass Through-Abfrage mit userinput in Form Zugang

Question

Ich habe Zugang Frontend, die von SQL Server in Backend mit Strom versorgt wird.

habe ich eine Form, die eine Benutzereingabe erfordert, basierend auf dem Eingang es einen Durchlauf durch Abfrage ausführen soll und im Unterformular führt anzuzeigen. Ich habe im Internet gelesen, dass dies nicht durch SQL-Befehl getan werden kann und es erfordert SQL-Codierung in VBA-Codierung verpackt werden.

Ich habe einen Code, um dies wie folgt aus:

Private Sub id_AfterUpdate() 
Dim MyDb As Database, MyQry As QueryDef 
Set MyDb = CurrentDb() 
Set MyQry = MyDb.CreateQueryDef("") 

MyQry.Connect = "ODBC;DSN=mikecollections;UID=***;PWD=****;DATABASE=mikecollections;" 
MyQry.SQL = "select currency.tb_coins.id,documenttype,documentsubtype,documentname" & _ 
      "from currency.tb_coins" & _ 
      "inner join collectibles.tb_documents on tb_coins.id=collectibles.tb_documents.prodid" & _ 
      "where currency.tb_coins.id=[forms]![test_form]![id]" 

End Sub 

Dieser Code sollte feuern, nachdem ich Wert im ID-Feld in das Formular ein, aber nichts passiert. Ich weiß nicht, wie ich diesen Code zum Laufen bringen kann. Ich bin neu in SQL und VBA, bitte helfen!

Answer 1

Sie können logisch beziehen sich nicht auf ein Access-Objekt in einer passthru Abfrage.
Sie sollten also die value des Steuerelements übergeben, anstatt auf das Steuerelement selbst zu verweisen.
Wenn id ist ein long:

MyQry.SQL = "select currency.tb_coins.id,documenttype,documentsubtype,documentname" & _ 
      "from currency.tb_coins" & _ 
      "inner join collectibles.tb_documents on tb_coins.id=collectibles.tb_documents.prodid" & _ 
      "where currency.tb_coins.id= " & [forms]![test_form]![id] 

Dann müssen Sie den Code hinzufügen, querydef einen recordset, um es zu lesen zuzuweisen. Etwas wie:

set rs = myQry.OpenRecordset 

Wenn Sie bevorzugen, können Sie auch Ihr queryDef nennen. es wird dann wie jede andere Abfrage zur Verfügung:

Set MyQry = MyDb.CreateQueryDef("someName") 
'''specify all properties here... 
doCmd.OpenQuery "someName" 

Answer 2

I erstellt StoredProcedure in SQL Server und Parameter in Zugangs- und ging in SQL Server erstellt und habe es funktioniert. Danke Hansup und iDevlop für die Hilfe.

Private Sub userinput_AfterUpdate() 
Dim qrypass As DAO.QueryDef 
Dim rst As DAO.Recordset 

Set qrypass = CurrentDb.QueryDefs("qu_test") 
qrypass.SQL = "exec collectibles.sp_coinsvsdocuments" & " " & "@userinput" &  "=" & Forms!test_form!userinput 

End Sub