AllowEdits

  • Thread starter Thread starter lhtan123
  • Start date Start date
L

lhtan123

A form is disabled for editing on load by using "Me.AllowEdits = false".

Editing is enabled when a user clicks on a label called "Edit". Below is
what I intend to do:

Private Sub lblEdit_Click()

If Me.lblEdit.Caption = "Edit" Then
Me.AllowEdits = True
Me.lblEdit.Caption = "Disable Edit"
Else
If Me.lblEdit.Caption = "Disable Edit" Then
Me.AllowEdits = False
Me.lblEdit.Caption = "Edit"
End If
End If
End Sub

*************
The first block of "IF" statement works but not the second one.

When I clicked on the label with "Disable Edit", the form is still editable.
How could I disable it ?

Regards
LH
 
hi,
The first block of "IF" statement works but not the second one.
When I clicked on the label with "Disable Edit", the form is still editable.
How could I disable it ?
Click to expand...
It works, basically, but I think your label text is irritating.

Change your code:

If Not Me.Dirty Then
Me.AllowEdits = Not Me.AllowEdits
If Me.AllowEdits Then
lblEdit.Caption = "Edit Enabled"
Else
lblEdit.Caption = "Edit Disabled"
End If
End if

The first condition ensures that you don't switch the mode while you are
editing something. If you want to save data from an ongoing editing
process use this:

On Local Error GoTo LocalError

If Not Me.Dirty Then
Me.Dirty = False
End If

Me.AllowEdits = Not Me.AllowEdits
If Me.AllowEdits Then
lblEdit.Caption = "Edit Enabled"
Else
lblEdit.Caption = "Edit Disabled"
End If

Exit Sub

LocalError:
MsgBox "Cannot save data." & vbCrLf & Err.Description


mfG
--> stefan <--
 
Try

Private Sub lblEdit_Click()

If Me.lblEdit.Caption = "Edit" Then
Me.AllowEdits = True
Me.lblEdit.Caption = "Disable Edit"
Else
Me.AllowEdits = False
Me.lblEdit.Caption = "Edit"
End If

End Sub
 
Back
Top