AccessTr.neT

Aşağıda vermiş olduğum kodları nasıl düzenlersek sağlıklı çalışmış olur.

Private Sub btnKaydet_Click()

Dim gtrh, dtrh As Integer

Dim ogrencino As Integer



Dim ctrl As control

For Each ctrl In Me.Controls

If ctrl.Tag = "A" Then

ctrl.enabled = True

End If

Next





If txtgidenler = 0 Then

    MsgBox "Lütfen evci çıkacak öğrenci ya da öğrencileri seçiniz?", , "FŞATL"

Else

 If IsNull(txtgidis) Or IsNull(txtdonus) Then

        If MsgBox("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ? Yine de devam etmek istiyor musunuz ?", vbYesNo, "DIKKAT") = vbYes Then

       MsgBox ("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ?")

       

   Komut5_Click

   Exit Sub

            MsgBox "..... Veriler Aktarılmadı .....", vbInformation

        Else

        

ogrencino = Me.Listeevci.Column(0)

gtrh = CLng(txtgidis)

dtrh = CLng(txtdonus)

          

    If DCount("ogrenciID", "Tblevci", "[ogrenciID] = " & ogrencino & " And Clng([gidistarihi])= " & gtrh & " And clng([donustarihi]) = " & dtrh) > 0 Then

        MsgBox (" Bu tarihler arası kayıt var !")

    Else

        DoCmd.OpenQuery "SoRguevci"

     Komut5_Click

        MsgBox "..... ISLEM TAMAM .....", vbInformation

    End If



End If

End If

End If

    

     

End Sub

tam olarak sorun ne, doğru çalışmıyor mu?
siz ne yapmak istiyorsunuz, kod ne yapıyor?
ayrıca aşağıda kullanılan yapı hatalı
exit sub yazdıktan sonra işlemden çıkılır dolayısıyla mesaj verme kodu çalışmaz
bu nedenle msgbox kısmı exit sub ın üstüne yazılmalı
If MsgBox("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ? Yine de devam etmek istiyor musunuz ?", vbYesNo, "DIKKAT") = vbYes Then
MsgBox ("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ?")

Komut5_Click
Exit Sub
MsgBox "..... Veriler Aktarılmadı .....", vbInformation
Else

Formda iki adet tarih içeren textbox ve iki adet liste kutusu var.

tarih içeren textboxlar boşsa kayıt yapmayacak. txtgidenler textbox nesnesi boşsa da kayıt yapmayacak.

Aynı id ve aynı tarihler varsa mükerrer ekleme yapmayacak.

Eklediğim dosyada; frm-evci formunda
txtgidis metin kutusu ve txtdonus metin kutusu boş ise uyarı vererek kayıt yapmasın ve forma geri dönsün istiyorum.
Ayrıca gidiş ve dönüş tarihleri aynı ise tek kayıt yapılsın istiyorum. Mükerrerlik olmasın istiyorum.
dönüş tarihi gidiş tarihinden küçük olamaz.

Örneği İncelermisin

Maalesef olmadı. Yalnız çalışmamı liste kutusu olarak değil, alt form mantığıyla değiştirdim.