Accessで給与計算36~賞与計算の開始

Pocket

現状ではクエリを作成しただけなので、賞与計算をスタートするフォームを作ります。

以前作った給与計算をスタートさせるフォームをコピーして、
貼り付けたフォームをデザインビューで開き、コマンドボタンのイベントタブのクリック時
を開き、VBAコードを変更します。
給与計算をスタートさせる方法はこちらをご覧ください。
給与計算15
給与計算16
2703052
変更後の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の給与計算フォームが開くので、支給額を入力します。
2703051
入力すると、社会保険料と源泉所得税が自動計算され、支給額が計算されます。
================================
一週間があっという間に過ぎていきます・・
確定申告もあと少しで終わってしまいます。
早くなんとかしないと・・

本日も最後までお読み頂きありがとうございます。