access VBA処理がうまくいかない

質問

お世話になります。

T_請求に追加する追加クエリQ_家賃請求Tがあります。
どの物件を更新するかをチェックボックスで指定し、追加クエリの抽出条件にしています。

月に1度のみの操作ですが、数人でこのデータベースを触り、
何度も追加されると困るので2度目以降はエラー処理をさせたいと思っています。

Private Sub 更新_Click()

Dim ret As Integer
ret = MsgBox("チェック物件を請求更新します。" & vbCrLf & "よろしいですか？", _
vbYesNo + vbQuestion, "請求月次更新")

If ret = vbYes Then
If DCount("[契約者CD]", "[T_請求]", "[物件CD] = " & Me!物件CD & _
" AND [T_請求]![請求年月] > #" & DateSerial(Year(Date), Month(Me![処理日]) + 1, 1) & "#") _
<> 0 Then
MsgBox "すでに指定物件の請求は更新されています" & vbCrLf & _
"同じ月に請求を2度更新できません"
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_家賃請求用T"
MsgBox "更新されました"
DoCmd.SetWarnings True
End If
Else
If MsgBox("処理を中止しました", vbOKOnly + vbDefaultButton1 + vbExclamation) = vbOK Then
Me.Undo
Cancel = True
End If

End If
End Sub

以上のようなコードを書きました。
処理が正しくできているか確認のために、動作を調べたのですが、
まったく同じ請求年月で同じ物件CDのものが保存先のテーブルに処理されてしまいます。

どの部分を直せばいいのでしょうか？
足りない情報があれば提示しますので、よろしくお願いいたします。

回答No.3

ShowMeHow · ベストアンサー

>T_入居者情報のフィールド、そのほかに処理日と請求年月を演算で入力するしくみです。
そのクエリで請求年月にはどういう値が入るのかをしらべ、その値が入った場合、
・・・[T_請求]![請求年月] > #" & DateSerial(Year(Date), Month(Me![処理日]) + 1, 0) & "#") > 0
となることを検証してください。

お礼

よーーーく見てみたらものすごく初歩的なところでつまづいていたことがわかりました。

[T_請求]![請求年月] > #" & DateSerial(Year(Date), Month(Me![処理日]) + 1, 1) & "#") <> 0

ではなく
[T_請求]![請求年月] = #" & DateSerial(Year(Date), Month(Me![処理日]) + 1, 1) & "#") <> 0
でした・・・お恥ずかしい限りです。

お付き合いくださりありがとうございました。

回答No.2

ShowMeHow

クエリで請求年月に翌月１日を入れているなら、
[T_請求]![請求年月] > #" & DateSerial(Year(Date), Month(Me![処理日]) + 1, 1) & "#"
>を>=にするとか、
dateserial の日付を0にするか、、、
ってことかな？

Q_家賃請求用Tで何してんのかわかんないから、合っているかどうかわかんないけど。

補足

度々ありがとうございますm()m

>クエリで請求年月に翌月１日を入れているなら、
おっしゃる通り、Q_家賃請求用Tでは演算フィールド[請求年月]が存在し、
式には　DateSerial(Year(Date), Month(Me![処理日]) + 1, 1)　が入っています。

詳細の説明不足で申し訳ありません。
Q_家賃請求用Tの補足をさせていただきますと、
T_入居者情報　契約者CD/契約者名/物件CD/家賃/共益費/・・・
このテーブルの内容をT_請求へコピー(追加)するというクエリです。
T_入居者情報のフィールド、そのほかに処理日と請求年月を演算で入力するしくみです。

私の考えでは、クリックイベントを発生させるF_請求物件選択というフォームの
チェックボックスがTrueの物件CD(クエリで抽出条件に指定しています)が
T_請求にすでにある、かつ請求年月がダブっていれば追加クエリを実行しない
ということができればと思っています。

回答No.1

ShowMeHow

Q_家賃請求用T
で更新される[請求年月]は処理日の翌月の一日以降なんですか？
>DateSerial(Year(Date), Month(Me![処理日]) + 1, 1)
とはそういうこと。
処理日の月なら、+1はいらない。

補足

早速の回答ありがとうございます！

請求年月ですが、家賃は前払いですので処理日の翌月分です。
例えば今月ですと、8/25に締めて今月末に9月分の家賃を請求します。

請求日というのはあまり必要ないので毎月1日にあわせています。

いかがでしょうか・・・？