ボタンを押してADOでSQL発行してテーブルを更新してみよう

Private Sub コマンド23_Click()

    Dim args As String
     
    If IsNull(Me.txt_ID) = False Then
        args = Me.txt_ID
    End If
     
    DoCmd.OpenForm "f_売上_個別入力", acNormal, , "ID =" & Me.txt_ID, , acDialog, args
    
End Sub

Private Sub コマンド27_Click()
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub コマンド28_Click()
    Dim ct As New ADODB.Connection
    Dim stSQL As String
    
    Set ct = CurrentProject.Connection
    strSQL = "update t_売上 set 売上金額= 数量*単価"
    strSQL = strSQL & ";"
    
    ct.Execute strSQL
    
    Set ct = Nothing
    
    DoCmd.Requery
End Sub

Private Sub コマンド29_Click()

    Dim ct As New ADODB.Connection
    Dim stSQL As String
    
    Set ct = CurrentProject.Connection
    strSQL = "update t_売上 set 売上金額= 0"
    strSQL = strSQL & ";"
    
    ct.Execute strSQL
    
    Set ct = Nothing
    
    DoCmd.Requery

End Sub

Private Sub コマンド30_Click()
    On Error Resume Next

    DoCmd.GoToRecord acDataForm, "f_売上", acNext
End Sub

Private Sub コマンド31_Click()
    On Error Resume Next

    DoCmd.GoToRecord acDataForm, "f_売上", acPrevious
End Sub

Private Sub コマンド28_Click()
    Dim ct As New ADODB.Connection
    Dim stSQL As String
    
    Set ct = CurrentProject.Connection  '①
    strSQL = "update t_売上 set 売上金額= 数量*単価"  '②
    strSQL = strSQL & ";"
    
    ct.Execute strSQL  '③
    
    Set ct = Nothing
    
    DoCmd.Requery
End Sub