Skip to main content

AccessTr.neT M.


Metin Ve Rakamlardan Seri Numarası Üretme

Metin Ve Rakamlardan Seri Numarası Üretme

#7
(12/06/2019 19:56)haliliyas Adlı Kullanıcıdan Alıntı: en son kendi çalışmamda aşağıdaki kodu denedim çalıştı

Visual Basic Code
strOldID = DMax("Mid([dosyano],4)", "[denetim]") + 1
    strNewID = "KYT" & Format(strOldID, "0000")

bunuda bir deneyim

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#8
aslında en doğru cevabı en kısa sürede alabilmek için en doğru yöntem kendi uygulamanızı eklemenizdir

Cevapla
...........
#9
Sorun çözüldü

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#10
ilerde aynı sorunu yaşayabilecek olan arkadaşlar için çözüm yolunuzu paylaşır mısınız?

Cevapla
...........
#11
(13/06/2019 21:13)halily Adlı Kullanıcıdan Alıntı: ilerde  aynı sorunu yaşayabilecek olan arkadaşlar için çözüm yolunuzu paylaşır mısınız?
Öncelikle  bir modül oluşturdum
modül şöyle;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Function nurmaraAl(yb As String) As String
    Dim donenDeger As String
    Dim i As Integer
    donenDeger = ""
    For i = 1 To Len(yb)
        If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then
            donenDeger = donenDeger + Mid(yb, i, 1)
        End If
    Next
 nurmaraAl = donenDeger
End Function

 sonra bu değeri kullanmak istediğim formun Geçerli  olduğunda olayına aşağıdaki kodu ekledim;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
    Dim strEskiID As String
    Dim lngGecerliNumara As Long
    Dim lngSonrakiNumara As Long
    Dim strSonrakiNumara As String
    Dim strYeniID As String
     strEskiID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1 'tablodaki ID alanından son değeri al
     lngGecerliNumara = nurmaraAl(strEskiID)
     lngSonrakiNumara = lngGecerliNumara + 1
     strSonrakiNumara = String(4 - Len(CStr(lngSonrakiNumara)), "0") & CStr(lngSonrakiNumara)
     strYeniID = "KYT" & strSonrakiNumara
        '
        
    Me.t_islemno = strYeniID ' Formdaki numara üretilen alan

End Sub

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#12
paylaşım için teşekkürler

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da