現状ではクエリを作成しただけなので、賞与計算をスタートするフォームを作ります。
以前作った給与計算をスタートさせるフォームをコピーして、
貼り付けたフォームをデザインビューで開き、コマンドボタンのイベントタブのクリック時
を開き、VBAコードを変更します。
給与計算をスタートさせる方法はこちらをご覧ください。
給与計算15
給与計算16
変更後のVBAコードです。
Private Sub コマンド2_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs.Open “従業員情報”, cnn, adOpenKeyset, adLockOptimistic
rs1.Open “賞与明細”, cnn1, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
If rs!退職 = 0 Then
rs1.AddNew
rs1!社員CD = rs!社員CD
rs1!支給日 = Me!テキスト0
rs1.Update
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
DoCmd.OpenForm “賞与計算”, , , “支給日=#” & Me!テキスト0 & “#”
End Sub
実行すると、支給額が0の給与計算フォームが開くので、支給額を入力します。
入力すると、社会保険料と源泉所得税が自動計算され、支給額が計算されます。
================================
一週間があっという間に過ぎていきます・・
確定申告もあと少しで終わってしまいます。
早くなんとかしないと・・
本日も最後までお読み頂きありがとうございます。