Otomatik Numara Verdirme

Sn ozanakkaya;

Sorunun Çözümü ile ilgili bir fikriniz var mi?

Yazdıklarınıza göre kodları düzenledim, inceleyip bilgi veriniz.

Sn. ozanakkaya,

Tam istediğim gibi olmuş. Çok teşekkür ederim.

Sn. ozanakkaya,


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

Konuyu sorular bölümüne geri taşıdım, örnek uygulamayı ekleyiniz.

Sorunun altına örnek dosyayı ekledim