(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