By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,968 Members | 1,247 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,968 IT Pros & Developers. It's quick & easy.

Code not working on network

P: n/a
The following code works great for me (a single PC); however, when I install
the front-end on the client's PC and the back-end on a network drive it is
not working -- ie, the Save and Undo buttons are not visible when editing an
existing record and when adding a new record.

I have a textbox on my form called txtEditModeChange (visible = no) and it's
ControlSource is
=[Form].[Dirty] & EditModeChange([Form])
Function EditModeChange(F As Form) As Variant
If F.Dirty Then
F!cmdSave.Visible = True
F!cmdUndo.Visible = True
F!cmdAdd.Visible = False
F!cmdDelete.Visible = False
F!cmdNext.Visible = False
F!cmdPrevious.Visible = False
F!ComboStudent.Enabled = False
Else
F!cmdSave.Visible = False
F!cmdUndo.Visible = False
F!cmdAdd.Visible = True
F!cmdDelete.Visible = True
F!cmdNext.Visible = True
F!cmdPrevious.Visible = True
F!ComboStudent.Enabled = True
End If
End Function

Private Sub Form_Dirty(Cancel As Integer)
Me!txtEditModeChange.Requery
End Sub

Private Sub Form_AfterUpdate()
Me!txtEditModeChange.Requery
End Sub

I'm not real network savvy so I don't understand why it works fine for me
but not for the client. Anybody have any suggestions?

Thanks in advance,
Debbie

Nov 13 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
When I edit something the txtEditModeChange textbox shows a -1, and a 0 when
it isn't being edited. The user sees #Name?. I don't understand why they
are getting an error.

This is Access XP.
"DebbieG" <debbieg@accessus-REMOVE-THIS-.net> wrote in message
news:uJ********************@accessus.net...
The following code works great for me (a single PC); however, when I install
the front-end on the client's PC and the back-end on a network drive it is
not working -- ie, the Save and Undo buttons are not visible when editing an
existing record and when adding a new record.

I have a textbox on my form called txtEditModeChange (visible = no) and it's
ControlSource is
=[Form].[Dirty] & EditModeChange([Form])
Function EditModeChange(F As Form) As Variant
If F.Dirty Then
F!cmdSave.Visible = True
F!cmdUndo.Visible = True
F!cmdAdd.Visible = False
F!cmdDelete.Visible = False
F!cmdNext.Visible = False
F!cmdPrevious.Visible = False
F!ComboStudent.Enabled = False
Else
F!cmdSave.Visible = False
F!cmdUndo.Visible = False
F!cmdAdd.Visible = True
F!cmdDelete.Visible = True
F!cmdNext.Visible = True
F!cmdPrevious.Visible = True
F!ComboStudent.Enabled = True
End If
End Function

Private Sub Form_Dirty(Cancel As Integer)
Me!txtEditModeChange.Requery
End Sub

Private Sub Form_AfterUpdate()
Me!txtEditModeChange.Requery
End Sub

I'm not real network savvy so I don't understand why it works fine for me
but not for the client. Anybody have any suggestions?

Thanks in advance,
Debbie

Nov 13 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.