Kod:
Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer
rst.Open "tblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
For x = 0 To Me.Liste0.ItemsSelected.Count - 1
row = Me.Liste0.ItemsSelected(x)
rst.AddNew
rst(0) = Nz(Me.Liste0.Column(0, row), "")
rst(1) = Nz(Me.Liste0.Column(1, row), "")
rst(2) = Nz(Me.Liste0.Column(2, row), "")
rst(3) = Nz(Me.Liste0.Column(3, row), "")
rst(4) = Nz(Me.Liste0.Column(4, row), "")
rst(5) = Nz(Me.Liste0.Column(7, row), "")
rst(6) = Nz(Me.Liste0.Column(7, row), "")
rst(7) = Nz(Me.Liste0.Column(7, row), "")
rst(8) = Nz(Me.Liste0.Column(8, row), "")
rst(9) = Nz(Me.Liste0.Column(9, row), "")
rst(10) = Nz(Me.Liste0.Column(10, row), "")
rst(11) = Nz(Me.Liste0.Column(11, row), "")
rst(12) = Nz(Me.Liste0.Column(12, row), "")
rst(13) = Nz(Me.Liste0.Column(13, row), "")
rst(14) = Nz(Me.Liste0.Column(14, row), "")
rst(15) = Nz(Me.Liste0.Column(15, row), "")
rst(16) = Nz(Me.Liste0.Column(16, row), "")
rst(17) = Nz(Me.Liste0.Column(17, row), "")
rst(18) = Nz(Me.Liste0.Column(18, row), "")
rst.Update
Next x
rst.Close
Me.Alt54.Form.Requery