+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Ve Rakamlardan Seri Numarası Üretme (/konu-metin-ve-rakamlardan-seri-numarasi-uretme.html)
Sayfalar:
1
2
Cvp: Metin Ve Rakamlardan Seri Numarası Üretme - Yunus Bozkurt - 12/06/2019
(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
Cvp: Metin Ve Rakamlardan Seri Numarası Üretme - berduş - 12/06/2019
aslında en doğru cevabı en kısa sürede alabilmek için en doğru yöntem kendi uygulamanızı eklemenizdir
Cvp: Metin Ve Rakamlardan Seri Numarası Üretme - Yunus Bozkurt - 13/06/2019
Sorun çözüldü
Cvp: Metin Ve Rakamlardan Seri Numarası Üretme - berduş - 13/06/2019
ilerde aynı sorunu yaşayabilecek olan arkadaşlar için çözüm yolunuzu paylaşır mısınız?
Cvp: Metin Ve Rakamlardan Seri Numarası Üretme - Yunus Bozkurt - 16/06/2019
(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 FunctionPrivate 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 SubCvp: Metin Ve Rakamlardan Seri Numarası Üretme - berduş - 16/06/2019
paylaşım için teşekkürler