Aufgerufene Objekt von den Clients getrennt
18.12.2008 12:41:08
den
ich bekomme diese Fehlermeldung "Aufgerufene Objekt von den Clients getrennt" immer, wenn bei einem Change der Combobox4 die UF "SKopie" aufgerufen wird.
Der Code:
Private Sub ComboBox4_Change()
Etti.TextBox4 = ComboBox4.Column(1)
Etti.TextBox3 = ComboBox4.Column(2)
Etti.TextBox6 = ComboBox4.Column(8)
Etti.TextBox9 = ComboBox4.Column(4)
Etti.TextBox10.Text = ComboBox4.Column(34)
Me.TextBox10.Text = Right$(Format(Me.TextBox10.Text, "hh:mm'ss''"), 7)
Etti.TextBox11.Text = ComboBox4.Column(35)
Me.TextBox11.Text = Right$(Format(Me.TextBox11.Text, "hh:mm'ss''"), 7)
Etti.TextBox12.Text = ComboBox4.Column(36)
Me.TextBox12.Text = Right$(Format(Me.TextBox12.Text, "hh:mm'ss''"), 7)
Etti.TextBox13.Text = ComboBox4.Column(37)
Me.TextBox13.Text = Right$(Format(Me.TextBox13.Text, "hh:mm'ss''"), 7)
Etti.TextBox14.Text = ComboBox4.Column(38)
Me.TextBox14.Text = Right$(Format(Me.TextBox14.Text, "hh:mm'ss''"), 7)
Etti.TextBox15.Text = ComboBox4.Column(39)
Me.TextBox15.Text = Right$(Format(Me.TextBox15.Text, "hh:mm'ss''"), 7)
Etti.TextBox16.Text = ComboBox4.Column(40)
Me.TextBox16.Text = Right$(Format(Me.TextBox16.Text, "hh:mm'ss''"), 7)
Etti.TextBox17.Text = ComboBox4.Column(41)
Me.TextBox17.Text = Right$(Format(Me.TextBox17.Text, "hh:mm'ss''"), 7)
Etti.TextBox18.Text = ComboBox4.Column(42)
Me.TextBox18.Text = Right$(Format(Me.TextBox18.Text, "hh:mm'ss''"), 7)
Etti.ComboBox4.Visible = False
Etti.TextBox8.Visible = True
If Etti.TextBox9.Text = "S-Kopie" Then
SKopie.Show
End If
End Sub
Das passiert, wenn vorher die If-Anweisung nicht erfüllt war. Beim erstmaligen durchlaufen und If ist wahr, dann kommt keine Fehlermeldung. Ich hoffe das ist verständlich?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter