Skip to main content

AccessTr.neT


Metin Ve Rakamlardan Seri Numarası Üretme

Yunus Bozkurt
Yunus Bozkurt
11
2100

Metin Ve Rakamlardan Seri Numarası Üretme

#7
(12/06/2019, 19:56)haliliyas yazdı: en son kendi çalışmamda aşağıdaki kodu denedim çalıştı
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 yazdı: 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;

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;

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
Task