Subform to automatically take Id

[joacro]

Hi there,

I got a form with a subform on.
The form is for clients
The subform is for notes


On the subform there is the following
ID, ClientID, Date Capture, Note
I have created a button to add a note. The button brings up the note form.
Say I am in Piet's(my client) form and wishes to add a note. I press the button and up comes the notes form. Now I need to enter all the detail,
What can I do to automatically add the ClientID(piet's) in the ClientID field.

Currently I need to choose it from the combo box.

Thank in advance

[RuralGuy]

Maybe this link will help: http://www.baldyweb.com/OpenArgs.htm

[joacro]

Hi there,
Thank you for the quick reply.

I can't get it to work.

My forms name is Broker
My subform is Brokers Assistant

When I select Add Assistant the Brokers assistant form pops up

The value that I need to have pre-entered is
BrokerID which is on the main form named Broker

What I did is:

Click on Add Assistant - on click event
Private Sub cmdaddass_Click()
If Me.NewRecord Then
DoCmd.OpenForm "Brokers Assistant"
Else
DoCmd.OpenForm "Brokers Assistant", , , , , , Me.BrokerID & ""
End If
End Sub


And on the Brokers Assistant form on load event
Private Sub Form_Load()
Dim strBrokersAssistant() As String
If Not IsNull(Me.BrokersAssistant) Then
strBrokersAssistant = Split(Me.BrokersAssistant, ";")
Me.BrokerID = strBrokersAssistant(0)

Else
Me.txtOtherInfo = "Unknown"
End If
End Sub

It doesn't seem right,

Hope someone will be able to help me

[RuralGuy]

Remove the trailing quotes:
DoCmd.OpenForm "Brokers Assistant", , , , , , Me.BrokerID & ""
...should be:
DoCmd.OpenForm "Brokers Assistant", , , , , , Me.BrokerID
.
Then the receiving form code should be:

Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
   Me.BrokerID = Me.OpenArgs
Else
   Me.txtOtherInfo = "Unknown"
End If

End Sub