Ekrandaki Verilerin Yenilenmemesi

Ozan sana bu cevabın için +1 veriyorum. ))

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?

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.

Sn.alpeki99 Yardımınız İçin Teşekkür Ederim.Test Örneğim Yerine Yanlış Örneği Eklemişim.Kusura Bakmayın.

ekranda sayı arttırması sorununu halletmiştik daha önce diye hatırlıyorum yine mi ortaya çıktı.

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.