Sıfır harici rakam girildiğinde ilgili bilgilerin gelmesi - Baskı Önizleme +- 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.
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 |