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.