Method 'accHelp' of object'_subform' failed?

24/01/2008 - 15:12 von Franz | Report spam
Hallo zusammen

Ich verwende zur Beschleunigung eines Formulars mit vielen UFo's und
Combiboxen folgenden Code

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.Properties("ControlType")
Case

Case acSubform
ctl.Form.RecordSource = ctl.Form.Tag
Case Else
'do nothing
End Select
Next ctl
Set ctl = Nothing
End Sub
 

Lesen sie die antworten

#1 Jörg Ackermann
24/01/2008 - 15:23 | Warnen spam
Hallo,

Franz meinte:

Hallo zusammen

Ich verwende zur Beschleunigung eines Formulars mit vielen UFo's und
Combiboxen folgenden Code

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.Properties("ControlType")
Case

Case acSubform
ctl.Form.RecordSource = ctl.Form.Tag
Case Else
'do nothing
End Select
Next ctl
Set ctl = Nothing
End Sub



arbeite mal Allens Tips durch:
http://www.dbforums.com/archive/ind...66092.html

außerdem:
stelle fest, welches Subform betroffen ist und erstelle
dieses ggf. mal neu.

Gruß

Ähnliche fragen