D
D
Hi:
I have this code in a form; can you please tell me how can I make the
records that allow edits to have all the fields mandatory (cannot go to the
next one until the previous is properly entered)
Thank you,
Dan
Private Sub Form_Current()
If Me!RecType = "fy08a" Then
Me.AllowEdits = False
Me.AllowDeletions = False
'MsgBox ("FY08 Actuals; this record is read only. Please click OK and
navigate to the next record")
ElseIf Me!RecType = "fy09b" Then
Me.AllowEdits = False
Me.AllowDeletions = False
'MsgBox ("FY09B Budget; this record is read only. Please click OK and
navigate to the next record")
Else
Me.AllowEdits = True
Me.AllowDeletions = True
End If
I have this code in a form; can you please tell me how can I make the
records that allow edits to have all the fields mandatory (cannot go to the
next one until the previous is properly entered)
Thank you,
Dan
Private Sub Form_Current()
If Me!RecType = "fy08a" Then
Me.AllowEdits = False
Me.AllowDeletions = False
'MsgBox ("FY08 Actuals; this record is read only. Please click OK and
navigate to the next record")
ElseIf Me!RecType = "fy09b" Then
Me.AllowEdits = False
Me.AllowDeletions = False
'MsgBox ("FY09B Budget; this record is read only. Please click OK and
navigate to the next record")
Else
Me.AllowEdits = True
Me.AllowDeletions = True
End If