April- When you close and then open the form the combobox gets a new set of data (what you want). So at some point in your code you need to requery the combo box. Forms!frmClientInfo.cboDrPriID.Requery will do just that. Maybe you could use it like this -Anthony ---------------------------------------------------- Private Sub cboDrPriID_BeforeUpdate(Cancel As Integer) If Me.txtDrPriID.Value = 1 Then 'meaning they chose the Add New Doctor WhatDoctor = "Primary" Then the rest of the procedure will open (pop-up) the sfrmDrInfo form, so they can create the new doctor... when the user hits the close button I have the following code: Private Sub CommandCloseDr_Click() On Error GoTo Err_CommandCloseDr_Click If WhatDoctor = "Primary" Then Me.txtCltDrID.SetFocus 'set the focus on the form to Dr's ID Forms!frmClientInfo.txtCltDrPriID = Me.txtCltDrID 'set the value of Dr's Primary ID ElseIf WhatDoctor = "Secondary" Then Me.txtCltDrID.SetFocus 'set the focus on the form to Dr's ID Forms!frmClientInfo.txtCltDrsecID = Me.txtCltDrID 'set the value of Dr's Primary ID End If Forms!frmClientInfo.cboDrPriID.Requery 'will requery the combobox no matter what IF condition is met DoCmd.Close Exit_CommandCloseDr_Click: Exit Sub Err_CommandCloseDr_Click: MsgBox Err.Description Resume Exit_CommandCloseDr_Click End Sub -----Original Message----- From: April Pace [ mailto:4office@xxxxxxxxxxxxx <mailto:4office@xxxxxxxxxxxxx> ] Sent: Tuesday, January 07, 2003 5:10 PM To: mso@xxxxxxxxxxxxx Subject: [mso] Re: Access VC setting Variables Ok I am starting to pull my hair out... In my frmClientInfo in VB at the top I have the following: Option Compare Database Option Explicit Dim WhatDoctor As String Then in below it I have: Private Sub cboDrPriID_BeforeUpdate(Cancel As Integer) If Me.txtDrPriID.Value = 1 Then 'meaning they chose the Add New Doctor WhatDoctor = "Primary" Then the rest of the procedure will open (pop-up) the sfrmDrInfo form, so they can create the new doctor... when the user hits the close button I have the following code: Private Sub CommandCloseDr_Click() On Error GoTo Err_CommandCloseDr_Click If WhatDoctor = "Primary" Then Me.txtCltDrID.SetFocus 'set the focus on the form to Dr's ID Forms!frmClientInfo.txtCltDrPriID = Me.txtCltDrID 'set the value of Dr's Primary ID ElseIf WhatDoctor = "Secondary" Then Me.txtCltDrID.SetFocus 'set the focus on the form to Dr's ID Forms!frmClientInfo.txtCltDrsecID = Me.txtCltDrID 'set the value of Dr's Primary ID End If DoCmd.Close Exit_CommandCloseDr_Click: Exit Sub Err_CommandCloseDr_Click: MsgBox Err.Description Resume Exit_CommandCloseDr_Click End Sub When this code is run it keeps finding the WhatDoctor Variable empty... Ok, I can live with it not populating my Doctor Field on the main page, if once you closed this form I could reclick on the combo box in the main form frmClientInfo that was never closed (they they choice the Doc Name or Add New as Id = 1 as the Doctor) and find the doctor I JUST added on the list... The only way that I am finding the the combo box gets updated with the new doctor is to close this form and re open it.... Can somebody PLEASE help me... April -----Original Message----- From: mso-bounce@xxxxxxxxxxxxx [ mailto:mso-bounce@xxxxxxxxxxxxx <mailto:mso-bounce@xxxxxxxxxxxxx> ]On Behalf Of Colli, Anthony G Sent: Tuesday, January 07, 2003 10:07 AM To: 'mso@xxxxxxxxxxxxx' Subject: [mso] Re: Access VC setting Variables In Access forms and reports have their own modules. The events of a form or report, or the events of a control on a form or report, are executed in the form or report module. You can also create a module to contain public items like classes and functions. If you wanted a function to be available to all your forms you can insert a new module and add the code there. Global variables, declared outside of a form or report module, are also available to all modules. If I need to use a global variable I will usually do this. Create a new module and name it mod_Start. In mod_Start declare all my global variables, and set them to a value. Create a macro and name it autoexec. In the autoexec macro have it run some code in mod_Start. This way all the globals are now available, initialized, and all in one place. If I need a new global variable I'll only put it in mod_Start, to keep things neat and tidy. -Anthony -----Original Message----- From: April Pace [ mailto:4office@xxxxxxxxxxxxx <mailto:4office@xxxxxxxxxxxxx> ] Sent: Monday, January 06, 2003 4:55 PM To: mso@xxxxxxxxxxxxx Subject: [mso] Re: Access VC setting Variables Ok thanks... Now I am a little confused about what defines a Module... In excel, I can put code for more than one spreadsheet into the same "Module"... From what I am figuring out in Access the code for each form is it own "Module" I am I correct?? Also, I want to define the strVariable in a "macro/coding" on the main form frmClientInfo, then read what the strVariable is on sfrmResponContact Form when It unloads it.... (It is populating a one of two field on my main form, and depending on which field prompted the sfrmResponContact Form to open... So do I Put the: Option Explicit Dim strVariable As String on just the top of the frmClientInfo code page or on both forms?? Thanks, April -----Original Message----- From: mso-bounce@xxxxxxxxxxxxx [ mailto:mso-bounce@xxxxxxxxxxxxx <mailto:mso-bounce@xxxxxxxxxxxxx> ]On Behalf Of Colli, Anthony G Sent: Monday, January 06, 2003 9:46 AM To: 'mso@xxxxxxxxxxxxx' Subject: [mso] Re: Access VC setting Variables April- To create a global variable that is available to all the subs and functions in your form module, on the very top of the form modules code there is 'Option Compare Database', add a global variable under that line. like: Option Compare Database Option Explicit Dim strVariable As String strVariable is now available to all the code in that module. Global variables like this are usually set in the 'Onload' event of the form. You can also work with them from other forms and modules. Be cautious using globals. If you have many forms, you might create globals with the same name, Access does not like this. -Anthony -----Original Message----- From: April Pace [ mailto:4office@xxxxxxxxxxxxx <mailto:4office@xxxxxxxxxxxxx> ] Sent: Sunday, January 05, 2003 4:23 PM To: Office (E-mail) Subject: [mso] Access VC setting Variables Help...... If you have been following my posting I have a form that if they click on a button it will open another form.... I have a Client Info Form Mailing Address Billing Address Contact/Responsible Party Form The Contact & Responsible person and be one and the same or two different persons... Since it can be one and the same I have both on one form.... Ok, so here is what I have done and am trying to do: If they click that they need to add an Responsible Party, I have figured out how to get what ever name they put on the Contact/Responsible Form to populate my main form (which is still open) in the ResponsibleName field. Now if they specify that the contact name is the same as the Responsible Party Name, then it will automatically populate the Contact Name field with the same name was the Responsible Party Name field.... But if they specify that the Contact name is DIFFERENT from the Responsible Party's Name then the Contact/Responsible Form will re open so they can add the Contact Name.... Ok here is what I need to figure out..... I want to create a variable on my main form tblClientInfo at the place where it calls the Contact/Respon Form to open... I want the variable WhoCalledForm where I can say WhoCalledPartyForm="Responsible" or WhoCalledForm="Contact" Then on the tblContact/Responsible I want to do the following: Private Sub CommandClose_Click() On Error GoTo Err_CommandClose_Click If WhoCalledForm = "Responsible" Then Me.txtCltResponName.SetFocus 'set the focus on the form to Me.txtCltResponName Forms!frmClientInfo.txtCltResponName = Me.txtCltResponName 'set the value of Me.txtCltResponName ElseIf WhoCalledForm = "Contact" Then Me.txtCltResponName.SetFocus Forms!frmClientInfo.txtCltContactName = Me.txtCltResponName End If DoCmd.Close Exit_CommandClose_Click: Exit Sub Err_CommandClose_Click: MsgBox Err.Description Resume Exit_CommandClose_Click End Sub I tried on the Main Form Dim WhoCalledForm as String, I also tried Public WhoCalledForm as string (But after the Private Sub cbxContRespon_Click() ) and the other form could not see the variable.... How do I (Or were) do I state a "public" Variable so that the code above will work April ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso <//www.freelists.org/webpage/mso> To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles <http://www.smartgroups.com/vault/msofiles> ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso <//www.freelists.org/webpage/mso> To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles <http://www.smartgroups.com/vault/msofiles> ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso <//www.freelists.org/webpage/mso> To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles <http://www.smartgroups.com/vault/msofiles> ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso <//www.freelists.org/webpage/mso> To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles <http://www.smartgroups.com/vault/msofiles> ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso <//www.freelists.org/webpage/mso> To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles <http://www.smartgroups.com/vault/msofiles> ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles *************************************************************