Brian Martin
Registered User.
- Local time
- Today, 04:26
- Joined
- Jul 24, 2002
- Messages
- 68
I have created a button on one of the forms in my database that works perfectly on my computer under my admin login. It also works perfectly on my computer under other users logins. But if I try on any other computer on the network even with my admin login it doesn't work. Each computer has the same version of Access 2002 and all have windows XP. This is the only time this has happened. Any ideas on what might be wrong. This is the code behind the button:
Private Sub Save_Click()
[Forms]![frmStore]![Trace].SetFocus
If [Forms]![frmStore]![Trace].Text = "T-***" Then
DoCmd.OpenQuery "qryReceived", acViewNormal, acEdit
DoCmd.OpenQuery "qryTraceQty", acViewNormal, acEdit
DoCmd.OpenQuery "qryDate2", acViewNormal, acEdit
Else
If Forms![frmStore]![Trace].Text = "N/A" Then
DoCmd.OpenQuery "qryReceived", acViewNormal, acEdit
DoCmd.OpenQuery "qryDate2", acViewNormal, acEdit
DoCmd.OpenQuery "qryUntrace", acViewNormal, acEdit
DoCmd.OpenQuery "qryCounter", acViewNormal, acEdit
End If
End If
DoCmd.Close
[Forms]![frmStore].Requery
[Forms]![frmStore]![comboJob].Requery
End Sub
Private Sub Save_Click()
[Forms]![frmStore]![Trace].SetFocus
If [Forms]![frmStore]![Trace].Text = "T-***" Then
DoCmd.OpenQuery "qryReceived", acViewNormal, acEdit
DoCmd.OpenQuery "qryTraceQty", acViewNormal, acEdit
DoCmd.OpenQuery "qryDate2", acViewNormal, acEdit
Else
If Forms![frmStore]![Trace].Text = "N/A" Then
DoCmd.OpenQuery "qryReceived", acViewNormal, acEdit
DoCmd.OpenQuery "qryDate2", acViewNormal, acEdit
DoCmd.OpenQuery "qryUntrace", acViewNormal, acEdit
DoCmd.OpenQuery "qryCounter", acViewNormal, acEdit
End If
End If
DoCmd.Close
[Forms]![frmStore].Requery
[Forms]![frmStore]![comboJob].Requery
End Sub