Son bir düzeltme isteyeceğim sizden.
Bölüm adının tablodan gelmesini sağlamak için forma bir tane açılan kutu ekledim. (programı başka bölümlerde kullanacak)
Hazırlayan tablosuna "bolum_adi" adında bir alan tanımladım.
Formun açıldığında olayına açılan kutuya bilginin otomatik gelmesini sağladım.
kodu aşağıdaki gibi değiştirdim.
Alıntı:Select Case Me.std_klasörü
Case "01-Kalıp Değişme"
SKlasoru = (bolum_adi) & "-1" eski halinde "Kalıp-1" yazıyordu
Std_türü seçeneklerinden "Video standardı" seçip, "std_klasörü"nden herhangi birini seçtiğimde program hata veriyor. 3 saattir kodu her şekilde değiştirdim, bir türlü hatanın nedenini bulamadım.
Aşağıdaki kırmızı işaretli yeri sizin yaptığınız gibi "SSnifi"yapınca hata vermiyor ama bu seferde sondaki rakamı 4 basamaklı değil, tek basamaklı yapıyor. Zaten hatayı da o satırda veriyor.
Alıntı:ElseIf std_türü = "Video Standardı" Then
If Not IsNull(Me.std_türü) And Not IsNull(Me.std_klasörü) And Me.std_klasörü <> "" Then
SSonNo = Nz(DMax("[son_no]", "srg_siranobul"), SKlasoru & "000") + 1
Me.Metin41 = STuru & SKlasoru
Me.std_no = STuru & SKlasoru & Mid(SSonNo, 2)
End If
