Ayhan2122 nin Sql kodunu ekledim, üst mesajda bansettiğiniz gibi çalıştı. Formdaki "Kullanılan İzinler" yazan yerde bulunan "Ekle" butonunun açtırdığı "Frm_YillikKullanim" formuna yazılan verilerin kaydedilmesinde problem vardı. Formdaki Komut13'ün tıklandığında olayına yazılan kodu
On Error GoTo 10
Dim Hk As Single
Dim KL As Single
Dim BT As Date
Dim Gn As Byte
Dim rs As New ADODB.Recordset
Hk = Me.Hak
Gn = Me.Sre
If Gn > Hk Then
MsgBox "Personel en fazla" & " " & Me.[Hak] & " gün izin kullanabilir." & Chr(13) & _
Me.[Sre] & " gün izin kullanılamaz.", vbCritical + vbOKOnly, "Süre Hatası"
Exit Sub
Else
rs.Open "Tbl_KullanilanYlkIzin", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("KLPersonelBag") = Me.Kimlik
rs("KLBasTar") = Me.BasTr
rs("KLGunSayisi") = Me.Sre
rs.Update
Forms![Frm_Personel]![YılKul].Requery
End If
'Forms![Frm_YillikKullanim].SetFocus
DoCmd.Close
Exit Sub
10 MsgBox Err.Description
Exit Sub
