Standart No: G-Kalıp-6-3017

yazmışsınız, veri sayısı artınca, 5 haneli sayıya gereksinim duyma ihtimali varmı bilmiyorum, örnek uygulamanızı düzenledim, inceleyip olumlu/olumsuz bildirimde bulununuz.

Sub SiraNoHesapla()



Dim STuru, SKlasoru As String

Dim SSonNo, SSnifi As Integer



If Me.std_türü = "İş Standardı" Then

    STuru = "G-"

ElseIf std_türü = "Video Standardı" Then

    STuru = "V-"

ElseIf std_türü = "İşletme Talimatı" Then

    STuru = "KE-"

End If



Select Case Me.std_klasörü

Case "01-Kalıp Değişme"

    SKlasoru = "Kalıp-1"

Case "02-Kalıp Hazırlama"

    SKlasoru = "Kalıp-2"

Case "03-Torba Değişme"

    SKlasoru = "Kalıp-3"

Case "04-Torba Hazırlama"

    SKlasoru = "Kalıp-4"

Case "05-Kalıp Bakım"

    SKlasoru = "Kalıp-5"

Case "06-Kalıp Temizleme"

    SKlasoru = "Kalıp-6"

Case "07-Ekipman Bakım"

    SKlasoru = "Kalıp-7"

Case "08-Ofis ve Yönetim"

    SKlasoru = "Kalıp-8"

Case "09-Genel"

    SKlasoru = "Kalıp-9"

End Select



SSnifi = Nz(Left(Me.std_sinifi, 1), 0)



Me.Metin41 = STuru & SKlasoru & "-" & SSnifi

SSonNo = Nz(DMax("[son_no]", "srg_siranobul"), 0) + 1

SSonNo = Format(SSonNo, "0000")

If Not IsNull(Me.std_türü) And Not IsNull(Me.std_klasörü) And Not IsNull(std_sinifi) Then

Me.std_no = STuru & SKlasoru & "-" & SSonNo

End If

End Sub