+- 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ığı: Ekrandaki Verilerin Yenilenmemesi (/konu-ekrandaki-verilerin-yenilenmemesi.html)
Sayfalar:
1
2
Cvp: Ekrandaki Verilerin Yenilenmemesi - mehmetdemiral - 24/02/2011
Ozan sana bu cevabın için +1 veriyorum.
))
Cvp: Ekrandaki Verilerin Yenilenmemesi - life_exciting - 24/02/2011
Sn.sledgeab +1 Artması İçin Metin24 = b + 1 Şeklinde Denedim Ama Sonuç Alamadım.Fatura Kesme Sırasında +1 Oluyor Ancak Fatura Kesilip Ekran Temizlendiğinde Tekrar -1 Düşüyor.
(24/02/2011, 09:54)mehmetdemiral yazdı: Ozan sana bu cevabın için +1 veriyorum.
Sn.mehmetdemiral Bu Cevab İçin +1 Vermenizin Nedeni Nedir?
Cvp: Ekrandaki Verilerin Yenilenmemesi - alpeki99 - 24/02/2011
Aslında ilk açtığımda Tasarım modu kapalı olunca hiç vakit ayırmayacaktım ancak yinede soru askıda kalmasın diye baktım.
Lütfen dosyaları gönderirken:
1- Access penceresi gizli olmasın
2- Tasarım moduna geçecek engeller olmasın
OnError Resume Nextaltına
Dim formdaki_seri, tablodaki_seri, formdaki_sira, tablodaki_sira, son_kayit, kullanicimiz As String
formdaki_seri = Metin22
formdaki_sira = Metin24
kullanicimiz = Me.Kullanici
ve
DoCmd.GoToRecord , , acNewRec
kodunun altındaki satırları şu şekilde değiştirirsen olur.
son_kayit = DMax("faturaID", "fatura_bilgileri")
tablodaki_seri = Dlookup ("faturaserino", "fatura_bilgileri", "faturaID=" & son_kayit)
tablodaki_sira = Dlookup ("faturasirano", "fatura_bilgileri", "faturaID=" & son_kayit)
If formdaki_seri = tablodaki_seri Then
If formdaki_sira + 1 = tablodaki_sira Then
Metin22 = formdaki_seri
Metin24 = formdaki_sira + 2
Kullanici = kullanicimiz
Else
' Eğer formdaki sira numarası ile tablodaki sıra numarası aynı değilse sıkıntı vardır.
End If
Else
' Sıra ve seri numaralar farklı ise seri numarasını değiştirme işi burada yapılacak
End If
End If
Ekte inceleyebilirsin.
Cvp: Ekrandaki Verilerin Yenilenmemesi - life_exciting - 24/02/2011
Sn.alpeki99 Yardımınız İçin Teşekkür Ederim.Test Örneğim Yerine Yanlış Örneği Eklemişim.Kusura Bakmayın.
Cvp: Ekrandaki Verilerin Yenilenmemesi - Yandemir - 24/02/2011
ekranda sayı arttırması sorununu halletmiştik daha önce diye hatırlıyorum yine mi ortaya çıktı.
Cvp: Ekrandaki Verilerin Yenilenmemesi - life_exciting - 24/02/2011
Evet Halletmiştik Sn.Yandemir Ama Ben Sonradan Yazıcıya Yazdırma ve Yeni Kayıt İçin Kod Ekledikten Sonra Sorun Tekrar Başladı Ama Sn.alpeki99'un Verdiği Kodla Düzeldi.Ancak Neden Yazdırma Kodlarını Uygulayınca Bozuldu,Anlayamadım.