Newbie questions - combo box criteria, etc.

[mishraye]

I am relatively new to Access and I'm not a programmer. I'm typically good at teaching myself by Googling problems and trial-and-error. However in this case I'm spending a lot of time and think I need a little guidance :-)



Project overview:
I'm making a project management database. I'll have forms for job info, companies, contacts, products, purchase orders, warranties, etc. I have a bunch of tables including queries, lookup tables, etc.

Where I'm getting stuck:
1. When I'm entering info in the Job Info form, there is a combo box for "company". The user can select the company, and I want them to be able to add a new company if the company doesn't exist yet. But not just type in the name, actually open up the company form and enter all the company info properly. I created a button next to the company combo box that will do this, but I was wondering if there is a way to do this within the combo box so I don't have to have a separate button? Eg they can click on "not found" and that will automatically open the company form.
2. Beneath where they have just entered the company name, there is a combo box for "contact". I want this to display only contacts for that company.

Thanks in advance!

[Bob Fitz]

Use the "Not In List" of the combo box to trigger the opening of the "Company Detail" form.
For the "contacts" combo form: Read up on Cascading Combo boxes.

[mishraye]

Use the "Not In List" of the combo box to trigger the opening of the "Company Detail" form.

This is what I came up with:

Private Sub Owner_Company_NotInList(NewData As String, Response As Integer)
If MsgBox("This company is not in the list." & vbNewLine _
& "Would you like to add this company to the list?", _
vbInformation + vbYesNo, "Not included in the list.") _
= vbYes Then
DoCmd.OpenForm "frmCompanies", , , , acFormAdd
End If
Response = acDataErrContinue
End Sub

It opens the Companies form as intended, and when the user fills out the company info, they click a button to save and close the window. So then when they're back on the job info page, the company has not automatically appeared in the list and the prompt comes up again. I feel like I'm barking up the wrong tree here...

Thanks!

[Bob Fitz]

Try

Private Sub Owner_Company_NotInList(NewData As String, Response As Integer)
 If MsgBox("This company is not in the list." & vbNewLine _
   & "Would you like to add this company to the list?", _
   vbInformation + vbYesNo, "Not included in the list.") _
   = vbYes Then
     DoCmd.OpenForm "frmCompanies", , , , acFormAdd
     Response = acDataErrAdded
 Else
     Response = acDataErrContinue
 End If
End Sub