icmal bordrosu

Goodman · 08-11-2015, 23:29

arkadaşlar;
1- yapmaya çalıştığım ekteki programda verileri girdikten sonra kaydı kaydet tıkladığımda hep aynı kaydın üzerine yazıyor.
2- raporlamada ise verileri tablodan getirirken görev, derece, kademe ve hizmet yılına göre getirmek istiyorum.
bu konuda yardımcı olur musunuz.

dsezgin · 09-11-2015, 14:57

Sn Goodman;

Sorgulama alani yapacaginiz görev, derece, kademe ve hizmet yılına alanlarini iliskisiz acilan kutu tipine cevirin, satir kaynagi sorusuna alanlari referans gosterip, alan isimleri sonuna "X" harfi ekleyin. Form VBA bolumune

Visual Basic
Option Compare Database
Option Explicit
Private Sub Form_Current()
Me.[Görev UnvanıX] = Me.[Görev Unvanı]
Me.KademeX = Me.Kademe
Me.[Hizmet YılıX] = Me.[Hizmet Yılı]
Me.DereceX = Me.Derece
End Sub
Private Sub Komut40_Click()
Me.[Görev Unvanı] = Me.[Görev UnvanıX]
Me.Kademe = Me.KademeX
Me.[Hizmet Yılı] = Me.[Hizmet YılıX]
Me.Derece = DereceX
End Sub
Private Sub Görev_UnvanıX_AfterUpdate()
Call VeriSuz
End Sub
Private Sub Hizmet YılıX_AfterUpdate()
Call VeriSuz
End Sub
Private Sub DereceX_AfterUpdate()
Call VeriSuz
End Sub
Private Sub KademeX_AfterUpdate()
Call VeriSuz
End Sub
Sub VeriSuz()
Dim Kntrl As Control, Kmt As String
For Each Kntrl In Me.Controls
If Kntrl.Properties("ControlType") = 111 Then
If Kntrl.Tag = "Sorgu" And Not IsNull(Kntrl.Value) Then Kmt = Kmt & "(([" & Mid(Kntrl.Name, 1, Len(Kntrl.Name) - 1) & "])='" & Kntrl.Value & "') And "
End If
Next Kntrl
Me.RecordSource = "SELECT [Ana Tablo].* FROM [Ana Tablo] " & "WHERE (" & Mid(Kmt, 1, Len(Kmt) - 5) & ")"
Me.Requery
End Sub

kodlari tasiyin.

Goodman · 13-11-2015, 03:38

sayın dsezgin çok teşekkür ederim.

1- formda personelin adını seçerek diğer bilgilerin gelmesini otomatik nasıl sağlayabiliriz.
2- bu bilgiler geldikten sonra hesaplama bilgileri değişiklik varsa girecek şekilde aylık bilgiler halinde yıllık olarak raporlama yapabilir miyim

bu konuda yardımcı olabilir misiniz

dsezgin · 13-11-2015, 04:29

sayın Goodman;

1- formda personelin adını seçerek diğer bilgilerin gelmesini otomatik nasıl sağlayabiliriz.
Iliskisiz Adı_SoyadıX adinda acilan kutu ile Tag kismina "Sorgu" yazilip, satir kaynagina
SELECT [Adı] & " " & [Soyadı] AS Kimo FROM [Ana Tablo] GROUP BY [Adı] & " " & [Soyadı] ORDER BY [Adı] & " " & [Soyadı] SQL yazilabilir. Guncelleme olay yordamina
Private Sub Adý_SoyadýX_AfterUpdate()
Me.[Görev UnvanýX] = Null
Me.KademeX = Me.Kademe = Null
Me.[Hizmet YýlýX] = Null
Me.DereceX = Null
Call VeriSuz
End Sub

Sub VeriSuz()
...
If Kntrl.Tag = "Sorgu" And Not IsNull(Kntrl.Value) Then Kmt = Kmt & "(([" & Replace(Mid(Kntrl.Name, 1, Len(Kntrl.Name) - 1), "_", "] & ' ' & [") & "])='" & Kntrl.Value & "') And "
....
End sub
prosedurun koyu yazan yeri guncellestirebilirsin.

2- bu bilgiler geldikten sonra hesaplama bilgileri değişiklik varsa girecek şekilde aylık bilgiler halinde yıllık olarak raporlama yapabilir miyim
Emekli Keseneğine Esas Aylık Tutarı alanina aylik veri girisi yapilacak ise
Emekli Keseneğine Esas Aylık Tutarı ile Emekli Keseneğine Esas Aylık Yükselme Tarihi alanlarini bir baska tabloya Kimlik alani ile bire-cok iliskili olarak islenmeli. Her ay kimlik bilgilerinin satira girilmesi epey zor olabilir.

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL