Kod:
'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 = FalseSırasıyla,
1. TblTemp tablosunu sıfırlıyor
2. Seçili kayıtları tabloya aktarıyor
3. Seçimleri iptal ediyor
4. Butonu yeniden görünmez yapıyor
5. "0 cihaz seçildi" yazıyor
Sizde hata vermesinin sebebini anlayamadım
ekran resmini (Shift+PrtSC) gönderebilirmisiniz
Kolay gelsin
