Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

danke
danke
Access Cevaplanmış Soruları
28
9024

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

Çözüldü #19
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #20
danke
Aktif Üye
danke
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 19/08/2019,21:30
Yorumları: 186
Konuları: 37
Kayıt Tarihi: 10/05/2009
Teşekkür Puanı: 0
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
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Son Düzenleme: 10/12/2009, 00:59, Düzenleyen: danke.
Cevapla
Çözüldü #21
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #22
danke
Aktif Üye
danke
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 19/08/2019,21:30
Yorumları: 186
Konuları: 37
Kayıt Tarihi: 10/05/2009
Teşekkür Puanı: 0
Yine ben Icon_rolleyes, 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.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla
Çözüldü #23
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #24
danke
Aktif Üye
danke
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 19/08/2019,21:30
Yorumları: 186
Konuları: 37
Kayıt Tarihi: 10/05/2009
Teşekkür Puanı: 0
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.
Ozur 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.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Son Düzenleme: 10/12/2009, 01:58, Düzenleyen: danke.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task