Expand|Select|Wrap|Line Numbers
- strTempQuery = "qry_Resource_ID_By_Name"
- Set dbs = CurrentDb()
- Set qdf = dbs.QueryDefs(strTempQuery)
- qdf.Parameters(0) = lstResourceProposed.Column(0, cnt)
- qdf.Parameters(0) = lstResourceProposed.Column(1, cnt)
- Set rst = qdf.OpenRecordset()
- If Not rst.BOF And Not rst.EOF And rst.Fields.Count = 1 Then
- iProposedResourceID = rst.Fields("Resource ID")
- End If
Expand|Select|Wrap|Line Numbers
- SELECT Resource_ID AS [Resource ID]
- FROM tbl_Resource_Master
- WHERE Resource_Last_Name+Resource_First_Name=[?];
Expand|Select|Wrap|Line Numbers
- If Not rst.BOF And Not rst.EOF And rst.Fields.Count = 1 Then
Expand|Select|Wrap|Line Numbers
- rst.BOF
Expand|Select|Wrap|Line Numbers
- rst.EOF
Expand|Select|Wrap|Line Numbers
- rst.Fields(0).Name
I am clueless. Any help please?