AccessTr.neT
Müteselsil Sipariş Numarası Verme - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13

Cvp: Müteselsil Sipariş Numarası Verme - kanakan52 - 06/04/2020

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

Cvp: Müteselsil Sipariş Numarası Verme - berduş - 06/04/2020

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

Cvp: Müteselsil Sipariş Numarası Verme - accessman - 06/04/2020

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

Cvp: Müteselsil Sipariş Numarası Verme - kanakan52 - 06/04/2020

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

Cvp: Müteselsil Sipariş Numarası Verme - accessman - 06/04/2020

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

Cvp: Müteselsil Sipariş Numarası Verme - kanakan52 - 06/04/2020

(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,  Ozur