Ekrandaki Verilerin Yenilenmemesi

1 2
24/02/2011, 09:54

mehmetdemiral

Ozan sana bu cevabın için +1 veriyorum. ))
24/02/2011, 10:36

life_exciting

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?
24/02/2011, 12:36

alpeki99

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 Next

altı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.
24/02/2011, 12:55

life_exciting

Sn.alpeki99 Yardımınız İçin Teşekkür Ederim.Test Örneğim Yerine Yanlış Örneği Eklemişim.Kusura Bakmayın.
24/02/2011, 13:33

Yandemir

ekranda sayı arttırması sorununu halletmiştik daha önce diye hatırlıyorum yine mi ortaya çıktı.
24/02/2011, 15:13

life_exciting

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.
1 2