txtUyeNo =textbox1.text & Nz(DMax("cdbl(nz(right([Siparis_No],11),0))", "[MüsteriKayitlari]","[Siparis_No] like '" & textbox1.text "*'"), 0) + 1
gibi bir kod işinize yarayabilir. Deneyemedim teorik
txtUyeNo bu geçici değerin olduğu bir alandir
11 ifadesi alandaki son 11 basamağın sayısal olduğu varsayımına dayanır. A yada B gibi harfler çıkarıldıktan sonra geriye kalan kaç basamak sayisal veri ise 11 yerine o yazılmalı yanlış saymadıysam sizde 11 tane vardi
Siz
Access bölümüne açtığınız için cevabı ona gore yazmistim
Excel NZ fonksiyonunu tanımaz o nedenle hata veriyor olabilir.
txtUyeNo =textbox1.text & DMax("cdbl(nz(right([Siparis_No],11),0))", "[MüsteriKayitlari]","[Siparis_No] like '" & textbox1.text "*'") + 1
Yada
txtUyeNo =textbox1.text & DMax("cdbl(right([Siparis_No],11))", "[MüsteriKayitlari]","[Siparis_No] like '" & textbox1.text "*'") + 1
şeklinde olabilir
Ama eğer tabloda hiç kayıt yoksa yada kayıt var ama sipariş alanında A00000001 gibi bir formatta veri yoksa sorun cikarabilir
Kod:
& textbox1.text "*'") + 1
Bu bölümde bir hata olabilir mi hocam
Kod:
& textbox1.text & "*'") + 1 gibi
Accesste .text aktif metin kutusundaki metni gösterir excelde emin değilim ama zaten resimdeki kodda .text kullanılmamış.
9. mesajdaki kodlarda da aynı hatayı mi verdi
Siz yine de çalışmanızı ekleyin, uygun bir zamanda incelemeye çalışırım.
Bu arada sorunuz excelde ise belirtin excele tasiyalim
Hocam aynı yerde hata veriyor,
Sorum
Excel ile alakalı, Userform üzerinden acsess e data yazdırma üzerine çalılşıyorum.
Destek için teşekkür ederim.