0

私はMsAccessが初めてです。「OrderID」、「Process1_In」、「Process1_Out」などのフィールドを含む「Tracking」という名前のテーブルがあります。

「OrderID」と「Process1_In」でレコードを作成するフォームを作成しました。ユーザーが「OrderID」という名前のテキストボックスに「OrderID」を入力する別のフォームを作成し、コマンドボタンをクリックすると、現在の日時で追跡テーブルの「Process1_Out」フィールドが更新されます (Now() 関数を使用) ）。

次のように Form_BeforeUpdate イベントでコードを作成しました。

 Private Sub Form_BeforeUpdate(Cancel As Integer)

 Update Tracking 

      Set Process1_Out = Now()

      Where OrderID = OrderID.Value

 End Sub

しかし、これは計画通りに記録を更新しません。誰でも助けることができますか？

4

1 に答える 1

0

SQL は、構築して実行する文字列です。したがって、コードは次のようになります。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim sql as string
    sql = ""
    sql = sql & "Update Tracking "
    sql = sql & "Set Process1_Out = #" & Now() & "# "
    sql = sql & "Where OrderID = OrderID.Value"
    CurrentDB.Execute sql
End Sub
于 2013-05-08T04:00:39.270 に答える