06/12/2019, 20:42
SeferŞANLI
Arkadaşlar ekde vereceğim programda "frm_evcihy" gidiş tarihine ve dönüş tarihine girdiğim verilerin SADECE O ARALIKTA OLANLARIN" numaraları "mtizinliler" metin kutusunda ve ad, soyad okul numaraları bilgilerinin "LstAralik" liste kutusunda olmasını "KmtListeAl" komutunun olay yordamıyla nasıl sağlarım.
olay yordamı kodları bu ama, istediğim olay gerçekleşmiyor.
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)