+- 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ığı: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak (/konu-sayi-degerini-alfanimerik-degerle-birlikte-artirmak.html)
RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - aras78 - 30/11/2020
hocam bunu kodları iptal ederek mi yapmam gerekiyor ,kodları silersem sil baştan mı yapmam lazım.form açılmadı mı ki
RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - berduş - 30/11/2020
bicak_tarih alanı tanımlanmamış, değerini nereden alıyor?
RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - aras78 - 30/11/2020
txt_say = yilmetinkutus "A" & Nz(DMax("mid(say,6)", "tablo1"), 0) + 1
hocam verdiğiniz kod da bir eksiklik var mı acaba "A" karakterinden önce
tablolarda tbl_kisiler den alıyor hocam ama forma oluşturmadım
RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - berduş - 30/11/2020
siz hem bicak_tarih alanını tanımlamamışsınız hem de bu alan değerini nereden alıyor belirtmemişsiniz. ben tarih verisini txt_tarihden aldığını varsayarak kodu yeniden düzenledim
dilerim işinize yarar
Dim bicak_tarih As Long
bicak_tarih = Year(Me.txt_tarih)
txt_bicak_No = bicak_tarih & "A" & Nz(DMax("mid(bicak_No,6)", "tbl_kisiler"), 0) + 1RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - aras78 - 30/11/2020
hocam sizin verdiğinz koda tarih bölümüne şunu yazdım trihi verdi ama günve yıda verdi
txt_bicak_No = Date & "A" & Nz(DMax("mid(bicak_No,6)", "tbl_kisiler"), 0) + 1
sadece yılı vermez mi acaba
RE: Sayı Değerini Alfanimerik Değerle Birlikte Artırmak - berduş - 30/11/2020
yalnız size tarih değerini nereden aldığını sordum cevap vermediniz,
ayrıca yazdığım koda dikkat ederseniz tarih alanını year() fonksiyonu içinde kullanmışım, siz de datei year() içinde kullanmalısınz.