Zelfde rij meerdere keren invoegen

[LaurensAcces]

Beste Forumbezoekers,

Ik heb een formulier gemaakt om waardes toe te voegen aan een tabel. Nu wil ik graag dat op basis van de waarde in txtAantal dat aantal rijen toevoegen met de overige waardes. Ik heb nu de volgende code in gebruik:

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim lPart As Long
Dim ws As Worksheet
Set ws = Worksheets("Verzendingen")

'find  first empty row in database
''lRow = ws.Cells(Rows.Count, 1) _
''  .End(xlUp).Offset(1, 0).Row

'revised code to avoid problems with
'Excel lists and tables in newer versions
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    
'copy the data to the database
With ws
  .Cells(lRow, 1).Value = Me.txtRef.Value
  .Cells(lRow, 2).Value = Me.txtDatum.Value
  .Cells(lRow, 3).Value = Me.txtAantal.Value
  
  
End With

'clear the data
Me.txtRef.Value = ""
Me.txtDatum.Value = Date
Me.txtAantal.Value = ""

Alvast bedankt voor jullie hulp!

Gr. Laurens