Belki birisinin işine yarayabilir. Benim için 100 etiketli bir forma Dlookup yaparak tablodan gelmesi uzun sürüyordu.
Bu şekilde tabloda forma bir kere set ederek form açılma süresi düştü.
Kod:
Sub zz()
Dim Frm As String
Frm = "Form1"
DoCmd.Close acForm, Frm
DoCmd.OpenForm Frm, acDesign
Forms(Frm).Etiket1.Caption = "Test"
DoCmd.Close acForm, Frm, acSaveYes
DoCmd.OpenForm Frm, acNormal
End Sub
Kod:
Private Sub Komut1_Click()
Call zz
End Sub