MS Access 2002 Pop-up form go to new record and prefill some data

[RickSchadt]

I have a pop-up form that carrys some data with it from the originating form (customer number specifically), When I pop up the form I want it to go to a new record, but I also want the customer number carried with it. I'm a VBA newby, but essentially what I want to do is after the form goes to the acNewRec I want to fill the cust_number with the cust_number_main data.

Private Sub Command40_Click()
On Error GoTo Err_Command40_Click

Dim stDocName As String


stDocName = "Transfer Form"
DoCmd.OpenForm stDocName
DoCmd.GoToRecord acActiveDataObject, , acNewRec


Exit_Command40_Click:
Exit Sub

Err_Command40_Click:
MsgBox Err.Description

 

[dhookom]

Explain how the popup form "carrys some data with it from the originating form".

Duane
Hook'D on Access
MS Access MVP

 

[RickSchadt]

I display the fields on the pop up form using
=Forms!MainTransferForm!Customer

 

[dhookom]

I expect you could set the default value of the cust_number text box to:
[tt][blue]
=Forms!MainTransferForm!Customer [/blue][/tt]

Duane
Hook'D on Access
MS Access MVP

 

[RickSchadt]

I initially tried setting the default value of the field on the subform, and it worked initially until I executed the code that goes to the new record, then the default value is wiped out.

 

[dhookom]

Did you set the "Default Value" property or just the Control Source/Value?

Actually, I would send the value to the new form using OpenArgs. However, the default value should also work.

Duane
Hook'D on Access
MS Access MVP

 

[RickSchadt]

I set the value on the control source under properties default value. Not sure how to do the openargs.

 

[dhookom]

Control Source" and "Default Value" are both properties. I don't know which one you set or how you did it.

Private Sub Command40_Click()
On Error GoTo Err_Command40_Click

    Dim stDocName As String
    stDocName = "Transfer Form"
    DoCmd.OpenForm stDocName , , , , , , Me.Customer
    DoCmd.GoToRecord acActiveDataObject, , acNewRec
    
Exit_Command40_Click:
    Exit Sub

Err_Command40_Click:
    MsgBox Err.Description 
....

Then in the Transfer Form on Open Event, you would use code like:

If Len(Me.OpenArgs & "") > 0 Then
   Me.txtcust_number.DefaultValue = Me.OpenArgs
End If

Duane
Hook'D on Access
MS Access MVP