+- 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ığı: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi (/konu-sifir-harici-rakam-girildiginde-ilgili-bilgilerin-gelmesi.html)
Sayfalar:
1
2
Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - aguney16 - 04/11/2012
Merhaba.
Stok Giriş-Çıkış Formunda yeni bilgi girirken örneğin giren hanesine sıfır harici sayı girdiğimde KİME,NE İÇİN ve NASIL hanelerinin kenarındaki açılan kutuya tıkladığımızda sadece giren hanesinin sıfır harici sayı girilmiş bilgileri gelmesi için çalışıyorum.bunu nasıl yapabilirim.
Teşekkür ederim.
Cvp: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - Puletin - 05/11/2012
Açılan Kutu64 veri kaynağına aşağıdaki kodu yazınız Diğerlerinide bu doğrultuda yeniden oluşturunuz.
SELECT [STOK GİRİŞ ÇIKIŞ].MAKAM FROM [STOK GİRİŞ ÇIKIŞ] WHERE ((([STOK GİRİŞ ÇIKIŞ].[GİREN MİKTAR])>0)) GROUP BY [STOK GİRİŞ ÇIKIŞ].MAKAM ORDER BY [STOK GİRİŞ ÇIKIŞ].MAKAM;Cvp: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - aguney16 - 05/11/2012
Sn.Puletin
ilginiz için çok teşekkür ederim.
sizin gösterdiğiniz gibi kodu yazdım fakat bu defa giren miktar hanesi sıfır da olsa her durumda sadece makam hanesinde sıfır harici işlem yapılmış kayıtları gösteriyor.
Cvp: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - Puletin - 08/11/2012
Doğru anladığımı umuyorum Kolay gelsin...
Cvp: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - aguney16 - 09/11/2012
Sn.Puletin
zaman ayırdığınız için çok teşekkür ediyorum.
tam olarak ne yapmak için çabaladığımı aşağıda resimli olarak anlattım.
Cvp: Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - fatih karagöl - 09/11/2012
sn aguney
formun modülüne aşağıdaki kodu ekleyiniz. zaten after update olayı varsa birleştirmeniz gerekir. yoksa hata verecektir. doğru anlamışsam kod istediğiniz sonucu vermektedir
Private Sub GİREN_MİKTAR_AfterUpdate()
Dim miktar As Integer, Sql As String, SQL1 As String
Sql = "SELECT [STOK GİRİŞ ÇIKIŞ].MAKAM FROM [STOK GİRİŞ ÇIKIŞ] WHERE ((([STOK GİRİŞ ÇIKIŞ].[GİREN MİKTAR]) > 0)) GROUP BY [STOK GİRİŞ ÇIKIŞ].MAKAM ORDER BY [STOK GİRİŞ ÇIKIŞ].MAKAM;"
SQL1 = "SELECT [STOK GİRİŞ ÇIKIŞ].MAKAM FROM [STOK GİRİŞ ÇIKIŞ] GROUP BY [STOK GİRİŞ ÇIKIŞ].MAKAM ORDER BY [STOK GİRİŞ ÇIKIŞ].MAKAM;"
miktar = Nz(GİREN_MİKTAR)
If miktar > 0 Then Me.Açılan_Kutu64.RowSource = SQL: Me.Açılan_Kutu64.Requery Else Me.Açılan_Kutu64.RowSource = SQL1: Me.Açılan_Kutu64.Requery
End Sub