Skip to main content

AccessTr.neT


Formda Liste Kutusuna Ve Metin Kutusuna Veri Almak

Formda Liste Kutusuna Ve Metin Kutusuna Veri Almak

Çözüldü #1
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.
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)

.rar data.rar (Dosya Boyutu: 265,06 KB | İndirme Sayısı: 5)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Formda Liste Kutusuna Ve Metin Kutusuna Veri Almak - Yazar: SeferŞANLI - 06/12/2019, 20:42
Task