Merhabalar,
if şartı ile arama yapılacak alan adını değişkene bağlamak isitiyorum
If ComboBox14.Value = "Başlama Zamanı" Then
alan = "BaslamaZamani"
ElseIf ComboBox14.Value = "Bitiş Zamanı" Then
alan = "BitisZamani"
ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then
alan = "HatirlatmaZamani"
End If
secim = TextBox11.Text '(Burası tarih metin veya asayı olabilir)
If ComboBox15.Value = "Eşittir" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan='" & secim & "'", baglan, 1, 1
Kırmızı alanları nasıl belirtmem lazım, bir çok konu araştırdım, Dlookup ile yapılacak gibi ama çözemedim.
Yardımınızı rica ederim.
Access Sorgusunda Alan Adı Değişkeni
(28/06/2020, 14:34)feraz yazdı:(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alanBurdaki Ajandam yazan yere gerek yok.
Ve bir değişken tanımlayın dim x gibi mesela
X= "alanad" olarak girin.Whereden sonra " & x & "
Gibi deneyebilirsiniz örneğin.
Hocam birşeyler yanlış gidiyor ama anlamadım. Denemeye devam ediyorum..
Alan adını tamam gibi de kriterde hata veriyor şimdide...
(28/06/2020, 15:15)kanakan52 yazdı:Kriter olayında tek tırnak olaylarına dikkat edim abey.(28/06/2020, 14:34)feraz yazdı:(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alanBurdaki Ajandam yazan yere gerek yok.
Ve bir değişken tanımlayın dim x gibi mesela
X= "alanad" olarak girin.Whereden sonra " & x & "
Gibi deneyebilirsiniz örneğin.
Hocam birşeyler yanlış gidiyor ama anlamadım. Denemeye devam ediyorum..
Alan adını tamam gibi de kriterde hata veriyor şimdide...
(28/06/2020, 15:50)feraz yazdı:(28/06/2020, 15:15)kanakan52 yazdı:Kriter olayında tek tırnak olaylarına dikkat edim abey.(28/06/2020, 14:34)feraz yazdı:(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alanBurdaki Ajandam yazan yere gerek yok.
Ve bir değişken tanımlayın dim x gibi mesela
X= "alanad" olarak girin.Whereden sonra " & x & "
Gibi deneyebilirsiniz örneğin.
Hocam birşeyler yanlış gidiyor ama anlamadım. Denemeye devam ediyorum..
Alan adını tamam gibi de kriterde hata veriyor şimdide...
Eşittir olayını yaptım hocam, ancak arasında için between kullanımını nasıl yaparım ?
If ComboBox15.Value = "Arasında" Then
'rs.Open "select*from Ajandam WHERE int([" & alan & "]) >" & CDbl(CDate(secim)) & " and >" & CDbl(CDate(secim2)) & "", baglan, 1, 1
Pc açık olmadığı için between yapısı buldum internetten ona göre düzenlersiniz.
sql = "SELECT Date FROM Table WHERE Date BETWEEN #" & DateMin & "# AND #" & DateMax & "#
Yani >= yada <= gibi yerlere gerek yok.Tabii koddaki # bunada gerek yok.Sadece between ne and yazan kısımları inceleyin.
sql = "SELECT Date FROM Table WHERE Date BETWEEN #" & DateMin & "# AND #" & DateMax & "#
Yani >= yada <= gibi yerlere gerek yok.Tabii koddaki # bunada gerek yok.Sadece between ne and yazan kısımları inceleyin.
Konuyu Okuyanlar: 1 Ziyaretçi