Trying to get query results to populate a textbox

[RunTime91]

Hello ~

I am trying to get the attribute of a specific field of a query to populate a TextBox

So far I have:

Private Sub Text70_AfterUpdate()

Dim strOpenSQL As String
   
strOpenSQL = "SELECT tbl_AssocInfo.DB_ID, tbl_AssocInfo.First_Nm, tbl_AssocInfo.Last_Nm, tbl_AssocInfo.Hire_Dt " & _
               "From tbl_AssocInfo " & _
               "WHERE (((tbl_AssocInfo.DB_ID)=[Forms]![frmAttendanceNotice]![Text70]));"
DoCmd.OpenQuery "QryHireDateTest", , acReadOnly
'[Forms]![frmAttendanceNotice]![Text72] = tbl_AssocInfo.Hire_Dt  <--------------
End Sub

I have also tried using the following in the textbox Control Source

=DLookUp("[Hire_Dt]",[QryHireDateTest])

Nothing but errors

There will always be just one result of the search as the DB_ID is a PK

Thanks as always...

[pbaldy]

Each argument is a string:

=DLookUp("[Hire_Dt]","[QryHireDateTest]")

[RunTime91]

Brilliant!! Thanks Paul!!

Works Great!

[pbaldy]

Happy to help!