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

(05/04/2020, 13:05)berduş yazdı:

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

---

Berduş Hocam selamlar,,

Resimdeki hatayı verdi..

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

Bu bölümde bir hata olabilir mi hocam

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.