Merhabalar,

Sorguda ölçüt kısmına <0, >0 gibi değerleri el ile yazmak yerine formdan gönderme işlemini yapamıyorum.
Açılır kutudaki birinci alan çalıştıktan sonra gizlenecek.

bir buton koyun ve aşağıdaki kodu ekleyin

   On Error GoTo Hatada:

   Dim ObjQry As DAO.QueryDef

   Dim Sql As String

 

   Sql = "SELECT * FROM cari WHERE bakiye" & Me.sec.Column(0)

   QryName = "BakiyeYeni"

   Set ObjQry = CurrentDb.CreateQueryDef(QryName, SQL)



Hatada:

   

   If Err.Number = 3012 Then

      CurrentDb.QueryDefs.Delete (QryName)

      Resume

   End If

   

    ObjQry.Close

    DoCmd.OpenQuery QryName, acNormal, acEdit

Hocam teşekkürler çalıştı.

Aynı soruyu biraz daha genişletmek istiyorum. 2 adet tablomuz olsun borç ve alacak diye. Birleştirme sorgusu ile birleştirip sorguda bakiye adında bir sütun oluşturalım. Sorgudaki bakiyenin ölçüt kısmına değer nasıl gönderebilirim.

Sorum hala günceldir. Yandemir hocamın yaptığı işlemi sorgu üzerinde çalıştırabilir miyim?

SQL = "SELECT * FROM cari WHERE bakiye" & Me.sec.Column(0)
satırı sorgudur zaten. istediğiniz bir sorguyu kullanabilirsiniz. hatta sorguları bileştirip kendi sorgunuzu da oluşturabilirsiniz.

Hocam sorguya neden göndermek istediğimi örneğimi biraz daha geliştirerek gönderim. Kendi projemde aynı bu örnekteki gibi olacak. Borç ve alacak olarak farklı tablolardan gelen bilgileri sorguda birleştirip bakiyeyi çıkartıyorum. Örneğimi incelerseniz daha kolay anlarsınız.

Not: Sitenizi gezdim bazı demoları inceledim çok güzel elinize sağlık.