AccessTr.neT

Tam Versiyon: 2 formu ilişkilendirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
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.
Sayfalar: 1 2 3 4 5