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.

(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alan

Burdaki 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.

(28/06/2020, 14:34)feraz yazdı:

(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alan

Burdaki 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ı:

(28/06/2020, 14:34)feraz yazdı:

(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alan

Burdaki 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...

Kriter olayında tek tırnak olaylarına dikkat edim abey.

(28/06/2020, 15:50)feraz yazdı:

(28/06/2020, 15:15)kanakan52 yazdı:

(28/06/2020, 14:34)feraz yazdı:

(28/06/2020, 14:27)kanakan52 yazdı: Ajandam.alan

Burdaki 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...

Kriter olayında tek tırnak olaylarına dikkat edim abey.

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.