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