Sql - Baskı Önizleme

Sql - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sql (/konu-sql.html)

Sayfalar: 1 2 3

Sql - zaferlacin - 13/12/2019

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

Cvp: Sql - berduş - 14/12/2019

Metin alanlarını clng() içine alıp dener misiniz?

Cvp: Sql - zaferlacin - 14/12/2019

birşey yanlış

Cvp: Sql - berduş - 14/12/2019

Şu an inceleme imkanım yok ama bir sorunuzda kullandığımız aşağıdaki kodu kullanmıştık

rss.FindFirst "[tarih]= " & clng(cdate(Me.Metin1))

aynı mantigi kullanmayı dener misiniz?

Cvp: Sql - berduş - 14/12/2019

1 - tablonuzda [tarih] alanı yok odmTrh ve KrTcOdmTrh alanları var belirttiğiniz adda bir alan yok
2 -

, 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

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

Cvp: Sql - zaferlacin - 14/12/2019

(14/12/2019, 01:42)berduş yazdı: 1 - tablonuzda [tarih] alanı yok odmTrh ve KrTcOdmTrh alanları var belirttiğiniz adda bir alan yok
2 -
, 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
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;"