+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Müteselsil Sipariş Numarası Verme (/konu-muteselsil-siparis-numarasi-verme.html)
Cvp: Müteselsil Sipariş Numarası Verme - accessman - 06/04/2020
Saçma kelimesinin
TDK sözlüğünde bir manasıda
5. sıfat Yersiz bulunan
olarak geçer ve tam buraya uyuyor
Saygısızlık içeren bir kelime değil
Eminim programın son halinde keypress kullanılıyor olmayacak
Cvp: Müteselsil Sipariş Numarası Verme - feraz - 06/04/2020
Berduş hocamızın kodunu geliştirdim.Kepress bencede saçma accessman hocamızın dediği gibi.Kod birden fazla harfe göre ayarlar.Yalnız birden olmayan verilerde çalışıyor bunada çözüm olmalı.
BeforeUpdate kullanıldı.
Private Sub Tsipno_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim Hrf As String
Dim hafizayaAl
Dim kacKarakter
Const accessKarakterSayisi = 12
Dim fark, formatAl
hafizayaAl = Tsipno.Value
kacKarakter = Len(hafizayaAl)
fark = accessKarakterSayisi - kacKarakter
Hrf = hafizayaAl
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
SqlMax = "SELECT Max(Right(Siparis_No," & fark & ")) AS 'Sno' FROM SiparisKayitlari WHERE Siparis_No Like '" & _
Hrf & "%'"
rs.Open SqlMax, baglan, adOpenKeyset, adLockPessimistic
' rs.MoveFirst
gecici = IIf(IsNull(rs(0)), 1, rs(0) + 1)
Select Case fark
Case 11: formatAl = "00000000000"
Case 10: formatAl = "0000000000"
Case 9: formatAl = "000000000"
Case 8: formatAl = "00000000"
Case 7: formatAl = "0000000"
Case 6: formatAl = "000000"
Case 5: formatAl = "00000"
Case 4: formatAl = "0000"
Case 3: formatAl = "000"
Case 2: formatAl = "00"
Case 1: formatAl = "0"
End Select
Tsipno = Hrf & Format(gecici, formatAl)
Hrf = vbNullString
rs.Close
End SubCvp: Müteselsil Sipariş Numarası Verme - berduş - 06/04/2020
Siz hâlâ ayni yerdesiniz, kibriniz soyledigimizi, kast ettiğimizi anlamanızı engelliyor, belki çalışma baştan sona değişecek keypress yerine change gelecek, yepyeni bir fonksiyon eklenmesi gerekecek hepsi olabilir ama bunların hiç biri sizi haklı çıkarmıyor, sizi olaylara farklı bakan biri yapmıyor. Farkli bakan kişi çözüm üretir ama çözümü nedense siz değil hep biz üretiyoruz. Siz 15 yıllık deneyime rağmen hâlâ arabayı kullanmayı bilmediği için bize ittirmeye çalışan ve bunu farkli bakmayi basaran kisi gibi gostermeye calisan kişisiniz sadece
Cvp: Müteselsil Sipariş Numarası Verme - accessman - 06/04/2020
nedense siz değil hep biz üretiyoruz. Siz 15 yıllık deneyime rağmen hâlâ arabayı kullanmayı bilmediği içinAyrıca sn. @feraz da aynı fikirde umarım ona bu kadar haksızlık yapmazsınız
Cvp: Müteselsil Sipariş Numarası Verme - berduş - 06/04/2020
@feraz beyin gecmiste kimseye "bilmiyorsan birak" dedigine sahit olmadim. Gecmiste size de bu sekilde uyarida bulunmadim ama siz aynı deneyimi yaşamanıza rağmen -hatırlarsanız sağ tuş olayıyla ilgili yazdığınız bir mesaja başka bir üye size karşı aynı cümleyi kullanmıştı "bu kadar yildan sonra bunu cozemiyorsaniz birakin accessi" demisti. - hâlâ bu şekilde davrandığınız için sizi uyardim.
Cvp: Müteselsil Sipariş Numarası Verme - accessman - 06/04/2020
Keşke o arkadaş beni 2008 de uyarsaydı sizin hesaba göre 15 yıl farklı bir hobi ile oyalanırdım