How to open 2nd form with 'copied' data from 1st form

[imrosie]

Hello any expert out there. I'm yet another newbie (yan) who needs lots of help. Here's my issue. I'm trying to create an product ordering database.

I set up a 'Search' form with the ability to search existing customers (and autopop info) into the appropriate fields(ie, name, address, firstname, lastname, etc.)which works so far. However if I don't locate an existing customer and need to add a 'new one I believe I should use the 'NotInListEvent. I'm trying to figure this one out, but need help on the best way to do this.

Once I've get past the 'NotInList' event and get a 'new account' stored into the DB....the next thing is to figure out is how to open the actual ordering form (called Add An Order and Details)on a click or double click) and have it contain the new or 'searched' name (plus other fields; address, firstname, lastname, etc.) already populated from the previous form called 'Search' In

I found forum instructions close to what I want for this, but so far I can't get it working. In my 'Search form' I have a field 'CustomerID' autonum assigned if there is no existing customer number. I have a 'FirstName' and 'LastName' field. I want to have the 'NotInList' attached to the LastName field



Here is the code I can't get working. Please anyone take a look and help if you can. thanks in advance.

Private Sub LastName_NotInList(NewData As String, Response As Integer)
Dim result
Dim msg As String
Dim cr As String
cr = Chr$(13)
If NewData = "" Then Exit Sub
msg = "'" & NewData & "' is not in the list." & cr & cr
msg = msg & "Do you want to add it?"
If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then
DoCmd.OpenForm "Add an Order and Details", , , , acAdd, acDialog, NewData
End If
result = DLookup("[LastName]= " & Chr(34) & NewData & Chr(34))
If IsNull(result) Then
Response = acDataErrContinue
MsgBox "Please try again!"
Else
Response = acDataErrAdded
End If
 
End Sub
 
Public Sub Acct_Name_Not_Found(NewData)
Dim ans As Variant
' new acct
gbl_exit_name = False
 
ans = MsgBox("Would you like to add record for this customer?", _
vbYesNo, "Add New acct?")
 
If ans = vbNo Then
Me.Customer_ID = Null
DoCmd.GoToControl "CustomerID"
GoTo exit_it
End If
 
' add acct
DoCmd.OpenForm ("Add Customer Record")
Form_Add_Customer_Record.CustomerID = NewData
 
Me.CompanyName = Null
DoCmd.GoToControl "CustomerID"
 
exit_it:
 
End Sub

Please help....thanks

[Rabbit]

Well, after you pass the newdata in the openargs to the form, in the form load you would use that to look up the information and populate the fields.

[imrosie]

Well, after you pass the newdata in the openargs to the form, in the form load you would use that to look up the information and populate the fields.

Sorry, I've been out ill....thanks for your quick response.
How would I re code to retain the information in the second form? thanks

[Rabbit]

Sorry, I've been out ill....thanks for your quick response.
How would I re code to retain the information in the second form? thanks

Well, you passed the NewData which is the last name. I assume that last name is unique in which case in the second form, you would dlookup the values and populate the fields.

[imrosie]

Well, you passed the NewData which is the last name. I assume that last name is unique in which case in the second form, you would dlookup the values and populate the fields.

I will try the Dlookup and see what happens. If you got a snippet of what that should look like, could you paste it in? thanks so much for your help.

[Rabbit]

The help files have great examples to help you along.