Access VBA質問箱 IV

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

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


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

2464 / 9994

←次へ　｜　前へ→


	【10803】Re:ログイン画面について

波 - 08/11/27(木) 15:03 -


	引用なし

	パスワード

前文訂正します。
-------------------------------------
Private Sub 入力cmd_Click()
On Error GoTo Err_入力cmd_Click
　　
　　Dim sID As String　　　　　
　　Dim dtmNow As Date　　　　
　　Dim sSQL As String
　　Dim tblName As String　　　　
　　sID = CStr(Me.更新者.Value)　　
　　tblName = "sheet1"　　　　
　　dtmNow = Now()

　　sSQL = "INSERT INTO " & tblName & "(更新者, 更新日) "
　　sSQL = sSQL & "VALUES('" & sID & "', #" & dtmNow & "#);"
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　Debug.Print sSQL
　　CurrentDb.Execute sSQL
Exit_入力cmd_Click:
　　Exit Sub

　　Dim stDocName As String
　　Dim stLinkCriteria As String

　　stDocName = ChrW(83) & ChrW(104) & ChrW(101) & ChrW(101) & ChrW(116) & ChrW(49) & ChrW(95) & ChrW(12463) & ChrW(12456) & ChrW(12522)
　　DoCmd.OpenForm stDocName, , , stLinkCriteria
　　DoCmd.GoToRecord , , acNewRec
　　
　　On Error GoTo e
　　Dim fn As String
　　fn = テキスト5
　　DoCmd.Close acForm, fn
e:
　　
　　
　　Exit Sub

Err_入力cmd_Click:
　　MsgBox Err.Description
　　Resume Exit_入力cmd_Click
　　
End Sub
---------------------------------

368 hits

▼

【10802】ログイン画面について 波 08/11/27(木) 14:59