Passing Autonumber to Linked Form

G

Guest

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
 
G

Guest

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function
 
G

Guest

Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

Cindy said:
Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

Klatuu said:
Forms!resumes!SomeControl = Me.SomeControl
Click to expand...
Click to expand...
 
G

Guest

Where do I put that code?

Klatuu said:
Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

Cindy said:
Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

Klatuu said:
Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

When do you want it to happen?


Cindy said:
Where do I put that code?

Klatuu said:
Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

Cindy said:
Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

When I open the "resume" form from the "candidates" form

Klatuu said:
When do you want it to happen?


Cindy said:
Where do I put that code?

Klatuu said:
Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

:

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

I think you might want to do it here.

Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Forms![Resume]!CandidateID = Me.CandidateID
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub


Cindy said:
When I open the "resume" form from the "candidates" form

Klatuu said:
When do you want it to happen?


Cindy said:
Where do I put that code?

:

Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

:

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

Thank you, I'll try that.

Klatuu said:
I think you might want to do it here.

Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Forms![Resume]!CandidateID = Me.CandidateID
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub


Cindy said:
When I open the "resume" form from the "candidates" form

Klatuu said:
When do you want it to happen?


:

Where do I put that code?

:

Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

:

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

It still isn't working ... any other suggestions?

Cindy said:
Thank you, I'll try that.

Klatuu said:
I think you might want to do it here.

Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Forms![Resume]!CandidateID = Me.CandidateID
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub


Cindy said:
When I open the "resume" form from the "candidates" form

:

When do you want it to happen?


:

Where do I put that code?

:

Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

:

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

Disregard. I got it working. Thanks for your help.

Cindy said:
It still isn't working ... any other suggestions?

Cindy said:
Thank you, I'll try that.

Klatuu said:
I think you might want to do it here.

Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Forms![Resume]!CandidateID = Me.CandidateID
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub


:

When I open the "resume" form from the "candidates" form

:

When do you want it to happen?


:

Where do I put that code?

:

Your code appears to be be correct.
You original question had nothing to do with what you have here. You asked
now to get the value of a control on one form into another.

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?

The code I posted will do that.

:

Sorry, I'm not as savvy as you. This is the code that links the form ... can
you tell me where it change it?

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Resume].DataEntry = True
Else
Forms![Resume].Filter = "[Candidate ID] = " & Me.[Candidate ID]
Forms![Resume].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Resume"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Resume"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Resume") And
acObjStateOpen) <> False

End Function

:

Forms!resumes!SomeControl = Me.SomeControl

:

I apologize to those who tried to help me when I was calling it a "subform"
instead of a "linked form".

I have a form (candidates) and a linked form (resumes). I am trying to pass
the autonumber primary key (Candidate ID) on the first form to the same field
on the Resume form. How can this be done?
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Passing an autonumber field to the subform 11
Acess 2003 - Form / SubForm linked fields 5
Automation object? 7
List subform items on main form 2
autonumber and subform 1
how to double click a list box item to add to subform 6
Linked, Separate Subform 10
AutoNumber versus form record number 2

Top