Access VBA質問箱 IV

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

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


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

4831 / 9994

←次へ　｜　前へ→


	【8402】Re:レコードの移動

ハジメ - 06/8/3(木) 11:07 -


	引用なし

	パスワード

▼Gin_II さん：
>> エラーメッセージを出した後、カーソルを１行目（先頭レコード）にsetfocusしたい
>> のでが、最終行にカーソルがあります。
>
>フォーム上でのレコードの移動は、GoToRecord メソッドを使います。
お返事ありがとう御座います
------最終行のチェック
　　　 If Me.CurrentRecord = Me.Recordset.RecordCount Then
　　　　　　If cnt選択 = 0 Then
　　　　　　　　MsgBox "１件も選択していません"
　　　　　　　 DoCmd.GoToRecord acDataForm, "F_選択フォーム", acGoTo, 1
　　　　　　　　Me!選択.SetFocus
　　　　　　　　Exit Sub
　　　　　　End If
　　　　　　Me.Parent.cmd印刷.Enabled = True
　　　　　　Me.Parent.cmd印刷.SetFocus
　　　 End If
上記のようにコードを挿入して実行しました。
サブフォームだけで実行すると上手く1行目にカーソルは移動しますが、メイン
フォームと連動して実行すると次のようなメッセージが出ます
『実行時エラー　'2489'　オブジェクトF_選択フォームが開いていません』
すみません。もう少し教えて下さい。お願いします。

1,033 hits

▼

【8383】レコードの移動 ハジメ 06/8/1(火) 15:34