dosya zaten ekl değil mi?
isterseniz yine de ekleyin ama ancak yarın ilgilenebilirim.
Formda Liste Kutusuna Ve Metin Kutusuna Veri Almak
Sayın berduş. Dosyam son hali bu. Evci izin işleri ve evci izin listeleri formlarındaki olayları halletmem gerek.
Sayın arkadaşlar bu konuyu çözebilecek miyiz?
(06/12/2019, 20:42)sefer1975 yazdı: "KmtListeAl" komutunun olay yordamıyla nasıl sağlarım.MdlGrupladaki GrupOkulNo fonksiyonun kodunu aşağıdaki ile değiştirerek dener misiniz?
Dim OgNoRS As New ADODB.Recordset
Dim sOrGu, TxtOgrNo As String
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(BasTrh) & " And " & CLng(BitTrh) & ")) OR " & _
" (((TblEvciTakip.evcidonustarihi) Between " & CLng(BasTrh) & " And " & CLng(BitTrh) & ")) OR " & _
" (((TblEvciTakip.evvcicıkıstarihi)<=" & CLng(BasTrh) & ") AND " & _
" ((TblEvciTakip.evcidonustarihi)>=" & CLng(BitTrh) & ")) " & _
" ORDER BY TblEvciTakip.evvcicıkıstarihi"
OgNoRS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not OgNoRS.EOF 'her öğretmen için NÖBET tablosuna isim ekle
TxtOgrNo = TxtOgrNo & "," & OgNoRS.Fields(0)
Debug.Print OgNoRS.Fields(0)
OgNoRS.MoveNext
Loop
GrupOkulNo = Mid(TxtOgrNo, 2)
OgNoRS.CloseŞimdilik sadece buton kodunu düzelttim diğer yerleri inceleme fırsatım olması modeldeki kod sadece başlangıç ve bitiş tarihleri aynı olanları aldığı için butona basınca değer göstermiyordu kriterleri değiştirince sorun düzeldi gibi geldi bana ama dilerim diğer yerlerdeki yapı bozulmamıştır.
Maalesef olmadı.
Sayın berduş ben evci_hy formunda kaydedilen tarihler arasındaki öğrenci numaralarını mtizinliler adlı metin kutusuna, kişi isimlerini, okulnumaralarını ve gidiş dönüş tarihlerini listaralığa süzmesini istiyorum.
Konuyu Okuyanlar: 1 Ziyaretçi
