lamisamuel
New member
- Local time
- Today, 16:53
- Joined
- Sep 30, 2022
- Messages
- 10
I am trying to make a module to pass a single result of a query into a Combobox to be populated/displayed immediately on Form_Load event, but I keep getting the following error: Run-time error '2465' "Microsoft Access can't find the field 'MyCombo' referred to in your expression" Query result is tested and returning the proper value. the problem is in the reference call to the MyCombo combobox.
This is my code below:
on the targeted form, I use this code:
after opening the targeted form, I receive the above mentioned error. I don't know what's wrong I tried to trace everything and it seems to be fine, I used the same chunk of codes in other places and worked fine. don't know what's wrong here to be honest. I would be grateful if you could help me elaborate what's going on.
It's worth noting that instead of calling the function inside the form load, I tried putting the whole code inside the form's Load event, and the code would work fine and give proper result only if I define the form's name statically, or use Me.MyCombo = dociddefaultvalue instead.
This is my code below:
Code:
Public Function getSetRefNo() As String
Dim rs1 As DAO.Recordset
Dim currentformName As String
currentformName = Screen.ActiveForm.Name
Dim docidrefnoquery As String
Dim dociddefaultvalue As String
Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT ColA FROM TblA WHERE ColC = " & Forms(currentformName)![Combo25])
Do Until rs1.EOF = True
docidrefnoquery = rs1(0)
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
dociddefaultvalue = DLookup("RefNo", docidrefnoquery) 'RefNo here is the target column in the Query
Forms(currentformName)![MyCombo] = dociddefaultvalue 'MyCombo here is the Combobox Name
Debug.Print docidrefnoquery & " - " & dociddefaultvalue
End Functionon the targeted form, I use this code:
Code:
Private Sub Form_Load()
Call getSetRefNo
End Subafter opening the targeted form, I receive the above mentioned error. I don't know what's wrong I tried to trace everything and it seems to be fine, I used the same chunk of codes in other places and worked fine. don't know what's wrong here to be honest. I would be grateful if you could help me elaborate what's going on.
It's worth noting that instead of calling the function inside the form load, I tried putting the whole code inside the form's Load event, and the code would work fine and give proper result only if I define the form's name statically, or use Me.MyCombo = dociddefaultvalue instead.
