If statement vs loop need help

mdjks

Registered User.
Local time
Today, 01:27
Joined
Jan 13, 2005
Messages
96
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


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
 
Never mind, I figured it out. I moved my end if to the end of each segment and it runs like a charm.
 

Users who are viewing this thread

Back
Top Bottom