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

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 Sub

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

nedense siz değil hep biz üretiyoruz. Siz 15 yıllık deneyime rağmen hâlâ arabayı kullanmayı bilmediği için

Bu kısmı doğru diğerleri yanlış
Ayrıca sn. @feraz da aynı fikirde umarım ona bu kadar haksızlık yapmazsınız

@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.

Keşke o arkadaş beni 2008 de uyarsaydı sizin hesaba göre 15 yıl farklı bir hobi ile oyalanırdım