J
jenniferspnc
Okay, I found that this code and if I’ve understood it can help with
performance. It currently takes over a minute to open my form (have lots of
subforms).
I’m getting confused here though, not an access expert. Where am I wrong in
the code?
Here are some details:
My tab control is PartnerTab
The 2nd page in the page order where the subform is located is now labeled
Certifications
My subform is tbl_softwarecertbridge subform
Private Sub PartnerTab_Change()
On Error GoTo PROC_ERR
Select Case Certifications.Value
Case 2 ' Certifications
Me.certifications.SourceObject = "tbl_softwarecertbridge subform"
End Select
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox "Error " & Err.Number & _
" in Form_Partner.TabPartner_Change:" & vbCrLf & Err.Description
Resume PROC_EXIT
End Sub
performance. It currently takes over a minute to open my form (have lots of
subforms).
I’m getting confused here though, not an access expert. Where am I wrong in
the code?
Here are some details:
My tab control is PartnerTab
The 2nd page in the page order where the subform is located is now labeled
Certifications
My subform is tbl_softwarecertbridge subform
Private Sub PartnerTab_Change()
On Error GoTo PROC_ERR
Select Case Certifications.Value
Case 2 ' Certifications
Me.certifications.SourceObject = "tbl_softwarecertbridge subform"
End Select
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox "Error " & Err.Number & _
" in Form_Partner.TabPartner_Change:" & vbCrLf & Err.Description
Resume PROC_EXIT
End Sub