0

postgreSql でデータベースを作成し、Microsoft Access フォームを使用してフロントエンド アプリケーションで作業しています。ボタンを押すだけでクエリを送信したい： 

Private Sub Command5_Click()
Dim strSQL As String
strSQL = "INSERT INTO public_failedestimate (est_num,issue_date) SELECT est_num,issue_date FROM public_estimate WHERE est_num=1 ;"
DoCmd.RunSQL strSQL
End Sub

デバッグ時には機能しますが、ボタンをクリックすると機能しません。ちなみに、ボタンのクリックイベントにあります。どうも

4

1 に答える 1

1

あなたが持っているものはうまくいくはずです。フォームのバインドされたレコードセット内の現在のレコードがダーティである可能性がある場合は、このコードを実行する前に、レコードがテーブルに書き込まれていることを確認する必要があります。

RunSQLコマンドの直前にこれらの3行のコードを追加できます

If me.dirty = true then
   Me.dirty = false
End if
于 2012-11-29T14:30:16.680 に答える