Revise code

[Chey]

I have this code
Private Sub Form_Open(Cancel As Integer)
Dim strMsg As String
If (Nz(Me.[TA Number], "") = "") Then
strMsg = "No Travels to Approve."
If MsgBox(strMsg, vbRetryCancel + vbExlcamation, "Incomplete Data")
= vbRetry Then
Me.[TA Number].SetFocus
Exit Sub
Else
Me.Undo
DoCmd.Close acForm, Me.Name, acSaveNo
Exit Sub
End If
End If
DoCmd.OpenForm "Appoved"
End Sub

Instead of it saying retry cancel. Can I have it say go to approval or okay?

This will make more sense to the person operating it.
Thanks
Chey

 

[Pieter Wijnen]

no, but you can use vbYesNo & test for vbYes instead
Also revise the text in accordance
it should also suffice to use:
If IsNull(Me.[TA Number].Value Then
instead of the Nz in this case

Pieter
And your question was more understandable this time <g>

 

[Pieter Wijnen]

no, but you can use vbYesNo & test for vbYes instead
Also revise the text in accordance
it should also suffice to use:
If IsNull(Me.[TA Number].Value Then
instead of the Nz in this case

Pieter
And your question was more understandable this time <g>

I have this code
Private Sub Form_Open(Cancel As Integer)
Dim strMsg As String
If (Nz(Me.[TA Number], "") = "") Then
strMsg = "No Travels to Approve."
If MsgBox(strMsg, vbRetryCancel + vbExlcamation, "Incomplete Data")
= vbRetry Then
Me.[TA Number].SetFocus
Exit Sub
Else
Me.Undo
DoCmd.Close acForm, Me.Name, acSaveNo
Exit Sub
End If
End If
DoCmd.OpenForm "Appoved"
End Sub

Instead of it saying retry cancel. Can I have it say go to approval or
okay?

This will make more sense to the person operating it.
Thanks
Chey

--