The statement runs when all fields are null to start. However, if I "X" a field out it runs to that point and then end if. I guess I need a loop but I am not sure how to write it.
Any guidance would be appreciated.
Access 2000
Any guidance would be appreciated.
Access 2000
Code:
Private Sub All_Click()
DoCmd.SetWarnings False
If IsNull(Me.PreProcUpdate.Value) Then
PreprocessEmail
Me.PreProcUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.WMUpdates.Value) Then
WMEmail
Me.WMUpdates.Value = Now()
Me.Requery
Else
If IsNull(Me.FlineUpdate.Value) Then
FreightlinerEmail
Me.FlineUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.MackUpdate.Value) Then
MackEmail
Me.MackUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.AmrepUpdate.Value) Then
AmrepEmail
Me.AmrepUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.GalbUpdate.Value) Then
GalbreathEmail
Me.GalbUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.HeilUpdate.Value) Then
HeilEmail
Me.HeilUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.McNUpdate.Value) Then
McNeilusEmail
Me.McNUpdate.Value = Now()
Me.Requery
Else
If IsNull(Me.WittkeUpdate.Value) Then
WittkeEmail
Me.WittkeUpdate.Value = Now()
Me.Requery
Else
FinalEmail
Me.AllUpdate.Value = Now()
Me.Requery
End If
End If
End If
End If
End If
End If
End If
End If
End If
DoCmd.SetWarnings True
Set clsSendObject = Nothing
End Sub