Ben bu kodları yazarsam nasılçalışacakki...
Daha çok çalışıp sonra soru sormalıyım.
![Img-cray Img-cray](https://accesstr.net/images/smilies/img-cray.gif)
'Temp tablo kayıtlarını sil
DoCmd.RunSQL "DELETE TblTemp.* FROM TblTemp;"
'Listbox ta seçili kayıtları temp tablosuna aktar
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.cihazlistesi.ItemsSelected.Count - 1
row = Me.cihazlistesi.ItemsSelected(x)
rst.AddNew
rst(0) = Nz(Me.cihazlistesi.Column(0, row), "")
rst(1) = Nz(Me.cihazlistesi.Column(1, row), "")
rst(2) = Nz(Me.cihazlistesi.Column(2, row), "")
rst(3) = Nz(Me.cihazlistesi.Column(3, row), "")
rst.Update
Next x
rst.Close
Me.cihazlistesi.Requery
Me.KAYITSAY = "0 cihaz seçildi"
Me.addpic.Visible = False