Я пытаюсь отладить эту подпрограмму, где я использую значение переменной, которое я назначаю с помощью InputBox в методах Recordset.Find, но продолжаю получать ошибку времени выполнения, так как она не распознает переменную Prod, определенную ниже.
Я пытался поместить Prod в одинарные кавычки, и не получаю ошибку времени выполнения, но он также игнорирует критерии, просто давая мне первый элемент во всем наборе записей
'' ''
Sub MoveAround()
'declaration of recordset variable and Prod variable
Dim MyR As Recordset
Dim Prod As String
'Setting Recordset to Current DB with Table Name and dynamic view
Set MyR = CurrentDb.OpenRecordset("813ActiveErrors", dbOpenDynaset)
'Prompts user for value of Item
Prod = InputBox("Please Input the Item")
'Finds first record in record set where Item=value of prod
'I keep getting an error here Where it says: The MS Access database engine 'does not recognize 'Prod' as a valid field name or expression
MyR.FindFirst ("[Item] = Prod")
MyR.Close
Set MyR = Nothing
End Sub
'' ''