olay yordamı kodları bu ama, istediğim olay gerçekleşmiyor.
Kod:
Dim OgNoRS As New ADODB.Recordset
Dim sOrGu, TxtOgrNo As String
If IsNull(Me.gidis) Then Me.gidis = DMin("[evvcicıkıstarihi]", "[TblEvciTakip]")
If IsNull(Me.donus) Then Me.donus = DMax("[evcidonustarihi]", "[TblEvciTakip]")
TxtOgrNo = ""
sOrGu = " SELECT TblEvciTakip.tblono, TblOgrenci.tckimlikno, TblOgrenci.adısoyadı, TblOgrenci.okulno, TblEvciTakip.evvcicıkıstarihi, " & _
" TblEvciTakip.evcidonustarihi " & _
" FROM TblOgrenci INNER JOIN TblEvciTakip ON TblOgrenci.sirano = TblEvciTakip.ogrtc " & _
" WHERE (((TblEvciTakip.evvcicıkıstarihi) Between " & CLng(Me.gidis) & " And " & CLng(Me.donus) & ")) OR " & _
" (((TblEvciTakip.evcidonustarihi) Between " & CLng(Me.gidis) & " And " & CLng(Me.donus) & ")) OR " & _
" (((TblEvciTakip.evvcicıkıstarihi)<=" & CLng(Me.gidis) & ") AND " & _
" ((TblEvciTakip.evcidonustarihi)>=" & CLng(Me.donus) & ")) " & _
" ORDER BY TblEvciTakip.evvcicıkıstarihi"
Me.LstAralik.RowSource = ""
Me.LstAralik.RowSource = sOrGu
ogrtc_Etiketi.Caption = "Tarih Aralığındaki Liste: " & Me.LstAralik.ListCount - 1 & " kişi izinli"
Debug.Print sOrGu
OgNoRS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not OgNoRS.EOF 'Her öğrenci için öğrenci no ekler
TxtOgrNo = TxtOgrNo & "," & OgNoRS.Fields(3)
Debug.Print OgNoRS.Fields(3)
OgNoRS.MoveNext
Loop
Me.MtnIzinliler = Mid(TxtOgrNo, 2)
Maruz görün.
