Hello all
Further to an earlier post asking how to check if forms were open ...
I have a form EditCompanyForm which pops up to let people edit the details of a company. The form can be opened from one of three forms.
When the EditCompanyForm is closed I want to update the form that opened it.
So I have this rather ungainly bit of code.
_____________________________________________________________
Private Sub Form_Unload(Cancel As Integer)
Dim oAccessObject As AccessObject
Dim FormName As String
FormName = "CompaniesForm"
Set oAccessObject = CurrentProject.AllForms(FormName)
If oAccessObject.IsLoaded Then
Form_CompaniesForm.Requery
End If
Dim oAccessObject1 As AccessObject
Dim FormName1 As String
FormName1 = "CompaniesCallForm"
Set oAccessObject1 = CurrentProject.AllForms(FormName1)
If oAccessObject1.IsLoaded Then
Form_CompaniesCallForm.Requery
End If
Dim oAccessObject2 As AccessObject
Dim FormName2 As String
FormName2 = "CallListForm"
Set oAccessObject2 = CurrentProject.AllForms(FormName2)
If oAccessObject2.IsLoaded Then
Form_CallListForm.Requery
End If
End Sub
___________________________________________________
Do I need 3 separate AccessObjects?
Should I be using ... Set oAccessOjbect = nothing ... at the end?
Is there a more elegant way of doing this?
Thanks for any insights.
Further to an earlier post asking how to check if forms were open ...
I have a form EditCompanyForm which pops up to let people edit the details of a company. The form can be opened from one of three forms.
When the EditCompanyForm is closed I want to update the form that opened it.
So I have this rather ungainly bit of code.
_____________________________________________________________
Private Sub Form_Unload(Cancel As Integer)
Dim oAccessObject As AccessObject
Dim FormName As String
FormName = "CompaniesForm"
Set oAccessObject = CurrentProject.AllForms(FormName)
If oAccessObject.IsLoaded Then
Form_CompaniesForm.Requery
End If
Dim oAccessObject1 As AccessObject
Dim FormName1 As String
FormName1 = "CompaniesCallForm"
Set oAccessObject1 = CurrentProject.AllForms(FormName1)
If oAccessObject1.IsLoaded Then
Form_CompaniesCallForm.Requery
End If
Dim oAccessObject2 As AccessObject
Dim FormName2 As String
FormName2 = "CallListForm"
Set oAccessObject2 = CurrentProject.AllForms(FormName2)
If oAccessObject2.IsLoaded Then
Form_CallListForm.Requery
End If
End Sub
___________________________________________________
Do I need 3 separate AccessObjects?
Should I be using ... Set oAccessOjbect = nothing ... at the end?
Is there a more elegant way of doing this?
Thanks for any insights.