Access VBA質問箱 IV

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

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


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

2475 / 9994

←次へ　｜　前へ→


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

neptune - 08/11/22(土) 18:54 -


	引用なし

	パスワード

▼ひでさん：
ごめんなさい。
動作確認してなかったので、やはりまだ書き忘れがありました。

以下正常動作したものです。ご自分の環境に合わせて書き直して下さい。
検証XP SP3 + Access2K
Private Sub コマンド2_Click()
On Error GoTo Err_コマンド2_Click
　　Dim sID As String　　　　　 'テキスト型を想定　 :自分の環境に合わせる
　　Dim dtmNow As Date　　　　　'日付型を想定　　　 :自分の環境に合わせる
　　Dim sSQL As String
　　Dim tblName As String　　　 'テーブル名
　　
　　sID = CStr(Me.テキスト0.Value)　　'自分の環境に合わせる
　　tblName = "T_Test"　　　　'自分の環境に合わせる
　　dtmNow = Now()

　　sSQL = "INSERT INTO " & tblName & "(fld5, fld4) "
　　sSQL = sSQL & "VALUES('" & sID & "', #" & dtmNow & "#);"
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'↑)忘れてました。
　　Debug.Print sSQL
　　CurrentDb.Execute sSQL
Exit_コマンド2_Click:
　　Exit Sub

Err_コマンド2_Click:
　　MsgBox Err.Description
　　Resume Exit_コマンド2_Click
　　
End Sub

1,383 hits

▼

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