Hi All,
I have a form that I like to behave this way:
1. I have a form that has some fields like subj_num , Subj_date and etc….
2. Ideally I like to have the form to be open blank.
3. In this form I have a text field called “Text21” that is not bounded to any table’s fields.
4. Also I have a button that is called “Find records “ that is set on click to call the following code:
5. I setup the form property Sheet \data to :
Filters: left blank
Data entry: yes
Allow Additions: No
Allow Deletions: No
Allow edits No
Allow Filters: Yes
Let’s say I type 22 “Text21” filed and click on “Find records “button, then I get the following error:
Run-time error ‘-2147352567 (80020009)’:
You can’t assign a value to this object.
Can someone please advice
Thanks in advance,
Abrahim
I have a form that I like to behave this way:
1. I have a form that has some fields like subj_num , Subj_date and etc….
2. Ideally I like to have the form to be open blank.
3. In this form I have a text field called “Text21” that is not bounded to any table’s fields.
4. Also I have a button that is called “Find records “ that is set on click to call the following code:
Code:
Private Sub Command20_Click()
'Me.subj_num.SetFocus
Me.Text21.SetFocus
subj_num = Text21
DoCmd.FindRecord Me.subj_num, acEntier, True, acSearchAll, True, acCurrent, True
End Sub
5. I setup the form property Sheet \data to :
Filters: left blank
Data entry: yes
Allow Additions: No
Allow Deletions: No
Allow edits No
Allow Filters: Yes
Let’s say I type 22 “Text21” filed and click on “Find records “button, then I get the following error:
Run-time error ‘-2147352567 (80020009)’:
You can’t assign a value to this object.
Can someone please advice

Thanks in advance,
Abrahim