| |
▼ひで さん：
こんにちは
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」と「日時」のフィールド名の
>設定がおかしいのでしょうか？
それに関するテーブル、フィールドに関する情報はご自身どこにも
書かれてないですよね。なので皆目判らないんですよ。
次回から質問する際には気を付けましょう。
|
|
neptune
- 08/11/22(土) 11:58 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
