Multiple Forms carrying forward data

[adams.bria]

Here is what I would like to do. I have a "client center" where you bring up the demo data on a client. On frm_cli_center, I have buttons to open 4 different forms. When a button is clicked, I would like it to open the form, carrying forward the empl_id of the current record on the client center. If that empl_id already exists, I want it to open with the data that was already entered. Any help?

[June7]

What you want requires code. I use only VBA (no macros). However, never actually had to code something like this.

The code would have to check if record exists and if not, open form (or move) to new record. The trick is figuring how and in what event to check for the existing record.

Did you consider form/subform arrangement instead?

Do you want to provide project for analysis?

[adams.bria]

What you want requires code. I use only VBA (no macros). However, never actually had to code something like this.

The code would have to check if record exists and if not, open form (or move) to new record. The trick is figuring how and in what event to check for the existing record.

Did you consider form/subform arrangement instead?

Do you want to provide project for analysis?

So it won't let me upload because it is larger than 500 kb? I have deleted everything except the neccessaities and it is still 1.5mb

[June7]

Zip it with Windows Compression. Up to 2mb zip allowed.

[adams.bria]

Zip it with Windows Compression. Up to 2mb zip allowed.

Here it is.


dbd.zip

[June7]

Description in your post doesn't quite match the db. No form named frm_cli_center, I find frmClient_Center and it has only 3 buttons, not 4.

This would be so simple if you used form/subform arrangement. No code. The forms you want to open could each be placed on a page of a tab control.

Code to check if client in Consent table and open form to existing or new record something like:

If Not IsNull(DLookup("ClientID", "tbl_Consent", "Client_ID='" & Me!Client_ID & "'")) Then
DoCmd.OpenForm "frm_consent", acNormal, , "Client_ID='" & Me!Client_ID & "'")
Else
DoCmd.OpenForm "frm_consent", acNormal, , , acFormAdd
End If