+- 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ığı: Evrak Atlama Engelleme Uyarısı (/konu-evrak-atlama-engelleme-uyarisi.html)
Evrak Atlama Engelleme Uyarısı - akaygisiz - 27/11/2019
Herkese merhabalar,
Evraklar için kayıt tuttuğum tablom var. Buna uygun olarak bir form hazırladım ve gelen - giden evrak şeklinde kullanıyorum. Gelen evrakların sayılarını da ilgili metin kutusuna girmemiz gerekiyor. Fakat örneğin 123. sayı ile gelen evrakı kaydettim sırada 124. evrak olmalı. Burada yardıma ihtiyaç duyduğum nokta; sıradaki kayıt için 124 değilde 125 yazdığımızda kaydet butonuna tıklandığında uyarı verilmesini istiyoruz. "Evrak atlamış olabilirsiniz kontrol ediniz " gibi bir uyarı. Dosyamı ekleyemedim iş yerinde olduğu için fakat kod yardımında bulunursanız çok sevinirim.
Denemiş olduğum kodu eklemek istedim;
Private Sub Komut13_Click()
Max = DMax("evraksayisi", "EVRAK")
If Me.evraksayisi> Max + 1 Then
MsgBox "BİR AKSİLİK VAR!!!!"
Else
End If
Bu kodu kaydet komutunda fakat yer ne sayı yazarsam yazayım uyarı veriyor...
Cvp: Evrak Atlama Engelleme Uyarısı - ozguryasin - 27/11/2019
Merhaba;
kod göndereceğinize örneğinizi gönderseydiniz daha çok işe yarardı. örnekiz konularda cevap almanız zorlaşır. Nedeni ise sizin yerinize tablo yapmak içini doldurmak ve diğer nesneleri yerleştirmek için uğraşılacağından, kolay kolay ilgilenmek istenilmez.
ekteki örneği inceleyip geri bildirimde bulununuz.
Not: daha hızlı cebap alabilirdiniz fakat sizin için tablo ve geri kalan nesneler ile uğraştım.
Kodlar:
Dim SIRA As Integer
SIRA = Format(DMax("evrakno", "Tablo1"), 0)
If SIRA + 1 = CInt(Me.Metin0) Then
If SIRA < Me.Metin0 Then
MsgBox "SIRA NUMARASI DOĞRU. YAPILACAK İŞLEMLER KODLARINI YAZINIZ."
End If
Else
MsgBox "VERMENİZ GEREKEN SIRA NO = " & SIRA + 1
End If
Cvp: Evrak Atlama Engelleme Uyarısı - akaygisiz - 27/11/2019
Çok teşekkür ederim sn. @ozguryasin bundan sonra daha dikkatli olacağımdan emin olabilirsiniz emeğinize sağlık
Cvp: Evrak Atlama Engelleme Uyarısı - ozguryasin - 27/11/2019
rica ederim. İyi çalışmalar.