Skip to main content

AccessTr.neT


Sql

Çözüldü #1
burada ne yanlış anlayamadım

Dim SqlSirala, txtSira As String

SqlSirala = " SELECT odeme.Kradsoyad, odeme.KrTc, odeme.Kvadsoyad, odeme.KvTc, odeme.odmTrh, odeme.KrTcOdmTrh, odeme.kimde, " & _
            " FROM odeme " & _
            " WHERE ((([tarih] Between " & Me.Metin79 & " And " & Me.Metin82 & "));"

Me.Liste5.RowSource = SqlSirala
Cevapla
#2
Metin alanlarını clng() içine alıp dener misiniz?
Cevapla
#3
birşey yanlış
.rar dENEME2.rar (Dosya Boyutu: 60,28 KB | İndirme Sayısı: 6)
Son Düzenleme: 14/12/2019, 00:42, Düzenleyen: zaferlacin.
Cevapla
#4
Şu an inceleme imkanım yok ama bir sorunuzda kullandığımız aşağıdaki kodu kullanmıştık
Visual Basic Code
rss.FindFirst "[tarih]= " & clng(cdate(Me.Metin1))
aynı mantigi kullanmayı dener misiniz?
Cevapla
#5
1 - tablonuzda [tarih] alanı yok odmTrh ve KrTcOdmTrh alanları var belirttiğiniz adda bir alan yok
2 -
Visual Basic Code
, odeme.kimde,
alanından sonra fazladan bir virgül var
eğer sorgunuzu aşağıdaki gibi düzenlerseniz çalışır
[tarih] yerine [odmTrh] aldım
Visual Basic Code
Dim SqlSirala, txtSira As String

SqlSirala = " SELECT odeme.Kradsoyad, odeme.KrTc, odeme.Kvadsoyad, odeme.KvTc, odeme.odmTrh, odeme.KrTcOdmTrh, odeme.kimde " & _
            " FROM odeme " & _
            " WHERE ((([odmTrh]) Between " & CLng(Me.Metin79) & " And " & CLng(Me.Metin82) & "));"
Me.Liste5.RowSource = SqlSirala
3 - kod sayfanızın en başında virgül koyulmuş debug yaparsanız gösterir
4 - ((([tarih] Between " & Me.Metin79 & " And " & Me.Metin82 & "));" açılan ve kapanan parantez sayısı eşit olmalı [tarih] sonra bir kapama parantezi eksik
Cevapla
#6
(14/12/2019 01:42)berduş Adlı Kullanıcıdan Alıntı: 1 - tablonuzda [tarih] alanı yok odmTrh ve KrTcOdmTrh alanları var belirttiğiniz adda bir alan yok
2 -
Visual Basic Code
, odeme.kimde,
alanından sonra fazladan bir virgül var
eğer sorgunuzu aşağıdaki gibi düzenlerseniz çalışır
[tarih] yerine [odmTrh] aldım
Visual Basic Code
Dim SqlSirala, txtSira As String

SqlSirala = " SELECT odeme.Kradsoyad, odeme.KrTc, odeme.Kvadsoyad, odeme.KvTc, odeme.odmTrh, odeme.KrTcOdmTrh, odeme.kimde " & _
            " FROM odeme " & _
            " WHERE ((([odmTrh]) Between " & CLng(Me.Metin79) & " And " & CLng(Me.Metin82) & "));"
Me.Liste5.RowSource = SqlSirala
3 - kod sayfanızın en başında virgül koyulmuş debug yaparsanız gösterir
4 - ((([tarih] Between " & Me.Metin79 & " And " & Me.Metin82 & "));" açılan ve kapanan parantez sayısı eşit olmalı [tarih] sonra bir kapama parantezi eksik
Hocam Between olayını aşağıdaki koda nasıl uyarlarım


SqlSirala = " SELECT odeme.Kradsoyad, odeme.KrTc, odeme.Kvadsoyad, odeme.KvTc, odeme.odmTrh, odeme.KrTcOdmTrh, odeme.kimde, " & _
            " [Kradsoyad] & '* ' & [KrTc] & '*' & [Kvadsoyad] & '*' & [KvTc] AS Arama  " & _
            " FROM odeme " & _
            " WHERE ((([Kradsoyad] & '* ' & [KrTc] & '*' & [Kvadsoyad] & '*' & [KvTc]) Like '*' & [Forms]![giris]![gecici] & '*')) " & _
            " ORDER BY  odeme.Kvadsoyad;"
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da