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.