I cannot change or input information on a form?

R

Rebecca J

I have used a form to vreate an expense report and now when I want to go back
and add/modify info I cannot get to record. I am using Windows XP.
 
J

John Vinson

I have used a form to vreate an expense report and now when I want to go back
and add/modify info I cannot get to record. I am using Windows XP.
Click to expand...

What program on WindowsXP? The operating system is almost completely
irrelevant to the question. Are you using an Access database, a Word
document, or what? How are you trying to "get to the record"?

John W. Vinson[MVP]
 
R

Rebecca J

I am using an access data base . I go to the record I want and click on
expense report form and error reads "You can't use find of Replace now"
 
J

John Vinson

I am using an access data base . I go to the record I want and click on
expense report form and error reads "You can't use find of Replace now"
Click to expand...

"Click on expense report form"? Is this a command button on your form,
or what? There is clearly some programming (not a native part of
Access) involved here, and it's either not working correctly or
perhaps you're not using it correctly.

Please open this Form in design view. Select the command button that
you're clicking (if that's what you're clicking) and view its
Properties. Click on the ... icon by the On Click property (on the
Events tab) and copy and paste the code you'll see to a message here.
We may have other questions about the structure of your database
(which, remember, we cannot see) but that should give someone a place
to start.

John W. Vinson[MVP]
 
R

Rebecca J

Err_Form_Activate:
MsgBox Err.Description
Resume Exit_Form_Activate
End Sub
Private Sub ExpenseReport_Click()
On Error GoTo Err_ExpenseReport_Click
If IsNull(Me![EmployeeID]) Then
MsgBox "Enter employee before entering expense report."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Expense Reports"
End If

Exit_ExpenseReport_Click:
Exit Sub

Err_ExpenseReport_Click:
MsgBox Err.Description
Resume Exit_ExpenseReport_Click
End Sub

Rebecca J
 
J

John Vinson

Err_Form_Activate:
MsgBox Err.Description
Resume Exit_Form_Activate
End Sub
Private Sub ExpenseReport_Click()
On Error GoTo Err_ExpenseReport_Click
If IsNull(Me![EmployeeID]) Then
MsgBox "Enter employee before entering expense report."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Click to expand...

Try changing this last line to

DoCmd.RunCommand acCmdSaveRecord

John W. Vinson[MVP]
 
Top