ボタンを押してテーブルを更新してみよう!
サイトが引っ越しました。→https://scombu.com
約1秒後に自動的にリダイレクトします。切り替わらない場合はリンクをクリックしてください。
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