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