Accessで給与計算28~給与の再計算

Pocket

あまりないとは思いますが、給与計算確定後、誤りがみつかり再計算する可能性もゼロでは
ありません。ですので再計算できるようにします。

フォームの「支給日」に図のようにコマンドボタンを追加します。
2702101

このコマンドボタンをクリックすることで、一旦給与明細控えテーブルのデータを削除して、
給与計算フォームを開いて、再計算させます。
2702102

新たに追加したコマンドボタンの、プロパティのイベントタブのクリック時に次の
VBAコードを入力します。

Private Sub コマンド5_Click()

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open “給与明細控え”, cnn, adOpenKeyset, adLockOptimistic

Do Until rs.EOF
If rs!支給日 = Me!支給日 Then
rs.Delete
rs.Update
End If
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing

DoCmd.OpenForm “フォーム1”
Forms!フォーム1!テキスト0 = Forms!支給日!支給日
DoCmd.OpenForm “給与計算”, , , “支給日=#” & Me!支給日 & “#”

End Sub

最初に給与明細控えのデータをADOを使って削除します。

次にフォーム1を開き、そのテキストボックスに今回訂正する支給日を転記します。
その状態で給与計算フォームを開き、再計算後確定をクリックします。

コマンドボタン「確定」のVBAコードにフォーム1の日付を使うので、このような処理になります。

実行結果です。
2702103

ソフトによっては完全に手計算になるものもありますが、個人的には
こちらの方がいいかなと思います。
=============================
寒い日が続きます。それでも静岡マラソンはあと2週間ちょっと。
今年から始めた筋トレのお蔭か、体重はそのままですがウエスト
が明らかに細くなり、体も軽いです。いいタイムが出そうな予感・・・

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