Skip to main content

AccessTr.neT


Metin Ve Rakamlardan Seri Numarası Üretme

Yunus Bozkurt
Yunus Bozkurt
11
1931

Metin Ve Rakamlardan Seri Numarası Üretme

Çözüldü #1
Şöyle bir şey yaptım ama "Invalid use of null " hatası alıyorum  aşağıdaki kodda yanlışlık var mı?

KYT0002 diye artarak  kayıt üretmesi lazım daha doğrusu tablonun en son kaytında ID alanında değer yoksa hata veriyor.

module

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


form olayı

Private Sub Form_Current()
Dim strOldID As String
   Dim lngCurrentNumber As Long
   Dim lngNextNumber As Long
   Dim strNextNumber As String
   Dim strNewID As String
   
   strOldID = DLast("[ID]", "t_Nakliyeler") 'tabloda ID Alanı boş değil
     
   lngCurrentNumber = nurmaraAl(strOldID)
   lngNextNumber = lngCurrentNumber + 1
   strNextNumber = String(4 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
   strNewID = "KYT" & strNextNumber
   Me.t_islemno = strNewID

End Sub
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 12/06/2019, 18:43, Düzenleyen: Yunus Bozkurt.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Metin Ve Rakamlardan Seri Numarası Üretme - Yazar: Yunus Bozkurt - 12/06/2019, 18:36
Task