#1
MicrosoftForms.rar
(Dosya Boyutu: 31,99 KB | İndirme Sayısı: 4)
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
