New Record with retaining information

[redekopp]

Hey I was wondering how to code this button so it creates a new record while retaining information such as a serial number. So if you pull up the item check out its past service. then you want to click a "new entry" button but you want the serial number to remain in the field.



what I got so far is:

Private Sub BtnAdd_Click()
On Error GoTo Err_BtnAdd_Click

DoCmd.GoToRecord , , acNewRec

Exit_BtnAdd_Click:
Exit Sub

Err_BtnAdd_Click:
MsgBox Err.Description
Resume Exit_BtnAdd_Click

End Sub


but obviously it erases the serial number.

the field is txtSerialNumber and the control source is SerialNumber.

Thanks!

[June7]

You can set the control's DefaultValue property with the value from record that currently has focus.

The control is named txtSerialNumber?

Me.txtSerialNumber.DefaultValue = Me.txtSerialNumber
DoCmd.GoToRecord , , acNewRec

[redekopp]

Private Sub cmdNewEntry_Click()
On Error GoTo Err_cmdNewEntry_Click
Me.txtSerialNumber.DefaultValue = Me.txtSerialNumber
DoCmd.GoToRecord , , acNewRec

Exit_cmdNewEntry_Click:
Exit Sub
Err_cmdNewEntry_Click:
MsgBox Err.Description
Resume Exit_cmdNewEntry_Click

End Sub



did that but now it says "you can't go to the specified record"
Any idea?

[June7]

Is SerialNumber field a text type? Try:

Me.txtSerialNumber.DefaultValue = "'" & Me.txtSerialNumber & "'"

However, even with the error, should still move to new record row. Set a breakpoint and step debug the code. Does VBA show textbox value? Refer to link at bottom of my post for debugging guidelines.

[gpeirce]

I might be talking out of my bee-hind here and if I am, just disregard this. But could you place txtSerialNumber into a global variable on a BeforeUpdate event? You could do that whether or not you need to save the serial number.

[June7]

How would setting a global variable populate the field in new record?

[gpeirce]

Sadly, just setting the variable won't put it in the new record. That is where some VBA coding needs to be done.

[June7]

Which is what setting the DefaultValue property with VBA should accomplish. I don't know why the code is causing error. The global variable alternative will probably not resolve that. Need to figure out why it is failing now.

redekopp, If you want to provide db for analysis, follow instructions at bottom of my post.