Not in list action

[Derrick T. Davidson]

I want to have a "not in list" message box Yes/No that if Yes is clicked the form closes and a new one opens, if No is clicked it goes back to the form.

PLEASE tell me what is wrong with this code:

Dim i As Integer
Dim Msg As String
If NewData = "" Then Exit Sub
Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Company List...")
If i = vbYes Then
DoCmd.Close acForm, "frmContacts"
DoCmd.OpenForm "frmContractors", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "frmContractors", acNewRec
Else
Response = acDataErrContinue


End If

[ranman256]

IF this code is in frmContacts ,then you close frmContacts,
then the code vanishes with the form.
Dont close the form, just open frmContractors.

Im not sure what the 'not in list' means.

[ssanfu]

Basically, I cannot see where your code inserts new data into a table.
See this site for code example: http://www.databasedev.co.uk/not_in_list.html
or http://allenbrowne.com/ser-27.html

[ItsMe]

If it helps, here is some code that came from one of my DB's. What I opt to do is open another form in Data Entry mode. I set the Data Entry mode in the other form's properties and save it. Also, the other form is pop up/modal.

Response = acDataErrContinue

Dim intMsg As Integer

intMsg = MsgBox("That Species does not exist within the list." & vbCrLf & _
                "Do you want to add a new species?", vbYesNo + vbQuestion + vbDefaultButton2, "Item Not Found")
                
If intMsg = vbYes Then
    Me.cmbSpecies.Value = ""
    If Me.Dirty Then Me.Dirty = False
    DoCmd.OpenForm "frmSpeciesEntry"
Else
    Me.cmbSpecies.Value = ""
End If