Jump to Record

[control1]

Hi All - wondering if anyone can help.



I've got a form used for data input. I want a user to be able to input the data on Form 1, and then click a button to "Save and Open" the record in another form (Form 2) (which contains different options/data).

At present I've got the button on the form, and when a user clicks the 'Save and Open' button - it loads my Form 2 - but doesn't jump to that record.

The code i have is:

 Private Sub btnSaveOpen_Click()
DoCmd.Save
DoCmd.OpenForm "frmViewIssue", , , "[ID] = " & Me.ID
Me.Requery
End Sub

Can anyone help?

Many thanks,

Leigh

[ranman256]

This is how to do it.
providing ID is the name of the textbox in me.ID
This works everytime.
me.requery is not needed.

[Bob Fitz]

Hi All - wondering if anyone can help.

I've got a form used for data input. I want a user to be able to input the data on Form 1, and then click a button to "Save and Open" the record in another form (Form 2) (which contains different options/data).

At present I've got the button on the form, and when a user clicks the 'Save and Open' button - it loads my Form 2 - but doesn't jump to that record.

The code i have is:

 Private Sub btnSaveOpen_Click()
DoCmd.Save
DoCmd.OpenForm "frmViewIssue", , , "[ID] = " & Me.ID
Me.Requery
End Sub

Can anyone help?

Many thanks,

Leigh

Is Me.ID holding a number or text

What message do you get if you use:

 Private Sub btnSaveOpen_Click()DoCmd.Save
DoCmd.OpenForm "frmViewIssue", , , "[ID] = " & Me.ID
Msgbox Me.ID
Me.Requery End Sub

[Bulzie]

Not sure it matters but take space out after the last comma? And as others asked, is that ID text or numeric?

DoCmd.OpenForm "frmViewIssue", , ,"[ID] = " & Me.ID

[control1]

Thanks to all replies. I've tried taking that out Bulzie but still not working.
No error message shown Bob Fitz.

It's an Auto Number...

Here's the field info. It basically adds "ECC1" as a prefix to the ID.


When I press the button it opens the form, and just displays "New" on the new form.....

[Bulzie]

If the value of Me.ID in the top form 189 or ECC189?

[Bob Fitz]

I didn't expect you to get an Error Message.
The inclusion of the line:

Msgbox Me.ID

will make a message box open and display the value of Me.ID
So I ask again, What message do you get?

[control1]

If the value of Me.ID in the top form 189 or ECC189?

It's actually "89". The AutoNumber format adds "ECC1" to the record.

[control1]

I didn't expect you to get an Error Message.
The inclusion of the line:

Msgbox Me.ID

will make a message box open and display the value of Me.ID
So I ask again, What message do you get?

Apologies, I see now.

The message box shows as "91" (I'd created a few new record)

[Bob Fitz]

Perhaps something like:

DoCmd.OpenForm "frmViewIssue", , , "[ID] = """ECC1" & Me.ID & """

[Bulzie]

In your table the ID field is 91 or ECC91?

[control1]

Perhaps something like:

DoCmd.OpenForm "frmViewIssue", , , "[ID] = """ECC1" & Me.ID & """

Thanks for your suggestion Bob. When I enter this, I get a compile error message - probably something really simple, but as a novice I can't see what...!

[control1]

In your table the ID field is 91 or ECC91?

It's strange. It shows as "ECC191" if you was to look at it, but if you click that field it shows it as 91..

[Bulzie]

Do you have to put that ECC as format on that field in the table? Can you just do that format on your Form or Report field, not the table itself?

[Bob Fitz]

I have tested the following and it works for me
Use this code to open the second form

Private Sub btnSaveOpen_Click()DoCmd.Save
    DoCmd.OpenForm "frmViewIssue", , , , , , Me.ID
End Sub

Put this code in the On Open event of your form called "frmViewIssue"

Private Sub Form_Open(Cancel As Integer)

  If Not IsNull(Me.OpenArgs) Then
       Me.Filter = "[ID] = " & Me.OpenArgs
       Me.FilterOn = True
  End If

End Sub