bonmot.srf
Registered User.
- Local time
- Today, 04:47
- Joined
- May 26, 2010
- Messages
- 11
This is a recurrent error that bugs the cr** out of me. Sometimes this form works great and then for some reason it fails.
The form's record source is a query which runs on an unbound field's Update event:
The 2105 error occurs when the form loads and it tries to setfocus on the queries input field "txtFieldID"
Private Sub Form_Load()
DoCmd.MoveSize 1, 1, 6600, 3400
txtFieldID.SetFocus
End Sub
Private Sub txtFieldID_AfterUpdate()
Me.Requery
DoCmd.OpenForm "frmFieldID", acNormal
Forms!frmFieldID.cboFieldID = Me.[txtFieldID]
Forms!frmFieldID.Requery
DoCmd.OpenForm "frmFieldIDStudyDirector", acNormal
'Forms!frmFieldIDStudyDirector.Requery
End Sub
Here's the query & a link to the database.
SELECT tblFieldIDsPRNUMsNumeric.FLD_ID, tblFieldIDsPRNUMsNumeric.PRNUM AS Project, tblFieldIDsPRNUMsNumeric.prnum_num, food_master.pesticide, food_master.commodity
FROM food_master INNER JOIN tblFieldIDsPRNUMsNumeric ON food_master.prnum=tblFieldIDsPRNUMsNumeric.prnum_num
WHERE (((tblFieldIDsPRNUMsNumeric.FLD_ID)=[forms]![frmFieldIDinput]![txtFieldID]));
http://wrir4.ucdavis.edu/data/fieldidtest.zip
Any ideas out there?
Thanks,
The form's record source is a query which runs on an unbound field's Update event:
The 2105 error occurs when the form loads and it tries to setfocus on the queries input field "txtFieldID"
Private Sub Form_Load()
DoCmd.MoveSize 1, 1, 6600, 3400
txtFieldID.SetFocus
End Sub
Private Sub txtFieldID_AfterUpdate()
Me.Requery
DoCmd.OpenForm "frmFieldID", acNormal
Forms!frmFieldID.cboFieldID = Me.[txtFieldID]
Forms!frmFieldID.Requery
DoCmd.OpenForm "frmFieldIDStudyDirector", acNormal
'Forms!frmFieldIDStudyDirector.Requery
End Sub
Here's the query & a link to the database.
SELECT tblFieldIDsPRNUMsNumeric.FLD_ID, tblFieldIDsPRNUMsNumeric.PRNUM AS Project, tblFieldIDsPRNUMsNumeric.prnum_num, food_master.pesticide, food_master.commodity
FROM food_master INNER JOIN tblFieldIDsPRNUMsNumeric ON food_master.prnum=tblFieldIDsPRNUMsNumeric.prnum_num
WHERE (((tblFieldIDsPRNUMsNumeric.FLD_ID)=[forms]![frmFieldIDinput]![txtFieldID]));
http://wrir4.ucdavis.edu/data/fieldidtest.zip
Any ideas out there?
Thanks,