| |
こんにちは。いつもお世話になっています。
フォームＡ上でフリガナを入力して、Ｆ_給付内容入力を開くコマンドボタンを作っています。そのときにタブの表示ページを指定したいのですがうまくいきません。
表示させたいタブのページインデックスは2なので、下のように書いてみたのですが、｢オブジェクトが必要です」というエラーが出ます。
どこを修正したらよいかご教示ください。
よろしくお願いいたします。
(Win2000 Access2000)
Private Sub コマンド50_Click()
On Error GoTo Err_コマンド50_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_給付内容入力"
stLinkCriteria = "[生徒フリガナ]=" & "'" & Me![児童生徒フリガナ] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
F_給付内容入力!タブ398 = 2
Exit_コマンド50_Click:
Exit Sub
Err_コマンド50_Click:
MsgBox Err.Description
Resume Exit_コマンド50_Click
End Sub
|
|
あおぎん
- 06/11/22(水) 15:24 -
