| |
過去ログを拝見しながら、VBAを拝借して以下のように書きました。
テーブル名：sheet1
入力フォーム名：F入力画面
テキストボックス名：txt更新者、txt更新日
ボタン名：入力cmd
開きたいフォーム：F出力画面
入力させたいテキストボックス名：更新日、更新者
----------------------------------------------
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_コマンド2_Click:
Exit Sub
Err_コマンド2_Click:
MsgBox Err.Description
Resume Exit_コマンド2_Click
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_入力cmd_Click:
Exit Sub
Err_入力cmd_Click:
MsgBox Err.Description
Resume Exit_入力cmd_Click
End Sub
-------------------------------------------
させたいこと
１）F入力画面の「更新者」と「更新日」を入力して入力cmdを押すと、F出力画面の更新者、更新日が自動的に入力された状態で開く。
２）新規入力画面を開く。
３）F出力画面を開くとF入力画面が閉じる。
…欲張りすぎでしょうか？
もし可能ならどなたかご教授ください。
PS：現状ではエラーも出ず、動きません。（=_=）
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
