Pass input value to AddForm from notinlist on a MainFom

[Not2gassy]

I see similar posts, but mine is so simple that I don't see it. I have a main input form with a combo box where I want to add new items for notinlist instances. Everything seems to work ok except I cannot get the value input on the main form to pass thru to populate the AddForm. The relevant code for the notinlist property on the main form is:

 Private Sub City_NotInList(NewData As String, Response As Integer)      Dim strType As String, strWhere As String        'User has typed in a city name that does not exist        strType = NewData        'Set up the test predicate        strWhere = "[City] = """ & strType & """"        'Ask if they want to add this city        If MsgBox("City " & NewData & " is not found. " & "Do you want to add this City?", vbYesNo + vbQuestion + vbDefaultButton2, gstrAppTitle) = vbYes Then        'Yup, Open the product add form and pass it the new name        DoCmd.OpenForm "CityAdd", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=Me.City = NewData        'Verify that City really was added        If IsNull(DLookup("CityID", "CityTable", strWhere)) Then        'Nope       MsgBox "You failed a City that matched what you entered." & "Please try again.", vbInformation, gstrAppTitle        'Tell Access to continue - we trapped the error        Response = acDataErrContinue        Else        'City added OK - tell Access that Field gets requeried        Response = acDataErrAdded        End If        Else        'Do not want to add - let Access display normal error        Response = acDataErrDisplay        End If  End Sub    On the Addform I have put the following code in the on Current property:  Private Sub Form_Current() If Me.NewRecord Then Me.City = Me.OpenArgs End Sub

The problem seems to be in the DoCmd statement. I thought the OpenArgs portion would do it, but something is not right. Thanks.

[burrina]

You need to re-post this and add Code Tags. Too hard to read.

[hapm]

OpenArgs:= City = NewData

Is wrong, should be:

OpenArgs:= NewData

Then you can use Me.OpenArgs in your data entry forms code to retrieve the value. Best place for this is the open event.

[Not2gassy]

You need to re-post this and add Code Tags. Too hard to read.

Yeh, I noticed the formatting was messed up. What are code tags and how do I add them to get it to look right? Not2gassy

[Not2gassy]

Thanks for the suggestions - Ok, I changed the the OpenArgs statement to OpenArgs:=NewData in the notinlist event on the Main form. It still doesn't like the Me.OpenArgs statement in the onOpen event of the CityAdd form. It says it is a property mismatch. The CityAdd form is opening in datamode add. Thanks for taking your time for this.

[burrina]

It's the Wrap Code button to your far right above. Highlight your code and press it ONCE.
Thanks,

[hapm]

Can you please repeat the code off the open event sub, as you have it now?

[Not2gassy]

Can you please repeat the code off the open event sub, as you have it now?

 Private Sub Form_Open(Cancel As Integer)  Me.OpenArgs   End Sub 

[Not2gassy]

Thanks. The problem was that I was blocking too much scripting - I tend to be a little paranoid.

[Not2gassy]

Thanks all. I figured it out with a little reference reading.

The codes are:
for the Main form -

Private Sub City_NotInList(NewData As String, Response As Integer)
    Dim strType As String, strWhere As String
      'User has typed in a city name that does not exist
      strType = NewData
      'Set up the test predicate
      strWhere = "[City] = """ & strType & """"
      'Ask if they want to add this city
      If MsgBox("City " & NewData & " is not found. " & "Do you want to add this City?", vbYesNo + vbQuestion + vbDefaultButton2, gstrAppTitle) = vbYes Then
      'Yup, Open the product add form and pass it the new name
      DoCmd.OpenForm "CityAdd", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=NewData
      'DoCmd.OpenForm "formname", , , "EmployeeID=" & Me.EmployeeID
      'Verify that City really was added
      If IsNull(DLookup("CityID", "CityTable", strWhere)) Then
      'Nope
      MsgBox "You failed a City that matched what you entered." & "Please try again.", vbInformation, gstrAppTitle
      'Tell Access to continue - we trapped the error
      Response = acDataErrContinue
      Else
      'City added OK - tell Access that Field gets requeried
      Response = acDataErrAdded
      End If
      Else
      'Do not want to add - let Access display normal error
      Response = acDataErrDisplay
      End If
End Sub

and for the CityAdd form it is -

Private Sub Form_Load()

    Me.City = Me.OpenArgs
    
    
End Sub