If Statement

[MFS]

Hi everyone,
I have a checkbox and a textbox on a form.
I'm looking to have a message appear, when closing the form, to request the user to add data to the textbox if the checkbox has been checked, and vise versa.
Any help would be appreciated,

mikespeck

[June7]

Are you allowing users to close form with the X button or have you disabled it?

When I want to control how user leaves a form I disable the X and create a button that when clicked executes the form close command but only after conditions are met. If conditions not met the user is returned to form.

I only use VBA not macros.

Are you saying that if textbox has entry, the checkbox must be checked? Sounding like the checkbox is not needed.

[MFS]

Are you allowing users to close form with the X button or have you disabled it?


Are you saying that if textbox has entry, the checkbox must be checked? Sounding like the checkbox is not needed.

The X button is disabled, yes. And the checkbox is tied to other vba in the DB.
I am wanting to use a button to close the form but not sure how to write the VBA.
Mike

[June7]

In button Click event, something like:

If (IsNull(Me.textboxname) And Me.checkboxname = vbYes) Or (Not IsNull(Me.texboxname) And Me.checkboxname = vbNo) Then
MsgBox "something"
Else
DoCmd.CloseForm acForm, Me.Name
End If

[MFS]

My form name is "Passdown Entry"
Where would I enter that into your code: DoCmd.CloseForm acForm, Me.Name
I've tried entering it like, DoCmd.CloseForm acForm, Me.Passdown_Entry
Also, after reviewing the vba if the checkbox is checked and there is no data in the textbox I'm looking to have a message appear requesting: "Enter data into textbox".
If there is data in the textbox but the checkbox is not checked then I need a message saying: "Check Checkbox"
Just a little new to VBA

[June7]

Try something like this:
If IsNull(Me.textboxname) And Me.checkboxname = vbYes Then
MsgBox "Enter data into textbox"
ElseIf Not IsNull(Me.texboxname) And Me.checkboxname = vbNo Then
MsgBox "Check checkbox"
Else
DoCmd.Close acForm, Me.Name
End If

Do not change anything on the CloseForm line.
Name is a property of the form.
Me is shorthand for Form_formname or Forms!formname when code behind a form needs to reference that same form.
Me.Name is generic, don't have to be concerned with possibly misspelling name and could copy/paste this line to another form and the behavior would work for that form.
Otherwise would have to put the form's name within quote marks, like "Passdown Entry". Does the form name have an underscore or not? See, now have to be aware of spelling, Me alias gets around that and saves keystrokes.

[MFS]

Here's what I get: (Attached)

[June7]

Whoops (I fixed my previous post)!
DoCmd.Close acForm, Me.Name

The intellisense popup should have presented the correct syntax. Just have to get in the habit of paying attention to the popups as you type.

Or this:
If IsNull(Me.textboxname) And Me.checkboxname = vbYes Then
MsgBox "Enter data into textbox"
Exit Sub
ElseIf Not IsNull(Me.textboxname) And Me.checkboxname = vbNo Then
Me.checkboxname = vbYes
ElseIf IsNull(Me.textboxname) And Me.checkboxname = vbYes Then
Me.checkboxname = vbNo
End If
DoCmd.Close acForm, Me.Name

You might want to indent your code so it is easier to read. I didn't try to because am typing on the fly, not in VBA editor.

[MFS]

That fixed that problem but now when I click on the button nothing happens, using your original code:

[MFS]

Except closing the form

[June7]

You are missing the Else before DoCmd

Did the msgbox popup?

[MFS]

Attached is my VBA,
And there are no message boxes.
I do apologize for being such a pain.

[June7]

No, not a pain. I just need to get it right the first time.

I don't use checkboxes much and always have to relearn how to use them. Instead of vbYes or vbNo, simply True or False.

[MFS]

That was it, I want to thank-you for all of your help. Works great