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.