D
DebbieG
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
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