Passing Values

[Steven19]

Hello all

I'm creating a database, but doing it a slightly different way than I have done in the past and I have encountered an issue I've not had before.

I have a main Menu, the main Menu button to Add new Employee Opens the Very First Form to add a new employee

The First Screen is where the company selects a company name from the list, and then moves to the next page to select a subsequent department. Sounds easy.

The relationships are:
tblCompanyName -
PK = CompanyNameID
Txt - CompanyName - unbound combobox on the form

The person updating clicks on the next button after selecting the companyname from the combo box CompanyName

DoCmd.OpenForm "frmAddNewEmployeeDepartment",,,[CompanyNameId] = " & Me![CompanyName],,,Me!CompanyName

Then on Open.

If Me.OpenArgs <> "" then
If Me![CompanyNameID].DefaultValue = "" Me.OpenArgs & ""
End If

The follow on page is the department in the company.
tblCompanyDepartment -
PK = CompanyDepartment
FK - CompanyNameID
Txt - CompanyDepartment

The follow on from this is the employee. I All my subsequent forms open fine and pass the openargs to the relevant tables and relationships all work, its just the very first step I'm stuck with.

When I am in the tblCompanyName - even though the PK is linked to the FK 1 to many, for tblCompanyDepartment, there is no value in tblCompanyName



Can someone suggest a solution as my queries will not pull down reports as the first table is blank.

Regards

[CJ_London]

struggling to follow your description - what is 'first screen' and 'next page'

But from what you are describing can be achieved with what are referred to as cascading combos. All on one form

[Steven19]

Hi Cj

First screen - is actually my first form.

Next Page - is the new form a user moves to.

I understand cascading combos, one of my previous databases does have several of them, but the user wishes to have one form (page) per selection. Form, 1, Select Company, Form 2, Select Department, Form 3, Enter Employee, Form 4, Select Job Title, and so on.

[CJ_London]

this line in your open events seems to have a extra if

If Me![CompanyNameID].DefaultValue = "" Me.OpenArgs & ""


but that would have generated an error on compilation

[Steven19]

I'm not sure where that came from I did a copy and paste and the second if is not in the code I have - that is not the issue.

[Gicu]

What is the row source of the unbound combo on the first form? Does it have two columns (CompanyID and CompanyName) with the first column hidden and set as the bound column?

Cheers,

[Steven19]

The row source of the unbound combo on the first form is tblCompanyName (the first column is hidden and the set as the bound column. As you would expect.

[CJ_London]

I'm not sure where that came from I did a copy and paste and the second if is not in the code I have - that is not the issue.

perhaps there is something wrong with your copy/paste since

Me![CompanyNameID].DefaultValue = "" Me.OpenArgs & ""

is not valid syntax and would be highlighted red as such

if the companynameID field is a string then valid code would be

Me![CompanyNameID].DefaultValue = "'" & Me.OpenArgs & "'"
or
Me![CompanyNameID].DefaultValue = """ & Me.OpenArgs & """""

and if a number

Me![CompanyNameID].DefaultValue = Me.OpenArgs

[moke123]

is not valid syntax and would be highlighted red as such

Do you have Option Explicit declared in All of your code modules?

[Gicu]

Hi Steve,
Have you made any changes to the code you showed in the original post? Can you please post what you have now (in both procedures) and what the exact problem is?
I don't think you want to set the DefaultValue property as that would apply for new entries only, I believe you want to actually populate the control with the passed value:

Me.CompanyNameID = Me.OpenArgs

Cheers,