Evrak Atlama Engelleme Uyarısı

27/11/2019, 00:29

akaygisiz

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...
27/11/2019, 00:58

ozguryasin

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
27/11/2019, 01:05

akaygisiz

Çok teşekkür ederim sn. @ozguryasin bundan sonra daha dikkatli olacağımdan emin olabilirsiniz emeğinize sağlık
27/11/2019, 01:11

ozguryasin

rica ederim. İyi çalışmalar.