Skip to main content

AccessTr.neT


Evrak Atlama Engelleme Uyarısı

Evrak Atlama Engelleme Uyarısı

Çözüldü #1
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...
Son Düzenleme: 27/11/2019, 00:46, Düzenleyen: akaygisiz.
Cevapla
#2
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
.rar ozguryasin.rar (Dosya Boyutu: 29,14 KB | İndirme Sayısı: 2)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
Çok teşekkür ederim sn. @ozguryasin bundan sonra daha dikkatli olacağımdan emin olabilirsiniz emeğinize sağlık
Cevapla
#4
rica ederim. İyi çalışmalar.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da