Skip to main content

AccessTr.neT


Otomatik Numara Verdirme

Otomatik Numara Verdirme

#7
Sn ozanakkaya;

Sorunun Çözümü ile ilgili bir fikriniz var mi?
Cevapla
#8
Yazdıklarınıza göre kodları düzenledim, inceleyip bilgi veriniz.
.rar STS_Sld2.rar (Dosya Boyutu: 50,73 KB | İndirme Sayısı: 7)
Cevapla
#9
Sn. ozanakkaya,

Tam istediğim gibi olmuş. Çok teşekkür ederim.
Cevapla
#10
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
.rar Örnek Seçim.rar (Dosya Boyutu: 139,63 KB | İndirme Sayısı: 3)
Cevapla
#11
Konuyu sorular bölümüne geri taşıdım, örnek uygulamayı ekleyiniz.
Cevapla
#12
Sorunun altına örnek dosyayı ekledim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da