Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2478 / 9994

←次へ　｜　前へ→


	【10789】Re:アクセス履歴をとりたい

ひで - 08/11/22(土) 13:29 -


	引用なし

	パスワード

▼neptune さん：

>すみません、dbFailOnErrorを忘れていたので書いておいて下さい。

下記試してみましたが、エラーが出て止まります。

書き込むテーブル名：access
　　　フィールド1：「ID」　（テキスト型）
　　　フィールド2：「日時」（日付/時刻型）

Sub コマンド11_Click()
　　　
　　Dim sID As String　　　　　
　　Dim dtmNow As Date　　　　　
　　Dim sSQL As String
　　Dim tblName As String　　
　　
　　sID = CStr(Me.txtID.Value)　　
　　tblName = "access"　　　　　　
　　dtmNow = Now()

　　sSQL = "INSERT INTO " & tblName & "(ID, 日時) "
　　sSQL = sSQL & "VALUES('" & sID & "', " & dtmNow & ";"
　
　　CurrentDb.Execute sSQL, dbFailOnError
　　
　　End Sub

申し訳ございませんがご教示お願い致します。

1,304 hits

▼

【10780】アクセス履歴をとりたい ひで 08/11/21(金) 10:37