Sn ozanakkaya;
Sorunun Çözümü ile ilgili bir fikriniz var mi?
Otomatik Numara Verdirme
Yazdıklarınıza göre kodları düzenledim, inceleyip bilgi veriniz.
Sn. ozanakkaya,
Tam istediğim gibi olmuş. Çok teşekkür ederim.
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.
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.
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
Konuyu Okuyanlar: 2 Ziyaretçi