Herbert: I used the IsLoaded property for the function as follows: Function fIsLoaded(ByVal strFormName As String) As Integer 'Returns a 0 if form is not open or a -1 if Open fIsLoaded = False If CurrentProject.AllForms("frmA").IsLoaded Then fIsLoaded = True End If End Function Tx, Doug ----- Original Message ----- From: "Herbert Chitate" <hchitate@xxxxxxxxxxx> To: "MSO Group" <mso@xxxxxxxxxxxxx> Sent: Sunday, January 10, 2010 2:45 PM Subject: [mso] Access VBA Code > Hi Folks, > > > > I have the following code in the activate event of a form. I basically > want the code note to run the activate event code if the form Customer > Form is not open. > > > > It works on when the form Customer form is open, but when it is closed I > get the error "Microsoft Access Can't find the form Customer Form referred > to in a macro......" If I click end bug it opens the form ok....How can i > adjust the below code so that I don't get this error message. > > > > > > > Option Compare Database > > > Function fIsLoaded(ByVal strFormName As String) As Integer > 'Returns a 0 if form is not open or a -1 if Open > If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then > If Forms(strFormName).CurrentView <> 0 Then > fIsLoaded = True > End If > End If > End Function > > > > > > Private Sub Form_Activate() > DoCmd.GoToRecord , , acNewRec > If fIsLoaded("frmCustomer_Form") = False Then > Me.Acct_No = Forms![Customer Form]![Acct No] > Me.Title = Forms![Customer Form]![Title] > Me.First_Name = Forms![Customer Form]![First Name] > Me.Last_Name = Forms![Customer Form]![Last Name] > End If > > End Sub > > > > > Many Thanks > > > > Herbert > > > _________________________________________________________________ > Tell us your greatest, weirdest and funniest Hotmail stories > http://clk.atdmt.com/UKM/go/195013117/direct/01/ > ************************************************************* > 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, visit the group's homepage and use the > dropdown menu at the top. This will allow you to unsubscribe your email > address or change your email settings to digest or vacation (no mail). > //www.freelists.org/webpage/mso > > To be able to share files with the group, you must join our Yahoo sister > group. This group will not allow for posting of emails, but will allow > you to join and share problem files, templates, etc.: > http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for > FILE SHARING ONLY. > > If you are using Outlook and you see a lot of unnecessary code in your > email messages, read these instructions that explain why and how to fix > it: > http://personal-computer-tutor.com/abc3/v28/greg28.htm > ************************************************************* > ************************************************************* 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, visit the group's homepage and use the dropdown menu at the top. This will allow you to unsubscribe your email address or change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to share files with the group, you must join our Yahoo sister group. This group will not allow for posting of emails, but will allow you to join and share problem files, templates, etc.: http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE SHARING ONLY. If you are using Outlook and you see a lot of unnecessary code in your email messages, read these instructions that explain why and how to fix it: http://personal-computer-tutor.com/abc3/v28/greg28.htm *************************************************************