Dört Aşamalı Kontrol Işlemi Yapma

Merhaba,
-- Access Dosyasında talep_tarihi alanının veri türünü Tarih/Saat olarak değiştiriniz.

-- Excel Dosyasında frmKongre isimli UserForm'a aşağıdaki kodları ekleyiniz.
-- T.C. Kimlik Numarasını yazıp, bir sonraki alana geçtiğiniz zaman kimlik numarasına göre yıl içinde 2 defa izin kullandıysa işlem hakkında bilgiler gelir ve işlem sonlanır.
** En fazla 2 kez izin kullanabilir dediğiniz için izin süresi 14 günden az olsada işleme devam edilmez.

Bu konu hakkında işlem yaparken fark ettiğim konular hakkında notlar;
Not1: Veritabanında id alanı Kısa Metin olarak tanımlanmış ve sonrasına Kimlik alanı Otomatik Sayı olarak eklenmiş. Ancak kodlar içerisinde id kullanmaya devam ettiğiniz için yeni kayıt oluşturulduğunda hatalı listeleme oluyor. Bu nedenle listeye_al kodlarında id başlıklarını Kimlik olarak değiştirmelisiniz.

Not2: Sorgu bölümünden herhangi bir kayıt aratıp, ilgili kutu içeriğini sildiğiniz zaman Kongre izni dışındaki izin bilgilerini de sıralıyor. Eğer sadece kongre izin bilgileri olması gerekiyorsa sorgu cümlesini aşağıdaki şekilde değiştiriniz.
İyi çalışmalar.

Üstadım ilginize çok teşekkür ederim.
Önerileriniz doğrultusunda kod yapısındaki güncellemeyi yaptım.
2 noktada oto kontolün dışına çıkıyor.
İlki double click ile veri nesnelere yüklenip yeni kayıt veya kayıt güncelleme yapınca 14 günlük süre aşılıyor.
ikincisi kişinin ilk kayıt sonrası ikinci kayıtta süre aşımı olup olmadığını kontrol edemiyor.
Tekrar bir gözden geçirirmisiniz?

@ssavas bey, dosyanızı incelemek için zamanım olmadı ama size bir link vermek isterim.
Üstteki linkte, Excel Access ilişkisinin ADO ile kurulmasından tutun, silme, ekleme, düzeltme vs gibi tüm işlemlerin yapıldığı bir örnek var.
Bunu sırf bu işlemle uğraşanlara referans olması için hazırlamıştım.
Belki fayda sağlar diye linkini paylaşmak istedim.

Merhaba, işlemi sadece TextBox Exit bölümünde yaptığım için Kaydet düğmesinde kodlar çalışmaz.
Dosyanızda aşağıdaki değişiklikleri yapınız.

-- Dim DatabasePath As String satırından sonra Dim islem_sonu As Byte satırını ekleyiniz.
-- Aşağıdaki kodları UserForm'a ekleyiniz.

-- TextBox1_Exit bölümünü değiştiriniz.

-- Kaydet kodlarını değiştiriniz.

Üstat teşekkür ederim.
Textbox1'den kimlik numarası sonrası satırında hata veriyor.

Üstteki gibi dener misiniz?

admin' Alıntı:

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Üstteki gibi dener misiniz?

Genişletmek için tıklayın ...

Üstat hatanın kodu değişti.

txtKimlik değeri boş dönüyor. Tanımınızı kontrol etmenizde fayda var. TC kimliklerin yazılı olduğu nesne, TextBox1 şeklinde.
Üstteki gibi sonuç aldım.

rs3 sorgudaki hata giderildi. Güncelleme makrosunda automation error hatası verdi.

rs3(0) sonucuna ulaşamıyorsunuz.
Bundan dolayı hata veriyor.
F8 ile adımlayarak sonuca ulaşmaya çalışın.

Şunu önerebilirim.
open için sorguyu direk aynı cümleye yazmaktansa, ayrı bir tanımlama içine almanız faydalı olur.
Sonrasında bağlantı yaptırıp, if ile rs.recordcount değerinin 0'dan büyük olup olmadığını kontrol edebilirsiniz.
Eğer değer 0 dan büyükse, o zaman sonuç yazdırılır.
Değilse, siz bir şey yazdırabilirsiniz..

Bu da hataya düşmenizi engelleyecektir.
Size verdiğim linki mutlaka inceleyin derim.

Böyle detaylı kodlamalar için benim ne yazık ki dosyayı detaylıca tek tek analiz edecek zamanım yok
Yine de fırsat bulursam cevap vermeye çalışırım.

AhmetRasim' Alıntı:

Merhaba, belirttiğiniz durumları tekrar denedim.
izin_kontrol kodlarını güncelleyiniz.

Genişletmek için tıklayın ...

Çok teşekkür ederim. Sorunsuz çalışıyor.

Rica ederim.
Saygılarımla, iyi çalışmalar.