【考勤管理系統(tǒng)】Access數(shù)據(jù)庫(kù)管理系統(tǒng) 考勤 加班 工資 員工 設(shè)計(jì) 編程 VBA代碼分享
系統(tǒng)主頁(yè)
Option Compare Database
Private Sub Command工資1月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 1
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資2月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 2
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資3月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 3
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資4月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 4
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資5月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 5
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資6月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 6
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資7月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 7
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資8月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 8
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資9月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 9
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資10月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 10
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資11月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 11
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command工資12月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 12
DoCmd.OpenForm "工資窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班1月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 1
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班2月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 2
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班3月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 3
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班4月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 4
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班5月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 5
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班6月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 6
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班7月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 7
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班8月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 8
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班9月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 9
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班10月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 10
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班11月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 11
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command加班12月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 12
DoCmd.OpenForm "加班窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤1月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 1
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤2月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 2
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤3月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 3
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤4月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 4
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤5月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 5
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤6月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 6
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤7月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 7
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤8月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 8
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤9月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 9
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤10月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 10
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤11月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 11
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command考勤12月_Click()
If Me.Combo年份 <> "" Then
year_num = Me.Combo年份
month_num = 12
DoCmd.OpenForm "考勤窗體", acNormal
Else
MsgBox "請(qǐng)輸入年份"
Exit Sub
End If
End Sub
Private Sub Command年月工資統(tǒng)計(jì)_Click()
DoCmd.OpenForm "年月工資統(tǒng)計(jì)", acNormal
End Sub
Private Sub Command年月加班統(tǒng)計(jì)_Click()
DoCmd.OpenForm "年月加班統(tǒng)計(jì)", acNormal
End Sub
Private Sub Command年月考勤統(tǒng)計(jì)_Click()
DoCmd.OpenForm "年月考勤統(tǒng)計(jì)", acNormal
End Sub
Private Sub Command全部工資記錄_Click()
DoCmd.OpenForm "全部工資記錄", acNormal
End Sub
Private Sub Command全部加班記錄_Click()
DoCmd.OpenForm "全部加班記錄", acNormal
End Sub
Private Sub Command全部考勤記錄_Click()
DoCmd.OpenForm "全部考勤記錄", acNormal
End Sub
Private Sub Command退出系統(tǒng)_Click()
If MsgBox("是否退出系統(tǒng)", vbYesNo) <> vbYes Then
Exit Sub
End If
Application.Quit acQuitSaveAll
End Sub
Private Sub Command系統(tǒng)后臺(tái)_Click()
DoCmd.Close acForm, Me.Name
DoCmd.SelectObject acForm, , True
End Sub
Private Sub Command員工工資統(tǒng)計(jì)_Click()
DoCmd.OpenForm "員工工資統(tǒng)計(jì)", acNormal
End Sub
Private Sub Command員工管理_Click()
DoCmd.OpenForm "員工管理", acNormal
End Sub
Private Sub Command員工加班統(tǒng)計(jì)_Click()
DoCmd.OpenForm "員工加班統(tǒng)計(jì)", acNormal
End Sub
Private Sub Command員工考勤統(tǒng)計(jì)_Click()
DoCmd.OpenForm "員工考勤統(tǒng)計(jì)", acNormal
End Sub
Private Sub Form_Load()
Me.Combo年份.Value = Year(Date)
End Sub
工資查詢數(shù)據(jù)表
Private Sub 年份_DblClick(Cancel As Integer)
If MsgBox("刪除【" & Me.姓名 & "】" & Me.年份 & "年" & Me.月份 & "月 工資記錄？", vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 工資表 Where? 工資ID=" & Me.工資ID
DoCmd.RunSQL del_sql
On Error Resume Next
Forms("工資窗體").Form.數(shù)據(jù)表子窗體.Requery
Forms("全部工資記錄").Form.數(shù)據(jù)表子窗體.Requery
End If
End Sub
工資窗體
Option Compare Database
Public ym_filter As String
Private Sub Command查詢_Click()
If Me.Combo部門.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "部門 like '*" & Me.Combo部門 & "*' and " & ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "工資ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command批量更新_Click()
If Me.Combo類型 <> "" And Me.Text金額 <> "" Then
Call updaterecordkq(Me.Text金額, year_num, month_num, Me.Combo類型)
Else
MsgBox "請(qǐng)選擇類型，并且金額不能為空"
Exit Sub
End If
MsgBox "更新完成"
Me.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "工資ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command生成_Click()
DoCmd.OpenForm "工資選擇員工", acNormal
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Me.年份 = year_num
Me.Label標(biāo)題.Caption = month_num & "月份工資"
ym_filter = "年份=" & year_num & " and 月份=" & month_num
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "工資ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
Public Sub updaterecordkq(ByVal salarynum As Currency, ByVal ynum As Long, ByVal mnum As Long, ByVal fieldn As String)
'如果姓名不存在則不添加
Dim update_rs As DAO.Recordset
Dim update_sql As String
update_sql = "select * From 工資表 where 年份=" & ynum & " and 月份=" & mnum
Set update_rs = CurrentDb.OpenRecordset(update_sql, dbOpenDynaset)
With update_rs
Do While update_rs.EOF = False
.Edit
.Fields(fieldn).Value = salarynum
.Update
.MoveNext
Loop
.Close
End With
Set update_rs = Nothing
End Sub
工資選擇員工
Option Compare Database
Private Sub Command全部取消_Click()
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub Command全部選中_Click()
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? Me.List選中.AddItem List全部.Column(0, i) & "," & List全部.Column(1, i) & "," & List全部.Column(2, i)
? ? ? ? Me.List全部.RemoveItem i
? ? Next i
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Private Sub Command生成_Click()
'------------------------------------------------循環(huán)選中組合框
Dim i
Dim icount As Long
icount = Me.List選中.ListCount
Dim item_name As String
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? item_name = Me.List選中.Column(0, i)
? ? ? ? '添加新記錄至工資表
? ? ? ? Call addrecordkq(item_name, year_num, month_num)
? ? Next i
? ? MsgBox "生成完成"
End If
End Sub
Private Sub Form_Close()
Forms("工資窗體").Form.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub List全部_DblClick(Cancel As Integer)
If IsNull(List全部.Value) = False And List全部.ListIndex <> -1 Then
Me.List選中.AddItem List全部.Column(0) & "," & List全部.Column(1) & "," & List全部.Column(2)
Me.List全部.RemoveItem List全部.ListIndex
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Private Sub List選中_DblClick(Cancel As Integer)
If IsNull(List選中.Value) = False And List選中.ListIndex <> -1 Then
Me.List全部.AddItem List選中.Column(0) & "," & List選中.Column(1) & "," & List選中.Column(2)
Me.List選中.RemoveItem List選中.ListIndex
End If
Me.List選中.Requery
Me.List全部.Requery
End Sub
Public Sub addrecordkq(ByVal yg_name As String, ByVal ynum As Long, ByVal mnum As Long)
'如果姓名不存在則不添加
If Nz(DCount("姓名", "員工表", "姓名='" & yg_name & "'"), 0) = 0 Then
Exit Sub
End If
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("工資表", dbOpenTable)
With add_rs
.AddNew
!年份.Value = ynum
!月份.Value = mnum
!姓名.Value = yg_name
!基本工資.Value = Nz(DLookup("基本工資", "員工表", "姓名='" & yg_name & "'"), 0)
!崗位工資.Value = Nz(DLookup("崗位工資", "員工表", "姓名='" & yg_name & "'"), 0)
!加班工資.Value = Nz(DLookup("加班", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("加班", "加班表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!績(jī)效考核.Value = 0
!獎(jiǎng)金.Value = 0
!補(bǔ)貼.Value = 0
!出勤.Value = Nz(DLookup("出勤", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("出勤", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!病假.Value = Nz(DLookup("病假", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("病假", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!補(bǔ)休.Value = Nz(DLookup("補(bǔ)休", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("補(bǔ)休", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!出差.Value = Nz(DLookup("出差", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("出差", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!產(chǎn)假.Value = Nz(DLookup("產(chǎn)假", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("產(chǎn)假", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!遲到.Value = Nz(DLookup("遲到", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("遲到", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!婚假.Value = Nz(DLookup("婚假", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("婚假", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!曠工.Value = Nz(DLookup("曠工", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("曠工", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!年假.Value = Nz(DLookup("年假", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("年假", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!培訓(xùn).Value = Nz(DLookup("培訓(xùn)", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("培訓(xùn)", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!事假.Value = Nz(DLookup("事假", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("事假", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!休息.Value = Nz(DLookup("休息", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("休息", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!早退.Value = Nz(DLookup("早退", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("早退", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!自定義.Value = Nz(DLookup("自定義", "員工表", "姓名='" & yg_name & "'"), 0) * Nz(DLookup("自定義", "考勤表", "姓名='" & yg_name & "' and 年份=" & ynum & " and 月份=" & mnum), 0)
!其他應(yīng)發(fā).Value = 0
!社保.Value = 0
!個(gè)稅.Value = 0
!公積金.Value = 0
!其他代扣.Value = 0
.Update
.Close
End With
Set add_rs = Nothing
End Sub
加班查詢數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim date_month As Long
If Me.日數(shù)29日 <> 0 Then
date_month = Month(DateSerial(year_num, month_num, 29))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有29號(hào)"
? ? ? ? Me.日數(shù)29日.Value = 0
? ? End If
End If
If Me.日數(shù)30日 <> 0 Then
date_month = Month(DateSerial(year_num, month_num, 30))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有30號(hào)"
? ? ? ? Me.日數(shù)30日.Value = 0
? ? End If
End If
If Me.日數(shù)31日 <> 0 Then
date_month = Month(DateSerial(year_num, month_num, 31))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有31號(hào)"
? ? ? ? Me.日數(shù)31日.Value = 0
? ? End If
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
If MsgBox("刪除【" & Me.姓名 & "】" & Me.年份 & "年" & Me.月份 & "月 加班記錄？", vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 加班表 Where? 加班ID=" & Me.加班ID
DoCmd.RunSQL del_sql
On Error Resume Next
Forms("加班窗體").Form.數(shù)據(jù)表子窗體.Requery
Forms("全部加班記錄").Form.數(shù)據(jù)表子窗體.Requery
End If
End Sub
加班窗體
Option Compare Database
Public ym_filter As String
Private Sub Command查詢_Click()
If Me.Combo部門.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "部門 like '*" & Me.Combo部門 & "*' and " & ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command批量更新_Click()
'日期不能為空
If Me.Combo日期 <> "" Then
Dim date_month As Long
date_month = Month(DateSerial(year_num, month_num, Me.Combo日期))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有" & Me.Combo日期 & "號(hào)"
? ? ? ? Exit Sub
? ? End If
Else
MsgBox "請(qǐng)選擇日期"
Exit Sub
End If
If Me.Combo加班 <> "" Then
Call updaterecordkq(Me.Combo加班, year_num, month_num, Me.Combo日期)
Else
MsgBox "請(qǐng)輸入或選擇加班時(shí)間"
Exit Sub
End If
MsgBox "更新完成"
Me.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command生成_Click()
DoCmd.OpenForm "加班選擇員工", acNormal
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Me.年份 = year_num
Me.Label標(biāo)題.Caption = month_num & "月份加班"
ym_filter = "年份=" & year_num & " and 月份=" & month_num
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Me.Combo日期 = Day(Date)
End Sub
Public Sub updaterecordkq(ByVal worknum As Single, ByVal ynum As Long, ByVal mnum As Long, ByVal daynum As Long)
'如果姓名不存在則不添加
Dim update_rs As DAO.Recordset
Dim update_sql As String
update_sql = "select * From 加班表 where 年份=" & ynum & " and 月份=" & mnum
?
Set update_rs = CurrentDb.OpenRecordset(update_sql, dbOpenDynaset)
With update_rs
Dim update_field As String
update_field = "日數(shù)" & daynum & "日"
Do While update_rs.EOF = False
.Edit
.Fields(CStr(update_field)).Value = worknum
.Update
.MoveNext
Loop
.Close
End With
Set update_rs = Nothing
End Sub
加班選擇員工
Option Compare Database
Private Sub Command全部取消_Click()
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub Command全部選中_Click()
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? Me.List選中.AddItem List全部.Column(0, i) & "," & List全部.Column(1, i) & "," & List全部.Column(2, i)
? ? ? ? Me.List全部.RemoveItem i
? ? Next i
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Private Sub Command生成_Click()
'------------------------------------------------循環(huán)選中組合框
Dim i
Dim icount As Long
icount = Me.List選中.ListCount
Dim item_name As String
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? item_name = Me.List選中.Column(0, i)
? ? ? ? '添加新記錄至加班表
? ? ? ? Call addrecordkq(item_name, year_num, month_num)
? ? Next i
? ? MsgBox "生成完成"
End If
End Sub
Private Sub Form_Close()
Forms("加班窗體").Form.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub List全部_DblClick(Cancel As Integer)
If IsNull(List全部.Value) = False And List全部.ListIndex <> -1 Then
Me.List選中.AddItem List全部.Column(0) & "," & List全部.Column(1) & "," & List全部.Column(2)
Me.List全部.RemoveItem List全部.ListIndex
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Public Sub addrecordkq(ByVal yg_name As String, ByVal ynum As Long, ByVal mnum As Long)
'如果姓名不存在則不添加
If Nz(DCount("姓名", "員工表", "姓名='" & yg_name & "'"), 0) = 0 Then
Exit Sub
End If
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("加班表", dbOpenTable)
With add_rs
.AddNew
!年份.Value = ynum
!月份.Value = mnum
!姓名.Value = yg_name
.Update
.Close
End With
Set add_rs = Nothing
End Sub
Private Sub List選中_DblClick(Cancel As Integer)
If IsNull(List選中.Value) = False And List選中.ListIndex <> -1 Then
Me.List全部.AddItem List選中.Column(0) & "," & List選中.Column(1) & "," & List選中.Column(2)
Me.List選中.RemoveItem List選中.ListIndex
End If
Me.List選中.Requery
Me.List全部.Requery
End Sub
考勤查詢數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim date_month As Long
If Me.日數(shù)29日 <> "" Then
date_month = Month(DateSerial(year_num, month_num, 29))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有29號(hào)"
? ? ? ? Me.日數(shù)29日.Value = ""
? ? End If
End If
If Me.日數(shù)30日 <> "" Then
date_month = Month(DateSerial(year_num, month_num, 30))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有30號(hào)"
? ? ? ? Me.日數(shù)30日.Value = ""
? ? End If
End If
If Me.日數(shù)31日 <> "" Then
date_month = Month(DateSerial(year_num, month_num, 31))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有31號(hào)"
? ? ? ? Me.日數(shù)31日.Value = ""
? ? End If
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
If MsgBox("刪除【" & Me.姓名 & "】" & Me.年份 & "年" & Me.月份 & "月 考勤記錄？", vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 考勤表 Where? 考勤ID=" & Me.考勤ID
DoCmd.RunSQL del_sql
On Error Resume Next
Forms("考勤窗體").Form.數(shù)據(jù)表子窗體.Requery
Forms("全部考勤記錄").Form.數(shù)據(jù)表子窗體.Requery
End If
End Sub
考勤窗體
Option Compare Database
Public ym_filter As String
Private Sub Command查詢_Click()
If Me.Combo部門.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "部門 like '*" & Me.Combo部門 & "*' and " & ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "考勤ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command批量更新_Click()
'日期不能為空
If Me.Combo日期 <> "" Then
Dim date_month As Long
date_month = Month(DateSerial(year_num, month_num, Me.Combo日期))
? ? If date_month <> month_num Then
? ? ? ? MsgBox "該月份沒有" & Me.Combo日期 & "號(hào)"
? ? ? ? Exit Sub
? ? End If
Else
MsgBox "請(qǐng)選擇日期"
Exit Sub
End If
If Me.Combo類型 <> "" Then
Call updaterecordkq(Me.Combo類型, year_num, month_num, Me.Combo日期)
Else
Call updaterecordkq("", year_num, month_num, Me.Combo日期)
End If
MsgBox "更新完成"
Me.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "考勤ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command生成_Click()
DoCmd.OpenForm "考勤選擇員工", acNormal
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Me.年份 = year_num
Me.Label標(biāo)題.Caption = month_num & "月份考勤"
ym_filter = "年份=" & year_num & " and 月份=" & month_num
Me.數(shù)據(jù)表子窗體.Form.Filter = ym_filter
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "考勤ID ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Me.Combo日期 = Day(Date)
End Sub
Public Sub updaterecordkq(ByVal markchar As String, ByVal ynum As Long, ByVal mnum As Long, ByVal daynum As Long)
'如果姓名不存在則不添加
Dim update_rs As DAO.Recordset
Dim update_sql As String
update_sql = "select * From 考勤表 where 年份=" & ynum & " and 月份=" & mnum
Set update_rs = CurrentDb.OpenRecordset(update_sql, dbOpenDynaset)
With update_rs
Dim update_field As String
update_field = "日數(shù)" & daynum & "日"
Do While update_rs.EOF = False
.Edit
.Fields(CStr(update_field)).Value = markchar
.Update
.MoveNext
Loop
.Close
End With
Set update_rs = Nothing
End Sub
考勤選擇員工
Option Compare Database
Private Sub Command全部取消_Click()
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub Command全部選中_Click()
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? Me.List選中.AddItem List全部.Column(0, i) & "," & List全部.Column(1, i) & "," & List全部.Column(2, i)
? ? ? ? Me.List全部.RemoveItem i
? ? Next i
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Private Sub Command生成_Click()
'------------------------------------------------循環(huán)選中組合框
Dim i
Dim icount As Long
icount = Me.List選中.ListCount
Dim item_name As String
If icount > 0 Then
? ? For i = icount - 1 To 0 Step -1
? ? ? ? item_name = Me.List選中.Column(0, i)
? ? ? ? '添加新記錄至考勤表
? ? ? ? Call addrecordkq(item_name, year_num, month_num)
? ? Next i
? ? MsgBox "生成完成"
End If
End Sub
Private Sub Form_Close()
Forms("考勤窗體").Form.數(shù)據(jù)表子窗體.Requery
End Sub
Private Sub Form_Load()
If year_num = 0 Or month_num = 0 Then
MsgBox "請(qǐng)?jiān)谙到y(tǒng)主頁(yè)窗體點(diǎn)擊指定月份打開，請(qǐng)?jiān)O(shè)置符合規(guī)范的年份，月份數(shù)字"
DoCmd.Close acForm, Me.Name
Exit Sub
End If
'------------------------------------------------清空全部列表框原有選項(xiàng)
Dim i
Dim icount As Long
icount = Me.List全部.ListCount
For i = icount - 1 To 0 Step -1
Me.List全部.RemoveItem i
Next i
icount = Me.List選中.ListCount
For i = icount - 1 To 0 Step -1
Me.List選中.RemoveItem i
Next i
'------------------------------------------------查詢員工表添加全部列表框選項(xiàng)
Dim search_rs As DAO.Recordset
Dim search_sql As String
search_sql = "Select * From 員工表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
Do While search_rs.EOF = False
Me.List全部.AddItem search_rs!姓名.Value & "," & search_rs!部門.Value & "," & search_rs!職務(wù).Value
search_rs.MoveNext
Loop
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub List全部_DblClick(Cancel As Integer)
If IsNull(List全部.Value) = False And List全部.ListIndex <> -1 Then
Me.List選中.AddItem List全部.Column(0) & "," & List全部.Column(1) & "," & List全部.Column(2)
Me.List全部.RemoveItem List全部.ListIndex
End If
Me.List全部.Requery
Me.List選中.Requery
End Sub
Public Sub addrecordkq(ByVal yg_name As String, ByVal ynum As Long, ByVal mnum As Long)
'如果姓名不存在則不添加
If Nz(DCount("姓名", "員工表", "姓名='" & yg_name & "'"), 0) = 0 Then
Exit Sub
End If
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("考勤表", dbOpenTable)
With add_rs
.AddNew
!年份.Value = ynum
!月份.Value = mnum
!姓名.Value = yg_name
.Update
.Close
End With
Set add_rs = Nothing
End Sub
Private Sub List選中_DblClick(Cancel As Integer)
If IsNull(List選中.Value) = False And List選中.ListIndex <> -1 Then
Me.List全部.AddItem List選中.Column(0) & "," & List選中.Column(1) & "," & List選中.Column(2)
Me.List選中.RemoveItem List選中.ListIndex
End If
Me.List選中.Requery
Me.List全部.Requery
End Sub
年月工資統(tǒng)計(jì)
Option Compare Database
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 年月工資統(tǒng)計(jì)表"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 年月工資統(tǒng)計(jì)查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 年月工資統(tǒng)計(jì)查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("年月工資統(tǒng)計(jì)表", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!基本工資合計(jì).Value = !基本工資合計(jì).Value
add_rs!崗位工資合計(jì).Value = !崗位工資合計(jì).Value
add_rs!加班工資合計(jì).Value = !加班工資合計(jì).Value
add_rs!績(jī)效考核合計(jì).Value = !績(jī)效考核合計(jì).Value
add_rs!獎(jiǎng)金合計(jì).Value = !獎(jiǎng)金合計(jì).Value
add_rs!補(bǔ)貼合計(jì).Value = !補(bǔ)貼合計(jì).Value
add_rs!出勤合計(jì).Value = !出勤合計(jì).Value
add_rs!病假合計(jì).Value = !病假合計(jì).Value
add_rs!補(bǔ)休合計(jì).Value = !補(bǔ)休合計(jì).Value
add_rs!出差合計(jì).Value = !出差合計(jì).Value
add_rs!產(chǎn)假合計(jì).Value = !產(chǎn)假合計(jì).Value
add_rs!遲到合計(jì).Value = !遲到合計(jì).Value
add_rs!婚假合計(jì).Value = !婚假合計(jì).Value
add_rs!曠工合計(jì).Value = !曠工合計(jì).Value
add_rs!年假合計(jì).Value = !年假合計(jì).Value
add_rs!培訓(xùn)合計(jì).Value = !培訓(xùn)合計(jì).Value
add_rs!事假合計(jì).Value = !事假合計(jì).Value
add_rs!休息合計(jì).Value = !休息合計(jì).Value
add_rs!早退合計(jì).Value = !早退合計(jì).Value
add_rs!自定義合計(jì).Value = !自定義合計(jì).Value
add_rs!其他應(yīng)發(fā)合計(jì).Value = !其他應(yīng)發(fā)合計(jì).Value
add_rs!社保合計(jì).Value = !社保合計(jì).Value
add_rs!個(gè)稅合計(jì).Value = !個(gè)稅合計(jì).Value
add_rs!公積金合計(jì).Value = !公積金合計(jì).Value
add_rs!其他代扣合計(jì).Value = !其他代扣合計(jì).Value
add_rs!應(yīng)發(fā)工資合計(jì).Value = !應(yīng)發(fā)工資合計(jì).Value
add_rs!代扣工資合計(jì).Value = !代扣工資合計(jì).Value
add_rs!實(shí)發(fā)工資合計(jì).Value = !實(shí)發(fā)工資合計(jì).Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("年月工資統(tǒng)計(jì)表")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
年月加班統(tǒng)計(jì)
Option Compare Database
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 年月加班統(tǒng)計(jì)表"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 年月加班統(tǒng)計(jì)查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 年月加班統(tǒng)計(jì)查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("年月加班統(tǒng)計(jì)表", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!加班合計(jì).Value = !加班合計(jì).Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("年月加班統(tǒng)計(jì)表")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
年月考勤統(tǒng)計(jì)
Option Compare Database
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 年月考勤統(tǒng)計(jì)表"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 年月考勤統(tǒng)計(jì)查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 年月考勤統(tǒng)計(jì)查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("年月考勤統(tǒng)計(jì)表", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!出勤合計(jì).Value = !出勤合計(jì).Value
add_rs!病假合計(jì).Value = !病假合計(jì).Value
add_rs!補(bǔ)休合計(jì).Value = !補(bǔ)休合計(jì).Value
add_rs!出差合計(jì).Value = !出差合計(jì).Value
add_rs!產(chǎn)假合計(jì).Value = !產(chǎn)假合計(jì).Value
add_rs!遲到合計(jì).Value = !遲到合計(jì).Value
add_rs!婚假合計(jì).Value = !婚假合計(jì).Value
add_rs!曠工合計(jì).Value = !曠工合計(jì).Value
add_rs!年假合計(jì).Value = !年假合計(jì).Value
add_rs!培訓(xùn)合計(jì).Value = !培訓(xùn)合計(jì).Value
add_rs!事假合計(jì).Value = !事假合計(jì).Value
add_rs!休息合計(jì).Value = !休息合計(jì).Value
add_rs!早退合計(jì).Value = !早退合計(jì).Value
add_rs!自定義合計(jì).Value = !自定義合計(jì).Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("年月考勤統(tǒng)計(jì)表")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
全部工資記錄
Option Compare Database
Dim filter_all As String
Private Sub Command查詢_Click()
filter_all = ""
If Me.Combo年份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 年份=" & Me.Combo年份
? ? Else
? ? filter_all = "年份=" & Me.Combo年份
? ? End If
End If
If Me.Combo月份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 月份=" & Me.Combo月份
? ? Else
? ? filter_all = "月份=" & Me.Combo月份
? ? End If
End If
If Me.Combo部門 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 部門 like '*" & Me.Combo部門 & "*'"
? ? Else
? ? filter_all = "部門 like '*" & Me.Combo部門 & "*'"
? ? End If
End If
If Me.Combo姓名 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 姓名 like '*" & Me.Combo姓名 & "*'"
? ? Else
? ? filter_all = "姓名 like '*" & Me.Combo姓名 & "*'"
? ? End If
End If
If filter_all <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = filter_all
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command清除_Click()
Me.Combo年份 = ""
Me.Combo月份 = ""
Me.Combo部門 = ""
Me.Combo姓名 = ""
End Sub
Private Sub Command全部_Click()
filter_all = ""
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
'On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 加班記錄"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 加班查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 加班查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("加班記錄", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!姓名.Value = !姓名.Value
add_rs!部門.Value = !部門.Value
add_rs!職務(wù).Value = !職務(wù).Value
add_rs!日數(shù)1日.Value = !日數(shù)1日.Value
add_rs!日數(shù)2日.Value = !日數(shù)2日.Value
add_rs!日數(shù)3日.Value = !日數(shù)3日.Value
add_rs!日數(shù)4日.Value = !日數(shù)4日.Value
add_rs!日數(shù)5日.Value = !日數(shù)5日.Value
add_rs!日數(shù)6日.Value = !日數(shù)6日.Value
add_rs!日數(shù)7日.Value = !日數(shù)7日.Value
add_rs!日數(shù)8日.Value = !日數(shù)8日.Value
add_rs!日數(shù)9日.Value = !日數(shù)9日.Value
add_rs!日數(shù)10日.Value = !日數(shù)10日.Value
add_rs!日數(shù)11日.Value = !日數(shù)11日.Value
add_rs!日數(shù)12日.Value = !日數(shù)12日.Value
add_rs!日數(shù)13日.Value = !日數(shù)13日.Value
add_rs!日數(shù)14日.Value = !日數(shù)14日.Value
add_rs!日數(shù)15日.Value = !日數(shù)15日.Value
add_rs!日數(shù)16日.Value = !日數(shù)16日.Value
add_rs!日數(shù)17日.Value = !日數(shù)17日.Value
add_rs!日數(shù)18日.Value = !日數(shù)18日.Value
add_rs!日數(shù)19日.Value = !日數(shù)19日.Value
add_rs!日數(shù)20日.Value = !日數(shù)20日.Value
add_rs!日數(shù)21日.Value = !日數(shù)21日.Value
add_rs!日數(shù)22日.Value = !日數(shù)22日.Value
add_rs!日數(shù)23日.Value = !日數(shù)23日.Value
add_rs!日數(shù)24日.Value = !日數(shù)24日.Value
add_rs!日數(shù)25日.Value = !日數(shù)25日.Value
add_rs!日數(shù)26日.Value = !日數(shù)26日.Value
add_rs!日數(shù)27日.Value = !日數(shù)27日.Value
add_rs!日數(shù)28日.Value = !日數(shù)28日.Value
add_rs!日數(shù)29日.Value = !日數(shù)29日.Value
add_rs!日數(shù)30日.Value = !日數(shù)30日.Value
add_rs!日數(shù)31日.Value = !日數(shù)31日.Value
add_rs!加班.Value = !加班.Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("加班記錄")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
全部加班記錄
Option Compare Database
Dim filter_all As String
Private Sub Command查詢_Click()
filter_all = ""
If Me.Combo年份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 年份=" & Me.Combo年份
? ? Else
? ? filter_all = "年份=" & Me.Combo年份
? ? End If
End If
If Me.Combo月份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 月份=" & Me.Combo月份
? ? Else
? ? filter_all = "月份=" & Me.Combo月份
? ? End If
End If
If Me.Combo部門 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 部門 like '*" & Me.Combo部門 & "*'"
? ? Else
? ? filter_all = "部門 like '*" & Me.Combo部門 & "*'"
? ? End If
End If
If Me.Combo姓名 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 姓名 like '*" & Me.Combo姓名 & "*'"
? ? Else
? ? filter_all = "姓名 like '*" & Me.Combo姓名 & "*'"
? ? End If
End If
If filter_all <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = filter_all
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command清除_Click()
Me.Combo年份 = ""
Me.Combo月份 = ""
Me.Combo部門 = ""
Me.Combo姓名 = ""
End Sub
Private Sub Command全部_Click()
filter_all = ""
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "加班ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
'On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 加班記錄"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 加班查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 加班查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("加班記錄", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!姓名.Value = !姓名.Value
add_rs!部門.Value = !部門.Value
add_rs!職務(wù).Value = !職務(wù).Value
add_rs!日數(shù)1日.Value = !日數(shù)1日.Value
add_rs!日數(shù)2日.Value = !日數(shù)2日.Value
add_rs!日數(shù)3日.Value = !日數(shù)3日.Value
add_rs!日數(shù)4日.Value = !日數(shù)4日.Value
add_rs!日數(shù)5日.Value = !日數(shù)5日.Value
add_rs!日數(shù)6日.Value = !日數(shù)6日.Value
add_rs!日數(shù)7日.Value = !日數(shù)7日.Value
add_rs!日數(shù)8日.Value = !日數(shù)8日.Value
add_rs!日數(shù)9日.Value = !日數(shù)9日.Value
add_rs!日數(shù)10日.Value = !日數(shù)10日.Value
add_rs!日數(shù)11日.Value = !日數(shù)11日.Value
add_rs!日數(shù)12日.Value = !日數(shù)12日.Value
add_rs!日數(shù)13日.Value = !日數(shù)13日.Value
add_rs!日數(shù)14日.Value = !日數(shù)14日.Value
add_rs!日數(shù)15日.Value = !日數(shù)15日.Value
add_rs!日數(shù)16日.Value = !日數(shù)16日.Value
add_rs!日數(shù)17日.Value = !日數(shù)17日.Value
add_rs!日數(shù)18日.Value = !日數(shù)18日.Value
add_rs!日數(shù)19日.Value = !日數(shù)19日.Value
add_rs!日數(shù)20日.Value = !日數(shù)20日.Value
add_rs!日數(shù)21日.Value = !日數(shù)21日.Value
add_rs!日數(shù)22日.Value = !日數(shù)22日.Value
add_rs!日數(shù)23日.Value = !日數(shù)23日.Value
add_rs!日數(shù)24日.Value = !日數(shù)24日.Value
add_rs!日數(shù)25日.Value = !日數(shù)25日.Value
add_rs!日數(shù)26日.Value = !日數(shù)26日.Value
add_rs!日數(shù)27日.Value = !日數(shù)27日.Value
add_rs!日數(shù)28日.Value = !日數(shù)28日.Value
add_rs!日數(shù)29日.Value = !日數(shù)29日.Value
add_rs!日數(shù)30日.Value = !日數(shù)30日.Value
add_rs!日數(shù)31日.Value = !日數(shù)31日.Value
add_rs!加班.Value = !加班.Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("加班記錄")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
全部考勤記錄
Option Compare Database
Dim filter_all As String
Private Sub Command查詢_Click()
filter_all = ""
If Me.Combo年份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 年份=" & Me.Combo年份
? ? Else
? ? filter_all = "年份=" & Me.Combo年份
? ? End If
End If
If Me.Combo月份 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 月份=" & Me.Combo月份
? ? Else
? ? filter_all = "月份=" & Me.Combo月份
? ? End If
End If
If Me.Combo部門 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 部門 like '*" & Me.Combo部門 & "*'"
? ? Else
? ? filter_all = "部門 like '*" & Me.Combo部門 & "*'"
? ? End If
End If
If Me.Combo姓名 <> "" Then
? ? If filter_all <> "" Then
? ? filter_all = filter_all & "and 姓名 like '*" & Me.Combo姓名 & "*'"
? ? Else
? ? filter_all = "姓名 like '*" & Me.Combo姓名 & "*'"
? ? End If
End If
If filter_all <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = filter_all
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
Private Sub Command降序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "考勤ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command清除_Click()
Me.Combo年份 = ""
Me.Combo月份 = ""
Me.Combo部門 = ""
Me.Combo姓名 = ""
End Sub
Private Sub Command全部_Click()
filter_all = ""
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
Private Sub Command升序_Click()
If Me.Combo排序.Value <> "" Then
Me.數(shù)據(jù)表子窗體.Form.OrderBy = Me.Combo排序.Value & " ASC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "考勤ID DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End If
End Sub
Private Sub Command數(shù)據(jù)導(dǎo)出_Click()
On Error GoTo 導(dǎo)出失敗
'------------------------------------------------清空表數(shù)據(jù)
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 考勤記錄"
DoCmd.RunSQL del_sql
Dim dflink_sql As String
ck_filter = Me.數(shù)據(jù)表子窗體.Form.Filter
If ck_filter <> "" And Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
dflink_sql = "SELECT * FROM 考勤查詢 " & " Where " & ck_filter
Else
dflink_sql = "SELECT * FROM 考勤查詢"
End If
ck_order = Me.數(shù)據(jù)表子窗體.Form.OrderBy
If ck_order <> "" Then
dflink_sql = dflink_sql & " order by " & ck_order
End If
Dim dflink_rs As DAO.Recordset
Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset)
With dflink_rs
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("考勤記錄", dbOpenTable)
Do While .EOF = False
add_rs.AddNew
add_rs!年份.Value = !年份.Value
add_rs!月份.Value = !月份.Value
add_rs!姓名.Value = !姓名.Value
add_rs!部門.Value = !部門.Value
add_rs!職務(wù).Value = !職務(wù).Value
add_rs!日數(shù)1日.Value = !日數(shù)1日.Value
add_rs!日數(shù)2日.Value = !日數(shù)2日.Value
add_rs!日數(shù)3日.Value = !日數(shù)3日.Value
add_rs!日數(shù)4日.Value = !日數(shù)4日.Value
add_rs!日數(shù)5日.Value = !日數(shù)5日.Value
add_rs!日數(shù)6日.Value = !日數(shù)6日.Value
add_rs!日數(shù)7日.Value = !日數(shù)7日.Value
add_rs!日數(shù)8日.Value = !日數(shù)8日.Value
add_rs!日數(shù)9日.Value = !日數(shù)9日.Value
add_rs!日數(shù)10日.Value = !日數(shù)10日.Value
add_rs!日數(shù)11日.Value = !日數(shù)11日.Value
add_rs!日數(shù)12日.Value = !日數(shù)12日.Value
add_rs!日數(shù)13日.Value = !日數(shù)13日.Value
add_rs!日數(shù)14日.Value = !日數(shù)14日.Value
add_rs!日數(shù)15日.Value = !日數(shù)15日.Value
add_rs!日數(shù)16日.Value = !日數(shù)16日.Value
add_rs!日數(shù)17日.Value = !日數(shù)17日.Value
add_rs!日數(shù)18日.Value = !日數(shù)18日.Value
add_rs!日數(shù)19日.Value = !日數(shù)19日.Value
add_rs!日數(shù)20日.Value = !日數(shù)20日.Value
add_rs!日數(shù)21日.Value = !日數(shù)21日.Value
add_rs!日數(shù)22日.Value = !日數(shù)22日.Value
add_rs!日數(shù)23日.Value = !日數(shù)23日.Value
add_rs!日數(shù)24日.Value = !日數(shù)24日.Value
add_rs!日數(shù)25日.Value = !日數(shù)25日.Value
add_rs!日數(shù)26日.Value = !日數(shù)26日.Value
add_rs!日數(shù)27日.Value = !日數(shù)27日.Value
add_rs!日數(shù)28日.Value = !日數(shù)28日.Value
add_rs!日數(shù)29日.Value = !日數(shù)29日.Value
add_rs!日數(shù)30日.Value = !日數(shù)30日.Value
add_rs!日數(shù)31日.Value = !日數(shù)31日.Value
add_rs!出勤.Value = !出勤.Value
add_rs!病假.Value = !病假.Value
add_rs!補(bǔ)休.Value = !補(bǔ)休.Value
add_rs!出差.Value = !出差.Value
add_rs!產(chǎn)假.Value = !產(chǎn)假.Value
add_rs!遲到.Value = !遲到.Value
add_rs!婚假.Value = !婚假.Value
add_rs!曠工.Value = !曠工.Value
add_rs!年假.Value = !年假.Value
add_rs!培訓(xùn).Value = !培訓(xùn).Value
add_rs!事假.Value = !事假.Value
add_rs!休息.Value = !休息.Value
add_rs!早退.Value = !早退.Value
add_rs!自定義.Value = !自定義.Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 導(dǎo)出查詢表結(jié)果("考勤記錄")
Exit Sub
導(dǎo)出失敗:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Me.數(shù)據(jù)表子窗體.Form.OrderBy = "年份 DESC,月份 DESC"
Me.數(shù)據(jù)表子窗體.Form.OrderByOn = True
End Sub
模塊
Public year_num As Long
Public month_num As Long
Public Sub 導(dǎo)出查詢表結(jié)果(ByVal tablename As String)
On Error GoTo 導(dǎo)出查詢_Err
DoCmd.OutputTo acOutputTable, tablename, "", "", False, "", , acExportQualityPrint
導(dǎo)出查詢_Exit:
? ? Exit Sub
導(dǎo)出查詢_Err:
? ? Resume 導(dǎo)出查詢_Exit
End Sub
