Sayın Hocalarım; Microsoft Forms 2.0 da Kayıt yüklerken eski kayıtları boşaltmak istiyorum. Yani açılan kutudan seçtiğim verilere ait kayıtların listelenmesini istiyorum. Ancak ilk yüklediğim kayıtlar silinmeden yeni kayıtlar ekleniyor ayrıca önce kayıtlar kadar da boş satır ekleniyor.
formdaki tüm kodları silip aşağıdaki gibi dener misiniz?
dikkat: Option Compare Database
Option Explicit
kodlar dahil
hepsi silinecek
Option Compare Database
Option Explicit
Private Sub Comando21_Click()
Dim i As Integer
Dim strKriter, txtSql As String
On Error Resume Next
Me.List1.SetFocus
strKriter = CStr(SinifSec.Column(0))
'liste kutusunu boşaltmak için
For i = Me.List1.ListCount - 1 To 0 Step -1
List1.RemoveItem (i)
Next i
txtSql = " SELECT TabloOgrenciler.OkulNo, TabloOgrenciler.SinifAdi, TabloOgrenciler.Adı, TabloOgrenciler.Soyadı " & _
" FROM TabloOgrenciler WHERE (((TabloOgrenciler.SinifAdi)='" & strKriter & "'))"
Call CreaTabellaTmp(txtSql)
End Sub
Public Sub CreaTabellaTmp(SrqTxt As String)
On Error GoTo errore
Dim OgRS As dao.Recordset
Dim i As Integer
Set OgRS = CurrentDb.OpenRecordset(SrqTxt, dbOpenDynaset)
Do While Not OgRS.EOF
With List1
.ColumnCount = 3
.ColumnWidths = "30;30"
.AddItem
.List(i, 0) = OgRS.Fields(0)
.List(i, 1) = OgRS.Fields(1)
i = i + 1
End With
OgRS.MoveNext
Loop
''''''''Form_FormOgrenciler.
errore:
if Err.Number <>0 then MsgBox Err.Number & vbCrLf & Err.Description
End Sub
(25/03/2020, 01:43)berduş yazdı: For i = Me.List1.ListCount - 1 To 0 Step -1
List1.RemoveItem (i)
Next i
Yerine alttaki kodda kullanılabilinir.
Me.List1.Clear
(25/03/2020, 02:03)feraz yazdı: Me.List1.Clear
ilk onu denedim ama hata verdi yanlış bir yere mi yazdım acaba?
(25/03/2020, 01:43)berduş yazdı: ''''''''Form_FormOgrenciler.
Ayrıca üstteki kodun bir üst satırına Exit Sub eklenmelialttaki gibi.
Kod:
Loop
Exit Sub
''''''''Form_FormOgrenciler.
(25/03/2020, 02:05)berduş yazdı: (25/03/2020, 02:03)feraz yazdı: Me.List1.Clear
ilk onu denedim ama hata verdi yanlış bir yere mi yazdım acaba?
Normalde hata veriri lakin bu dosyyada vermedi heralde nesnelerle alakalı.