It is long now, so I have color code it here on the forums to make it easier to group. The blue code has to do with my BOA stuff and it is all working fine. The black is related to SBIRS and is working fine, the red is also related to SBIRS and it is the portion that I need to be triggered by the SBIRS Nominal or Off Nominal combo box. The black after the red text is the submit button you made and it is working fine as well.
Code:
Option Compare Database
Private Sub EventCombo_AfterUpdate()
ScenarioCombo.Requery
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOAOperator) Then
MsgBox "Please select a BOA Operator", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOATracksExpected) Then
MsgBox "Please enter the number of Tracks Expected for BOA", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOATracksReceived) Then
MsgBox "Please enter the number of Tracks Received for BOA", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOATracksProcessed) Then
MsgBox "Please enter the number of Tracks Processed by BOA", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOATracksReleased) Then
MsgBox "Please enter the number of Tracks Released by BOA", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.BOARunResults = "Nominal" Or Me.BOARunResults = "Off Nominal") And IsNull(Me.BOAComms) Then
MsgBox "Please select the comms type that was used for BOA", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSSIMOperator) Then
MsgBox "Please select a SBIRS SIM Controller", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSTracksExpected) Then
MsgBox "Please enter the number of Tracks Expected for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSTracksReceived) Then
MsgBox "Please enter the number of Tracks Received for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSTracksProcessed) Then
MsgBox "Please enter the number of Tracks Processed for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSTracksReleased) Then
MsgBox "Please enter the number of Tracks Released for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSUnscripted) Then
MsgBox "Please enter the number of Unscripted Boosters for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If (Me.SBIRSRunResults = "Nominal" Or Me.SBIRSRunResults = "Off Nominal") And IsNull(Me.SBIRSComms) Then
MsgBox "Please select the comms type that was used for SBIRS", vbInformation, "Atention!"
Cancel = True
Exit Sub
End If
If Len(Nz(Me.SBIRSWorkstation1, "") & Nz(Me.SBIRSWorkstation2, "") & Nz(Me.SBIRSWorkstation3, "") & _
Nz(Me.SBIRSWorkstation4, "") & Nz(Me.SBIRSWorkstation5, "")) = 0 Then
MsgBox "Please select an Operator for the SBIRS Workstation that was used", vbInformation, "Atention!"
Cancel = True
Me.SBIRSWorkstation1.SetFocus
Exit Sub
End If
End Sub
Private Sub SubmitRSButton_Click()
On Error GoTo Err_Handler
Me.Dirty = False
If MsgBox("Record has been submitted! Do you want to go to a new record?", vbYesNo, "New record?") = vbYes Then
DoCmd.GoToRecord , , acNewRec
End If
Exit_Here:
Exit Sub
Err_Handler:
If Err.Number = 3021 Then
'ignore or message
Else
MsgBox Err.Number & " " & Err.Description
End If
Resume Exit_Here
End Sub