Hallo warme Bakkertje, alvast bedankt voor de tijd die je er in gestoken hebt. Wat betreft de "frmPartList" deze werkt nog steeds niet, ik zie dat je de code hebt aangepast. Ik zie ook dat je achter "Me.txtLeverancierNaam.Text" .Text hebt gezet maar achter al de volgende Niet. Ik heb achter al die andere ook even .Text gezet maar werkt nog steeds niet. De bedoeling is dat in het formulier "frmPartlist" al de gegevens van de leverancier verschijnen als ik een artikelnummer kies.
With Sheets("Leveranciers").ListObjects("Tbl_Leveranciers").DataBodyRange
fRow = Application.Match(Me.txtLeverancier, .Columns(1), 0)
If Not IsError(fRow) Then
Me.txtLeverancierNaam.Text = .Cells(fRow, 2).Value
Me.txtAdres1 = .Cells(fRow, 3).Value
Me.txtAdres2 = .Cells(fRow, 4).Value
Me.txtPostcode = .Cells(fRow, 5).Value
Me.txtPlaats = .Cells(fRow, 6).Value
Me.txtTelefoon = .Cells(fRow, 7).Value
Me.txtGSM = .Cells(fRow, 8).Value
Me.txtContactNaam = .Cells(fRow, 9).Value
Me.txtEMail = .Cells(fRow, 10).Value
End If