Butonlardaki Hesaplama Kodunu Güncelleme de nasıl yapabiliriz

1 2
14/11/2016, 17:11

ask200075

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
14/11/2016, 17:32

ozanakkaya

Merhaba,
Puantaj formundan yapılan seçime göre, personel tablosundaki "Ay" alanı dahil tüm verileri güncellenecek mi?
14/11/2016, 18:44

ask200075

 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
15/11/2016, 09:15

ozanakkaya

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.
15/11/2016, 09:53

ask200075

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 ?
15/11/2016, 10:57

ozanakkaya

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.
1 2