AccessTr.neT

Gerçekten hiçbirşey anlamadım.
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

ile değiştirince ve referanslara "Microsoft ActiveX Data Objects 2.1 library" referansını ekleyince kaydetme problemi çözüldü.

Ya kusura bakmayın ama bu işlemleri yaptığınız dosyayı ekleyebilirseniz sevinirim. referans eklemeyi bilmiyorum.

Yazdığınız komut setinin içinde galiba referans dosyası, öyleyse sorun yok, teşekkürler. deniyorum,

Vba sayfasını aç, Tools/References'i tıkla, "Microsoft ActiveX Data Objects 2.1 library" referansını seçip OK'u tıkla.

Referansı etlemezsen kod çalışmaz.

İyi akşamlar.

Emeği geçen ve katkıda bulunanlara teşekkürler..

Acaba, dosyanın düzgün çalışan son hali sitemize yüklenebilir mi?

"Frm_Personel" ekranında "Kullanılan İzinler" alt formuna bağlı "Komut 13" ile izin eklemek isteğimde "Compile Error - Method or Data Member Not Found" hatası veriyor. Dosyayı ekliyorum. Yardımlarınız için tekrar teşekkürler.