AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

İki ayrı tabloda bulunan iki sayı alanının otomatik artması

1 2 3 4 5
10/12/2009, 00:47

ayhan2122

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
yazın. Üstform, altform ve açılan diğer formdaki (Data_alt_altformu)ndaki eburosayisi alanlarının VarsayılanDeğerine;
=nz(SonSayi();0)
yazın. Bunları yaptıktan sonra, gerekli olabilecek yerlerde, Varsayılan değerin yenilenmesi için eburosayisi.requery kullanın.
10/12/2009, 00:52

danke

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
10/12/2009, 01:01

ayhan2122

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.
10/12/2009, 01:03

danke

Yine ben Tekrar kusura bakmayın.
10/12/2009, 01:08

ayhan2122

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 Function
Ayrıca önemli olan alanların (örn:Evrakİlişkilimi) GüncelleştirmeSonrasında olay yordamlarına;
Data_altaltformu.Requery
yazmalısınız ki varsayılandeğeri yenilesin.
10/12/2009, 01:29

danke

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.
İyi geceler.
1 2 3 4 5