variable not defined(on lost focus to a combo box, prompt message)

rockdc1981

Expand|Select|Wrap|Line Numbers

 Private Sub Combo42_LostFocus()

' Display message if Combo38 is blank.

    Dim strMsg As String, strTitle As String

    Dim intStyle As Integer

    If IsNull(Me!Combo73) Or Me!Combo42 = "" Then

        strMsg = "You Must Add or Select Record."

        strTitle = "Select or Add Record"

        intStyle = vbOKOnly

        MsgBox strMsg, intStyle, strTitle

    Cancel = True

    End If

End Sub

rockdc1981

please tell me whats wrong with this code,,, vb highlights Cancel+false ang gives error message that variable is not defined

NeoPa

This is NOT an article.
I'm moving this to the main Access questions forum.

MODERATOR.

NeoPa

Quote:

Originally Posted by rockdc1981

Expand|Select|Wrap|Line Numbers

 Private Sub Combo42_LostFocus()

' Display message if Combo38 is blank.

    Dim strMsg As String, strTitle As String

    Dim intStyle As Integer

    If IsNull(Me!Combo73) Or Me!Combo42 = "" Then

        strMsg = "You Must Add or Select Record."

        strTitle = "Select or Add Record"

        intStyle = vbOKOnly

        MsgBox strMsg, intStyle, strTitle

    Cancel = True

    End If

End Sub

This code must have been taken from an event procedure (like a _BeforeUpdate()) which has the ability to cancel. The _LostFocus() event procedure doesn't have that ability so doesn't define a Cancel parameter. You refer to a non-existent parameter.

JConsulting

replace your Cancel = true with

me.mycombobox.setfocus.

this will return the user to the combo box so that a value can be selected.
J

variable not defined(on lost focus to a combo box, prompt message)

re: variable not defined(on lost focus to a combo box, prompt message)

re: variable not defined(on lost focus to a combo box, prompt message)

re: variable not defined(on lost focus to a combo box, prompt message)

re: variable not defined(on lost focus to a combo box, prompt message)

/bytes/development

/bytes/it

/bytes/about