AccessTr.neT

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.

(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ı.