Revise code

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")
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/14001-revise-code.html
= vbRetry Then
Me.[TA Number].SetFocus
Exit Sub
Else
Me.Undo
DoCmd.Close acForm, Me.Name, acSaveNo
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14001
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

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

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

"Chey" wrote in message
news:E9FAEBD2-0385-4956-B6D4-E521CD02B229@microsoft.com...
>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."
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14001
> If MsgBox(strMsg, vbRetryCancel + vbExlcamation, "Incomplete Data")
> = vbRetry Then
> Me.[TA Number].SetFocus
> Exit Sub
> Else
> Me.Undo
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14001
> 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

no, but you can use vbYesNo & test for vbYes instead
Also revise the text in accordance
it should also suffice to use:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14001
If IsNull(Me.[TA Number].Value Then
instead of the Nz in this case

Pieter
And your question was more understandable this time

"Chey" wrote in message
news:E9FAEBD2-0385-4956-B6D4-E521CD02B229@microsoft.com...
>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



--
----------------------------------------
I am using the free version of SPAMfighter for private users.
It has removed 4367 spam emails to date.
Paying users do not have this message in their emails.
Get the free SPAMfighter here: http://www.spamfighter.com/len
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14001