if statement

[joym]

I have created a form to edit information that was created earlier in another form. The edit form has a few more fields then the initial form used to enter information. Before the record is updated i wanted to verify that all information has been input in each field so i created the following code.

    

if IsNull (Me.[Resolution Time Frame]) then
MsgBox "Please Click on Resolution Time Frame", vbCritical, "Incomplete details"
      
ElseIf IsNull(Me.Service_Person) Then
MsgBox "Please Enter the Technician who worked on the fault", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Cause) Then
MsgBox "Please enter the cause of fault identified by the technician ", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Solution) Then
MsgBox "Please enter the the solution used to fix the fault", vbCritical, "Incomplete details"
   

Else
DoCmd.Save
End If
 
End Sub

how ever i only want the above code to run if field "status" is equal to "Closed" or Resolved"

if Status is equal to anything else then bypass the above code and save

[June7]

So do a nested If Then Else. What event do you have this code in?

If Me.status = "Closed" or Me.status = "Resolved" Then
'do this
Else
'run your original code
End If

[joym]

So do a nested If Then Else. What event do you have this code in?

If Me.status = "Closed" or Me.status = "Resolved" Then
'do this
Else
'run your original code
End If

I did think of that logic however i am a bit confused of the statement to use after the first then.

Private Sub btn_update_Click()

If Me.status = "Closed" or Me.status = "Resolved" Then 

if IsNull (Me.[Resolution Time Frame]) then
MsgBox "Please Click on Resolution Time Frame", vbCritical, "Incomplete details"
      
ElseIf IsNull(Me.Service_Person) Then
MsgBox "Please Enter the Technician who worked on the fault", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Cause) Then
MsgBox "Please enter the cause of fault identified by the technician ", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Solution) Then
MsgBox "Please enter the the solution used to fix the fault", vbCritical, "Incomplete details"
   

Else
DoCmd.Save
End If
 
End Sub

Or

Private Sub btn_update_Click()

If Me.status = "Closed" or Me.status = "Resolved" Then 

IsNull (Me.[Resolution Time Frame]) then
MsgBox "Please Click on Resolution Time Frame", vbCritical, "Incomplete details"
      
ElseIf IsNull(Me.Service_Person) Then
MsgBox "Please Enter the Technician who worked on the fault", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Cause) Then
MsgBox "Please enter the cause of fault identified by the technician ", vbCritical, "Incomplete details"
   
ElseIf IsNull(Me.Solution) Then
MsgBox "Please enter the the solution used to fix the fault", vbCritical, "Incomplete details"
   

Else
DoCmd.Save
End If
End Sub

[June7]

Oops, looks like I had it backwards and possibly you don't need to do anything if that criteria is not met. Code is easier to follow if you use indentation.

Private Sub btn_update_Click()

If Me.status = "Closed" or Me.status = "Resolved" Then 

    IsNull (Me.[Resolution Time Frame]) Then
        MsgBox "Please Click on Resolution Time Frame", vbCritical, "Incomplete details"
      
    ElseIf IsNull(Me.Service_Person) Then
        MsgBox "Please Enter the Technician who worked on the fault", vbCritical, "Incomplete details"
   
    ElseIf IsNull(Me.Cause) Then
        MsgBox "Please enter the cause of fault identified by the technician ", vbCritical, "Incomplete details"
   
    ElseIf IsNull(Me.Solution) Then
        MsgBox "Please enter the solution used to fix the fault", vbCritical, "Incomplete details"

    Else
        DoCmd.RunCommand acCmdSaveRecord

    End If

Else
    'do something here if you want to, maybe a MsgBox
End If

End Sub

If what you want to save is the record, then note the change in code to do that.