video ve işletme ile ilgili kısımda sıkıntı var mı bilmiyorum, siranohesapla kodunu aşağıdaki ile değiştirerek deneyiniz.
Sub SiraNoHesapla()
Dim STuru As String
'Dim SKlasoru As String
Dim SSonNo, SSnifi As Integer
If Me.std_türü = "İŞ STANDARDI" Then
STuru = "G-"
ElseIf std_türü = "VİDEO STANDARDI" Then
STuru = "V-"
ElseIf std_türü = "İŞLETME TALİMATI" Then
STuru = (bolum_adi) & "-"
End If
Select Case Me.klasor_no
Case "1"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "2"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "3"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "4"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "5"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "6"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "7"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "8"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "9"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "10"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "11"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "12"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "13"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "14"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "15"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "16"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "17"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "18"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "19"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
Case "20"
SKlasoru = (bolum_adi) & "-" & Me.klasor_no
End Select
SSonNo = Format(SSonNo, "0000")
If Me.std_türü = "İŞ STANDARDI" Then
If Not IsNull(Me.std_türü) And Not IsNull(Me.std_klasörü) And Me.std_klasörü <> "" And Not IsNull(std_sinifi) And Me.std_sinifi <> "" Then
Me.Metin41 = STuru & SKlasoru & "-" & Nz(Left(Me.std_sinifi, 1), 0)
Recalc
SSonNo = Nz(Left(Me.std_sinifi, 1), 0) & Format(Nz(DMax("[son_no]", "srg_siranobul"), 0) + 1, "000")
Me.std_no = STuru & SKlasoru & "-" & SSonNo
End If
ElseIf std_türü = "VİDEO STANDARDI" Then
If Not IsNull(Me.std_türü) And Not IsNull(Me.std_klasörü) And Me.std_klasörü <> "" Then
Me.Metin41 = STuru & SKlasoru
SSonNo = Format(Nz(DMax("[son_no]", "srg_siranobul"), 0) + 1, "000")
Me.std_no = STuru & SKlasoru & SSonNo
End If
ElseIf std_türü = "İŞLETME TALİMATI" Then
SSonNo = Nz(DMax("[son_no]", "srg_siranobul"), 0)
Me.Metin41 = STuru
Me.std_no = STuru & SSonNo & "0000" + 1
End If
End Sub