merhaba arkadaşlar,
çalıştığım firma için tasarladığım programda sipariş numaramız var. sipariş numaramız 2014123001 olması gerekiyor.
ayrıca yeni gün için sondaki iki sayı 1den başlaması gerekiyor. kafamda bir türlü tasarlayamadım. konuyla ilgili formda illaki kayıt vardır ama ben bulamadım. yardımlarınız için şimdiden teşekkür ederim.
Sayın larion,
EK’te;bahsini yaptığınız bu talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
Örnekte,iki şekilde sonuç elde edilmiştir.
1) Form1 adlı formda,form üzerinden urun_adi denetiminin Çıkıldığında Olay Yordamına kodlama dahil edilerek hazırlanmıştır.
2) Sorgu1 adlı formda ise,bu sonucu bir sorgu üzerinden elde etmek üzere hazırlanmıştır.
Tercihinize göre,kendi uygulamanıza adapte edebilirsiniz.Bilginize.
İyi çalışmalar,
saygılar.
Merhaba;
Kullanmış olduğum bir programda; EKLE butonun tıklandığında olayında
If MsgBox("Yeni Kayıt Yapmak istiyor musunuz?", vbYesNo + vbQuestion, "AYDIN") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Dim son_id, aktif_yil, tablodaki_son_kayit, yil_bolumu, otomatik_sayi_bolumu As String
son_id = DMax("sirano", "evrakkayit")
tablodaki_son_kayit = Nz(DLookup("evrakno", "evrakkayit", "sirano=" & son_id), 0)
If tablodaki_son_kayit = 0 Then
evrakno = Format(Date, "yyyy") & "-0001"
Else
yil_bolumu = left(tablodaki_son_kayit, 4)
If yil_bolumu <> Format(Date, "yyyy") Then
evrakno = Format(Date, "yyyy") & "-0001"
Else
evrakno = yil_bolumu & "-" & Format(Mid(tablodaki_son_kayit, 6, 5) + 1, "0###")
End If
End If
Me.sayisi.SetFocus
Else
Me.Undo
Gördüğü yılı yazar araşa (-) İşareti koyar ve 0001 den başlar.
Sayın yorum70,
Lütfen rahat olunuz.her bir konu içerisinde ne kadar çok alternatif bilgi yer alırsa hem konu sahibi hem de konu ile ilgili araştırmalarda bulunabilecek ve ilgilenebilecek bütün diğer üyelere dair alternatif çözümlerin sunulması site adına da olumlu bir gelişme sağlayacaktır.engelsiz ve sınırsız paylaşımlar,bilginin yayılmasına da yol açar ve yön verir.
Bu nedenle,katılımınız memnuniyeti artırmaktadır.teşekkürler.
İyi çalışmalar,
Saygılar.
Tamam teşekkür ediyorum.
Saygılarımla.