Access VBA質問箱 IV

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

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


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

2480 / 9994

←次へ　｜　前へ→


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

neptune - 08/11/22(土) 11:58 -


	引用なし

	パスワード

▼ひでさん：
こんにちは
Gin_II さんではありませんが、
Gin_II さんのアドバイスを、ひでさんが修正しやすく書き直しました。
データ型など「自分の環境に合わせる」と書いている所を自分の環境に合わせて
下さい。

テストはしてないですが、多分それでいけると思います。（勘ですが。）
sub コマンドボタン_Click()
　　Dim sID As String　　　　　 'テキスト型を想定　 :自分の環境に合わせる
　　Dim dtmNow As Date　　　　　'日付型を想定　　　 :自分の環境に合わせる
　　Dim sSQL As String
　　Dim tblName As String　　　 'テーブル名
　　
　　sID = CStr(Me.テキスト0.Value)　　'自分の環境に合わせる
　　tblName = "テーブル名"　　　　　　'自分の環境に合わせる
　　dtmNow = Now()

　　sSQL = "INSERT INTO " & tblName & "(ID, 日時) "
　　sSQL = sSQL & "VALUES('" & sID & "', " & dtmNow & ";"
　　
　　CurrentDb.Execute sSQL
end sub
>これは、テーブル名を指定して「ID」と「日時」のフィールド名の
>設定がおかしいのでしょうか？
それに関するテーブル、フィールドに関する情報はご自身どこにも
書かれてないですよね。なので皆目判らないんですよ。
次回から質問する際には気を付けましょう。

1,290 hits

▼

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