yamatoji2017

Private Sub ボタン1_Click()

DoCmd.SearchForRecord , , acFirst, "商品名 = '" & Me.kensaku & "'"
Me.kensaku.SetFocus

If Me.tx_商品名 = Me.kensaku Then
Else
MsgBox "登録がありません。", vbOKOnly, "商品コード"
End If
End Sub

yamatoji2017

Private Sub ボタン3_Click()

Me.FilterOn = False
Me.kensaku.SetFocus

End Sub

yamatoji2017

Private Sub Form_Load()

Me.kensaku.SetFocus

End Sub

yamatoji2017

Private Sub コマンド1_Click()

DoCmd.SetWarnings False
                                '引用符以下はコメントです。

DoCmd.OpenQuery "Q_ruikei0"     'テーブルのレコードを全て削除  
DoCmd.OpenQuery "Q_ruikei1"     '前年売上から「日」を追加
DoCmd.OpenQuery "Q_ruikei2"     '当月売上から「日」を追加
DoCmd.OpenQuery "Q_ruikei3"     '前年売上テーブルを作成
DoCmd.OpenQuery "Q_ruikei4"     '前年売上額を更新クエリで入れる

yamatoji2017

Private Sub コマンド1_Click()

DoCmd.SetWarnings False
                                '引用符以下はコメントです。

DoCmd.OpenQuery "Q_ruikei0"     'テーブルのレコードを全て削除  
DoCmd.OpenQuery "Q_ruikei1"     '前年売上から「日」を追加
DoCmd.OpenQuery "Q_ruikei2"     '当月売上から「日」を追加
DoCmd.OpenQuery "Q_ruikei3"     '前年売上テーブルを作成
DoCmd.OpenQuery "Q_ruikei4"     '前年売上額を更新クエリで入れる

yamatoji2017

Private Sub コマンド1_Click()
                          '引用符以下の文はコメントです。
Dim a As Date                     '当月の始まりの日付
Dim b As Date 　                  '前年の始まりの日付
Dim c As Date                     '当月の終わりの日付
Dim d As Date                     '前年の終わりの日付

a = Me.テキスト1
b = DateAdd("yyyy", -1, a)     '当月の始まりの日付の「年」を「-1」する
Me.テキスト3 = b

yamatoji2017

UPDATE T_売上A SET T_売上A.前年売上 = 0
WHERE T_売上A.前年売上 Is Null;

yamatoji2017

UPDATE T_売上A SET T_売上A.当月売上 = 0
WHERE T_売上A.当月売上 Is Null;

yamatoji2017

UPDATE T_売上A INNER JOIN T_当月売上 ON T_売上A.日 = T_当月売上.日 
SET T_売上A.当月日付 = T_当月売上.当月日付,
    T_売上A.当月売上 = T_当月売上.当月売上;

yamatoji2017

UPDATE T_売上A INNER JOIN T_前年売上 ON T_売上A.日 = T_前年売上.日 
SET T_売上A.前年日付 = T_前年売上.前年日付, 
    T_売上A.前年売上 = T_前年売上.前年売上;