If IsOpened 1

[samotek]

I want to build a common function that is functioning when a certain form is opened and nothing happens when such a form is not opened.I presume I must use the line If ISOpened but I cannot do it properly.Could you help me ?

Public Function MyBack()
If IsOpened Forms!frmClients Then
Forms!frmClients![Registered] = ""
DoCmd.Close acForm, "frmClients”
Else If
Forms!frmCustomers Then
Forms!frmCustomers!Registered = “”
DoCmd.Close acForm, "frmCustomers”
Else If
Forms!Orders! Then
Forms!Orders!Registered = “”
DoCmd.Close acForm, "Orders”
End If

End Function

 

[jrbarnett]

Can you post the contents of your IsOpened function?

The usual way to programmatically check if a form is open is to use SysCmd (acSysGetObjectState, acForm, Formname)

John

 

[samotek]

No i donmet have such a function. And yes, now i understand why it doesnt work.I thought it is a built in function but obviously i must refer to some IsOpened function. Could you post me your suggestion ?

 

[jrbarnett]

What condition did you want on your second Else If - you just look at a form, there's nothing to compare it against?

John

 

[samotek]

in the second If, if the form FrmCustomers is opened,
i want to make :
Forms!frmCustomers!Registered = ""
and then close the form

 

[jrbarnett]

Is there ever the possibility of having more than one form open at once?

John

 

[PHV]

A very crude way:

On Error Resume Next
Forms!frmClients!Registered = ""
DoCmd.Close acForm, "frmClients"
Forms!frmCustomers!Registered = ""
DoCmd.Close acForm, "frmCustomers"
Forms!Orders!Registered = ""
DoCmd.Close acForm, "Orders"

Another way:

For Each strForm In Array("frmClients", "frmCustomers", "Orders")
  If CurrentProject.AllForms(strForm).IsLoaded Then
    Forms(strForm)!Registered = ""
    DoCmd.Close acForm, strForm
  End If
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886