• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Probleem met Object fout

Status
Niet open voor verdere reacties.

loek010

Gebruiker
Lid geworden
1 jul 2016
Berichten
366
Beste Hulpverleners,

Hoe krijg ik met deze code :

Code:
Private Sub ComboBox4_Change()
With Blad4
Set f = .Columns(1).Find(ComboBox4, , xlValues, xlWhole)
If Not f Is Nothing Then
For j = 1 To 3
Me.Controls("TextBox" & j).value = .Cells(f.Row, j).Offset(, 1).value
Next j
End If
End With
End Sub

de Textboxen 8 9 en 10 gevuld met de opgehaalde data
hij vult namelijk de eerste textboxen 1 , 2 en 3 maar deze text boxen worden al gevuld door een andere combobox
als ik Me.Controls("TextBox" & j).value veranderd dan krijg ik een foutmelding kan Object niet vinden.
iemand een oplossing ?

Met vrgr,

Willem
 
Code:
For j = [COLOR=#ff0000]8[/COLOR] To [COLOR=#ff0000]10[/COLOR]

misschien?

Of:
Code:
Me("TextBox" & j [COLOR="#FF0000"]+ 7[/COLOR]).value
 
Laatst bewerkt:
@HSV

Beste Harry

Dat had ik ook al geprobeerd maar dan blijven de textboxen 8 , 9 en 10 leeg
doe ik For j = 1 To 3 dan vult hij wel maar ja dat zijn de verkeerde.

Grt,

Willem
 
Willem,

J heeft een waarde 8, 9 of 10.

Dit stukje moet je dan ook aanpassen.
J-7 of zoiets.
Code:
.Cells(f.Row, [COLOR=#ff0000]j - 7[/COLOR]).Offset(, 1).value
 
@HSV

Beste Harry dit is het nu werkt hij met deze code :

Code:
Private Sub ComboBox4_Change()
With Blad4
Set f = .Columns(1).Find(ComboBox4, , xlValues, xlWhole)
If Not f Is Nothing Then
For j = [COLOR="#FF0000"]8[/COLOR] To [COLOR="#FF0000"]10
[/COLOR]Me.Controls("TextBox" & j).value = .Cells(f.Row, [COLOR="#FF0000"]j - 7[/COLOR]).Offset(, 1).value
Next j
End If
End With
End Sub

Bedankt voor je hulp, vraag kan op opgelost.

Grt.

Willem
 
Kan ook zo:
Code:
Me("TextBox" & j).value = .Cells(f.Row, j - 6).value

of:
Code:
Me("TextBox" & j).value = f.offset(,j - 7).value
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan