アクセス小僧：月ごとの領収書番号(4)

アクセス小僧：月ごとの領収書番号(3)
http://cheese999.blog.so-net.ne.jp/2017-07-05

でマクロを修正しましたが、再修正しました。

修正した部分だけ、載せます。

【マクロのコード】
(1) フォームのボタンをクリックしたら呼ばれるマクロ

※領収書番号を決定するSetRyouSyuNo1マクロが、0を返すことがあるため、0を返してきたら、領収書番号を更新しないように変更しました。

Private Sub 領収書番号更新_Click()
  '【変数】
  Dim myID As Integer ' ID
  Dim myReceiptNo As Integer ' 領収書番号
  '【コード】
  If IsNull([ID]) Then
    ' 新規レコードでは、IDがnullなので、9999としておく
    myID = 9999
  Else
    myID = [ID]
  End If
  myReceiptNo = SetRyouSyuNo1([日付], [領収書番号], [日付], myID)
  If myReceiptNo > 0 Then
    [領収書番号] = myReceiptNo
  Else
    MsgBox "領収書番号を更新しません。"
  End If
End Sub

タグ：医療費控除 VBA アクセス マクロ 領収書番号

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2017-07-09 04:50)