open args syntax

[Mark Kubicki]

I am trying to pass a value to a pop-up form (without success)

on the main form, I have this code:

Private Sub Manufacturer_NotInList(NewData As String, Response As
Integer)
On Error GoTo Err_Manufacturer_NotInList

' Exit this subroutine if the combo box was cleared.
If NewData = "" Then Exit Sub

' Confirm that the user wants to add the new manufacturer.
Msg = "The manufacturer: " & NewData & " is not in the Master
Database." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"
If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
' If the user chose not to add the manufacturer, set the
Response
' argument to suppress an error message and undo changes.
Response = acDataErrContinue
MsgBox "Please try again."
Else
stDocName = "frmManufacturer_PopUp"
DoCmd.OpenForm stDocName, acNormal, , , acReadOnly, , NewData
Response = acDataErrAdded
End If

--------------------------------------
on the pop-up form I have this code:

Private Sub Form_Open(Cancel As Integer)
strNewManufacturer = Forms!FixtureCataloges.OpenArgs
Me.txtManufacturerName = strNewManufacturer
End Sub

but the result is not the value I want,but the name of a control on the
pop-up form (?)
(also, i get an error, not in list message when the pop-up form opens -but I
really haven't looked into this...)

ANY suggestions wouldbe greatly appreciated

as always, thanks in advance
mark

 

[Stuart McCall]

I am trying to pass a value to a pop-up form (without success)

on the main form, I have this code:

Private Sub Manufacturer_NotInList(NewData As String, Response As
Integer)
On Error GoTo Err_Manufacturer_NotInList

' Exit this subroutine if the combo box was cleared.
If NewData = "" Then Exit Sub

' Confirm that the user wants to add the new manufacturer.
Msg = "The manufacturer: " & NewData & " is not in the Master
Database." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"
If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
' If the user chose not to add the manufacturer, set the
Response
' argument to suppress an error message and undo changes.
Response = acDataErrContinue
MsgBox "Please try again."
Else
stDocName = "frmManufacturer_PopUp"
DoCmd.OpenForm stDocName, acNormal, , , acReadOnly, , NewData
Response = acDataErrAdded
End If

--------------------------------------
on the pop-up form I have this code:

Private Sub Form_Open(Cancel As Integer)
strNewManufacturer = Forms!FixtureCataloges.OpenArgs
Me.txtManufacturerName = strNewManufacturer
End Sub

but the result is not the value I want,but the name of a control on the
pop-up form (?)
(also, i get an error, not in list message when the pop-up form opens -but
I really haven't looked into this...)

ANY suggestions wouldbe greatly appreciated

as always, thanks in advance
mark

Move the line:

Response = acDataErrAdded

to precede the DoCmd.OpenForm line. That should supress the error message.

Then, in your popup form's Load event (rather than its Open event), include
the code:

Me.txtManufacturerName = Me.OpenArgs

 

[Arvin Meyer MVP]

Here's an example of how to do it using generic NotInList code that can be
used for any combo box:

http://www.accessmvp.com/Arvin/NotInListDemo.zip