Code for button to open new form passing value

[cptNemo]

Hello,



I have a 8 forms referring to 8 tables. Tables are all related by the ID field (which is also the primary key) one-to-one to the ID fIeld of the first table.

At the end of each form I need to code the button to open the next form following this rules:

1) get the value of field ID of form 1;
2) open a new form;
3) look for value of ID from form 1 in ID in table 2:
If value exists load corresponding record in form 2
If value does not exist open new record in table 2 and pass value to field ID of form 2.

I am having some problems writing it... Any idea?

Thanks.

[cptNemo]

I came out with this code. Of course is not working, all sorts of logical/syntax mistakes...

Private Sub Command61_Click()

Dim localID As Integer
localID = Forms!SectionA.ID

If (DLookup("[ID]", "Section B", "[ID]" = localID) = Null) Then
DoCmd.OpenForm "SectionB"
DoCmd.GoToRecord acDataForm, "SectionB", acNewRec
Else
DoCmd.OpenForm "SectionB", , , "ID = localID"


End If


End Sub

[pbaldy]

For starters, nothing is "= Null". Try the IsNull() function.

[cptNemo]

Solved! See below

If (DLookup("ID", "Section B", "[ID] = '" & Me!ID & "'") = Null) Then
DoCmd.OpenForm "SectionB", acNormal, "", "", acAdd, acNormal
Forms![SectionB]![ID] = Me.[ID]

Else
DoCmd.OpenForm "SectionB", , , "ID = '" & Me!ID & "'"
End If