+- 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ığı: İki ayrı tabloda bulunan iki sayı alanının otomatik artması (/konu-iki-ayri-tabloda-bulunan-iki-sayi-alaninin-otomatik-artmasi.html)
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - ayhan2122 - 10/12/2009
Yeni bir modül açın ve Modül'e;
Kod:
Function SonSayi()
Dim Bulunan1, Bulunan2
Bulunan1 = DMax("eburosayisi", "Data")
Bulunan2 = DMax("eburosayisi", "Data_alt")
SonSayi = IIf(Bulunan1 > Bulunan2, Bulunan1, Bulunan2) + 1
End Function=nz(SonSayi();0)
yazın. Bunları yaptıktan sonra, gerekli olabilecek yerlerde, Varsayılan değerin yenilenmesi için eburosayisi.requery kullanın.
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - danke - 10/12/2009
Sayın ayhan2122
Alıntı:Varsayılan değerin yenilenmesi için eburosayisi.requery kullanın.burayı anlamadım
Sizi tebrik ediyorum, derdimi anlatamama rağmen, sabırla sorunumu çözdünüz, gerçekten teşekkürler.
İlgilenenlere farklı bir evrak kayıt programı olması için altarnatif olabileceğini düşünüyorum. Ellerinize sağlık.
Tam inceledikten sonra yine cevay yazacam
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - ayhan2122 - 10/12/2009
Data, Data_alt alt formu ve Dataaltaltformu_ formlarının GeçerliOlduğunda (Form_Current) olay yordamlarına ;
eburosayisi.requery
satırını da ekleyin demek istedim. Böylece form her geçerli olduğunda varsayılan değerler requery(YenidenSorgula)lanacaktır.
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - danke - 10/12/2009
Yine ben
, formda yıldan düğmesinden (ilk gelen 2009) 2010'a veya 2011 yılına geçildiğinde yine en son sayıdan devam ediyor. Yani sayı 1 den başlamıyor, (Heryıl evrak sayısı 1 den başlaması gerekiyor)Tekrar kusura bakmayın.
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - ayhan2122 - 10/12/2009
Pardon, onu unutmuştum.
Moduldeki fonksiyonu aşağıdaki ile değiştiriniz.
Kod:
Function SonSayi()
Dim Bulunan1, Bulunan2
Bulunan1 = Nz(DMax("eburosayisi", "Data", "eevrakyili=Forms!Yil!Yil"),0)
Bulunan2 = Nz(DMax("eburosayisi", "Data_alt", "eevrakyili=Forms!Yil!Yil"),0)
SonSayi = Nz(IIf(Bulunan1 > Bulunan2, Bulunan1, Bulunan2),0) + 1
End FunctionData_altaltformu.Requery
yazmalısınız ki varsayılandeğeri yenilesin.
Cvp: İki ayrı tabloda bulunan iki sayı alanının otomatik artması - danke - 10/12/2009
En son yazdıklarınızı modüle attım, yıl problemi bitti, yalnız yeni kayıtlarda bir fazlasını vermiyor, baya sıkıntı verdik ama ilginiz için teşekkürler.
Sorun ilişkisel bir sorunmuş çözdüm, örneği cuma günü atatırm, konu açık kalsın, bence evrak kayıtla ilgili insanların ufuklarına çağ atlatacağız, konuya emek veren herkese isim vermeden teşekkür ederken, özellikle ayhan2122 katkılarından dolayı tekrar teşekkür ederim.İyi geceler.