Ek'teki Çalışma Taslağımızda ;  Personel Formunda Hesaplamaları Ücret veri girişi ve Hesapla Komutu ile yapabilmekteyiz.
Bir Bu İşlemleri Personel Formunda kişileri tek tek gezerek değil Puantaj Formunda Ay Seçimi  (AçılırKutu)  ile yaptıktan sonra Puantaj Hazırla Komutu ile Tüm İşten çıkış tarihi olmayan kişilerde yaptırmak istiyoruz .
Kısacası Diğer Formda ve Günceleme işlemi ile sanki Personel Formunda ve Tüm Kişileri Tek Tek gezmiş ve gerekli hesaplatmaları yapmış gibi işlem yaptırmak istiyoruz

Merhaba,
Puantaj formundan yapılan seçime göre, personel tablosundaki "Ay" alanı dahil tüm verileri güncellenecek mi?

 Puantaj Formunda Ay Günceleme işlemi ile sanki Personel Formunda Tüm Kişileri Tek Tek gezmiş ve Personel Formundaki Hesap Butonu ile yapılması gereken gerekli hesaplatmaları yapmış gibi işlem yaptırmak istiyoruz

Merhaba, puantaj formunda kullanmanız gereken kod

On Error GoTo Err_Hata

Dim db As Database

Dim rst As Recordset



Set db = CurrentDb()

Set rst = db.OpenRecordset("Personel")





Do While Not rst.EOF

rst.Edit



'Hesaplama Kodları



rst.Update     

rst.MoveNext

Loop



rst.Close

Exit_Hata:

Set rst = Nothing

Set db = Nothing

Exit Sub



Err_Hata:

MsgBox (Err.Number)

Resume Exit_Hata

Yukarıdaki 'Hesaplama Kodları yerine personel formundaki hesaplama kodlarını dahil etmeniz gerekli. Persnel formundaki Me.GırUcret kodunu puantaj formunda rst!GırUcret şeklinde kullanmalısınız.

Hocam rst!GırUcret olarak kulanmaya ve uyarlamaya çalıştım ama çoklu If Koşulları olduğundan uyarlama başarısız oldu.Neticede başarı sağlanamadı. Peki Hocam Liste Kutusu değilde Sürekli Form olarak Ay Güncellemesi yapsam ve Ay Güncelleme işlemine ve Sürekli Formdaki oluşturulacak Komut Butonuna   Hesapla Buton Kodunu  versek olurmu ?

Personel formundaki hesapla butonu ile GırUcret metin kutusunun güncelleştirme sonrasında olayındaki kodları puantaj formuna aktardım.

Konu ile ilgili yapabileceğim malesef bu kadar. Hesaplamalarda hata veya eksiklik var ise düzeltmeniz gerekiyor.