Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Private Sub tbPOID_Exit(Cancel As Integer) Dim strMsg, iResponse As String If IsNull(Me.tbPOID) Or Me.tbPOID = "" Then Me.tbPOID = "Null" End If Select Case Me.tbPOID Case "Null" MsgBox ("Null or Empty") Me.tbPOID = "P" Me.cbCompany.SetFocus Case "P" Me.cbCompany.SetFocus Case Else strMsg = "You entered '" & Me.tbPOID & "' as a new Order." & _ vbCrLf & "Is this correct?" iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "New Order?") If iResponse = vbNo Then Cancel = True ' Cancel exit. Exit Sub Else Exit Sub ' Save and continue. End If End Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.