+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik Numara Verdirme (/konu-otomatik-numara-verdirme--80549.html)
Cvp: Otomatik Numara Verdirme - Allback - 05/07/2015
Sn ozanakkaya;
Sorunun Çözümü ile ilgili bir fikriniz var mi?
Cvp: Otomatik Numara Verdirme - ozanakkaya - 05/07/2015
Yazdıklarınıza göre kodları düzenledim, inceleyip bilgi veriniz.
Cvp: Otomatik Numara Verdirme - Allback - 05/07/2015
Sn. ozanakkaya,
Tam istediğim gibi olmuş. Çok teşekkür ederim.
Cvp: Otomatik Numara Verdirme - Allback - 05/07/2015
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
Cvp: Otomatik Numara Verdirme - ozanakkaya - 05/07/2015
Konuyu sorular bölümüne geri taşıdım, örnek uygulamayı ekleyiniz.
Cvp: Otomatik Numara Verdirme - Allback - 05/07/2015
Sorunun altına örnek dosyayı ekledim