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
コメント