G
Guest
I have many forms (about 50) with the same code.
How to call this code from module or prodedure?
Thanks!
Here is code:
--------------------------------
Private Sub Form_Current()
If CurrentProject.AllForms("GLAVNI_IZBORNIK").IsLoaded Then
Me.AllowEdits = True
Me.AllowDeletions = True
If Me.Datum <= Date - 1 Then
Me.AllowEdits = False
Me.AllowDeletions = False
Else
End If
If CurrentProject.AllForms("CheckMenu").IsLoaded Then
If [Forms]![CheckMenu]![chkEditOk] Then
Me.AllowEdits = True
Me.AllowDeletions = True
End If
End If
End If
End Sub
How to call this code from module or prodedure?
Thanks!
Here is code:
--------------------------------
Private Sub Form_Current()
If CurrentProject.AllForms("GLAVNI_IZBORNIK").IsLoaded Then
Me.AllowEdits = True
Me.AllowDeletions = True
If Me.Datum <= Date - 1 Then
Me.AllowEdits = False
Me.AllowDeletions = False
Else
End If
If CurrentProject.AllForms("CheckMenu").IsLoaded Then
If [Forms]![CheckMenu]![chkEditOk] Then
Me.AllowEdits = True
Me.AllowDeletions = True
End If
End If
End If
End Sub