Macro assistance

[terry6582]

Need a macro that will open a form (Vendor form) if a check box (Vendor) is checked on the existing form (attend entry) from a button that closed the form (attendee entry) if the condition is not met, closing and saving the form (attendee entry) and returning to the switchboard entry form.

If [vendor] is -1


open form (Vendor)
if [vendor] is 0
save form
close macro
goto switchboard form

Hope all that make sense.

I am just getting into macro and need help.

Terry
baldcamper@yahoo.com

[davegri]

For some reason you supplied pretty vague form and control names, so something like this:

public sub CloseForm_Click()
   Select case Vendor
        case true
            docmd.openform "Vendor Form"
            docmd.close acform, me.name
        case false
            docmd.openform "switchboard entry form"
            docmd.close acform, me.name
    end select
end sub

[terry6582]

Thanks for the prompt reply. Sorry the info was incomplete.

Here is the scenario in a little more detail.

Have a form (attendee entry form) which will be user will make data entry. The user may check a box for "vendor".

When data entry if completed, the user will then click a button to close and save the form. Then be returned to the main menu.

I "vendor" is checked on the "Attendee entry form, the user will be displayed a new form "Vendor Registration".

I would like to call a macro from the "close and save button on the Attendee entry form". this macro automate the decision based on the condition of the check box "vendor".

The database is well over 2G after compacting. Thus presents an issue with downloading.

I have it in a DropBox folder that can be shared with you of I have a good email address. It will send you a message with a link.

Terry
baldcamper

[davegri]

OK, the code I supplied will work. Just substitute your valid form names.
If you must have a macro, just follow these guidelines, using IF instead of Select Case:
This is also VBA, but more easily translated to a macro.

public sub CloseForm_Click()
   If vendor = true then
            docmd.openform "Vendor Registration"
            docmd.close acform, me.name
   else     
            docmd.openform "Main form"
            docmd.close acform, me.name
   end if
end sub