Seçim yaptığınızda "+" resmi aktif oluyor (buton) tıklarsanız
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 = False
Seruz hocanın önerdiği kod çalşıyor
Sı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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.