Combo box to show for new record only

[vad77]

I am currently working on a database to keep track of accounts, invoices for accounts, techs assigned and contacts. So far I have my SiteInfo table, SiteContacts and SiteEquip. My primary key field for the site is SiteID. The other tables have there own ID field and the SiteID to tie them together. MY relationships are set up as one-to-many from the SiteInfo to the other two tables SiteID field. My contacts primary key is called ContactID and equipment table is EID.
I created a form to add/view the contacts off of a query called qContactList. The query contains the SiteInfo table and Contact table. I want to add one button called New Contact and I want to use a combo box to select the site ID and enter it in the SiteID field in the contact table. I want to have the combo box hidden when in edit mode, just looking at the list, and create a button that will go to a new record and make the combo box visible for new records only. Then would like to have create a save/new button for the purpose of adding more. Then just a save button that will make the combo box hidden and go back to edit mode to see all records.


I know this is a lot to ask but my vba skills though getting better thanks to all you guys but they are still limited.
Thanks in advance for your responses.

Thanks!
V

[Bob Fitz]

Perhaps you could start with the visible property of the combo box set to No. Then have a couple of lines of code in the forms On Current event to see if the current record is a new record and then set the visible property accordingly. Something like:

If Me.NewRecord Then
  Me.NameOfCombo.Visible = True
Else
  Me.NameOfCombo.Visible = False
End If

[vad77]

Thanks Bob! That works great I think I had the code almost figured but wasn't sure on whose event to put the code. I think now I can figure out the other things I want to do.

V

[June7]

Simpler code, one-liner:

Me.NameOfCombo.Visible = Me.NewRecord