(06/04/2020, 14:54)accessman yazdı:

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

Sayın acsessman ,

keypress nedir, ne işe yarar, niçin olmazı rica etsem.

berduş hocam gayet güzel sorgulamadan , şunu kullanmışsın, bu olmaz, bu saçma demeden çözüm buldu. Emin olun sadece fikrinizi öğrenmek istiyorum..

Ben kimsenin böyle birseye hakkı yok diyorum siz sanki aksini söylemişim gibi cevap yaziyorsunuz

Tamam Keypress sizin olsun istediğiniz gibi kullanın

---

O arkadaş bırak demiş peki ben ona ne demişim hemen savunmaya geçip terslemiş miyim

(06/04/2020, 14:42)feraz yazdı: 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

Hocam buda farklı bir bakış açısı, textboxtan çıkmak gerekiyor olmasında kaldım, ama değerlendiricem, ben hala neden keypress olmazda kaldım...

Aslında bu en güzel keypress ile olur ama ben kasten çekemediğim için bu kadar güzel olmasını istemiyorum

(06/04/2020, 15:16)accessman yazdı: Aslında bu en güzel keypress ile olur ama ben kasten çekemediğim için bu kadar güzel olmasını istemiyorum

Kusura bakmayın size soru sormakla hata ettim,