- ベストアンサー
アクセス enterで次ページ（レコード）移動
アクセスでformを使い最後の入力”失効有無”が終わったら次のレコードにenter keyで 移動したいのですがうまくいきません。 プロパティの更新後処理 イベントプロシージャのところに下記を書いています。 Private Sub 失効有無_AfterUpdate() DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "ID" End Sub 以前はこれでうまくいったと思います。。。 おかしいですか？ よろしくお願いします、
- lotsqq
- お礼率34% (54/155)
- その他(データベース)
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
質問の場合の、 Private Sub 失効有無_AfterUpdate() DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "ID" End Sub には問題は無いようなので、動くとは思いますが。 代案として、 Private Sub 失効有無_AfterUpdate() DoCmd.GoToRecord , , acNewRec Me!ID.SetFocus End Sub でも、同じとは思いますが。一応確認してみて ください。 >移動したいのですがうまくいきません。 とは、エラーも表示されずに移動しない、 ということですか。 一応、コード表のデバックから、コンパイル を選択して実行してみてください。
関連するQ&A
- サブフォームの新規レコードに移動したい アクセス
親フォームのコマンドボタンをクリックしたら 親フォームにはまっているサブフォームの新規レコードに移動したいのですが、 うまくできません。 サブフォームのオブジェクト名は、"F_SubForm"です。 サブフォームはデータシートビューです。 VBAコードは Private Sub cmd_test_Click() DoCmd.SelectObject acForm, "F_SubForm" DoCmd.GoToRecord , , acNewRec End Sub です。 上記コードを実行すると DoCmd.SelectObject acForm, "F_SubForm" の部分で、 「実行時エラー 2489 オブジェクトが開いていません。」 となります。 だからと言って、 DoCmd.GoToRecord , , acNewRec だと、何も起こりません。（新規レコードに移動しません） 解決方法をご教授ください。
- ベストアンサー
- オフィス系ソフト
- Accessで一件の新規レコードのみを登録する方法
OS: win xp Access Version: 2003 フォームを使って新規レコード入力できるように Private Sub Form_Load() Docmd.GoToRecord,, acNewRec End Sub として、開いています。 ここの際、問題なのですが、ホイールマウスを使っているとデータ入力中に誤ってホイールを回すことにより次の新規レコードに移ってしまいます。 これを制限したいと思います。 この類の過去で検索しましたが、解決に至っていません。 ご意見をください。
- ベストアンサー
- その他MS Office製品
- レコード移動について
単票フォームで何件かレコードがあります。 それを DoCmd.GoToRecord , , acNext で１つずつ移動させ、今何番目のデータなのか？をメッセージで出し、 最後のレコードになったら「最後のレーコード」というメッセージの後に Exit Sub させたいのですが... F8 で1つ1つコンパイルさせるとできるのですが、 データベース画面から直接フォームをDBCLして開こうとすると いきなり「最後のレコード」になってしまいます。 記述のが悪いのでしょうか？それともフォーム自体が悪いのでしょうか？ 教えてください Private Sub Form_Current() If Me.CurrentRecord >= Me.RecordsetClone.RecordCount Then MsgBox "最後のレコード" Exit Sub Else MsgBox "途中のレコード" DoCmd.GoToRecord , , acNext End If End Sub
- ベストアンサー
- オフィス系ソフト
- 新規レコードへ移動しない
Access2010を使用しています。 サブフォームからメインフォームの「登録」ボタンプロシージャをCallした時、メイン・サブフォーム共に新規レコードへ移動しなくて困っています。 具体的には、サブフォームにフォーカスがある時に「F12」を押すと画面の入力項目の内容刃そのままでメインフォームの「注文番号」テキストボックスにフォーカスが移動します。 メインフォームにフォーカスがあるか、マウスで「F12」をクリックすると画面の入力項目がクリアされて新規レコードへ移動します。 コードは以下の内容が記述してあります。 ーーーーーサブフォーム----- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call Me.Parent.Form_KeyDown(KeyCode, Shift) KeyCode = 0 End Select End Sub -----メインフォーム----- Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call 登録_Click KeyCode = 0 End Select End Sub Private Sub 登録_Click() DoCmd.GoToRecord , , acNewRec Me.注文番号.SetFocus End Sub
- 締切済み
- オフィス系ソフト
- サブサブフォームのレコード移動方法
いつもお世話になっております。サブサブフォームのニューレコードに移動するボタンを作成しようとしているのですが、サブフォームは移動できるのですが、サブサブフォームを移動させることができません。 Me.sub1.Form.sub2.Form.コンボボックス名.SetFocus DoCmd.GoToRecord , , acNewRec で記述してみたのですが反応がありませんでした。指定方法が間違っているのでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access レコード移動時イベントでサブフォーム
お世話になります。 親フォーム Ａがあります。（データソースが存在します） その中にサブフォームＢがあります。（データソースが存在します） 親フォームのレコード移動時のイベントで、いつもサブフォームのレコードの最後を表示したいのです。そこで・・・ 親フォームＡの レコード移動時イベントに Private Sub Form_Current() Me.B.SetFocus DoCmd.GoToRecord , , acLast End Sub 上記を記述すると、一番初めはきちんとサブフォームBのレコードは最後を表示するのですが、以後、親フォームのレコードを動かすと、親フォームの最後のレコードをさしっぱなしになってしまいます。 Me.B.SetFocus DoCmd.GoToRecord , , acLast これの後にどんな記述をすれば、親フォームのレコードを動かすと同時にサブフォームＢも最後の行に移るようにできますでしょうか？ 何卒よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- access の 最終レコードの判定はどう記述しますか
月間スケジュールテーブルを新規生成するルーチンです 月初～月末まで各日にちの曜日を[曜日TMP]に求めてこのルーチンに入ります （"マスタFORM"には週間計画のテーブルのフィールドを設定したフォームです。 (週間計画：月曜日の○○時～◎◎時に○○の作業） Private Sub 分析RTN() DoCmd.GoToRecord acForm, "マスタFORM", acFirst Do While Not EOF(1) ‘ここでエラーが発生します If 曜日No. = 曜日TMP Then 追加RTN ’レコードの追加ルーチンです End If DoCmd.GoToRecord acDataForm, "マスタFORM", acNext Loop End Sub 他にお気づきの点はご指導ください
- ベストアンサー
- オフィス系ソフト
- Accessレコードの削除（VBA）
Accessで入力フォームを使用して入力をしていますが、 全項目の入力がされていない場合そのレコードを削除したいのです。 閉じるときに消そうと思い DoCmd.RunCommand acCmdDeleteRecord を入れてみたのですが、レコードの削除はできません、とメッセージが出てしまい消せません。 次のレコードを選択すれば消せるかと思い DoCmd.GoToRecord , , acNewRec を足してみたりしてみたのですが、やっぱりダメでした。 この場合はどのようにすればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- ACCESSのサブフォームからメインフォームへの移動
お世話になります。 仕訳伝票の入力画面を作成しています。 仕訳登録フォームに サブフォームを2つあります。 うまく説明できないのでコーディングを記入しておきます。 これで仕訳登録フォームから仕訳登録サブ借方フォーム 仕訳登録サブ借方フォームから仕訳登録サブ貸方フォームへはカーソルが移動しますが 仕訳登録サブ貸方フォームから仕訳登録フォームへは移動してくれません マウスを使わずイベントで移動する方法はありますか メインフォーム 仕訳登録 Private Sub 目的_LostFocus() DoCmd.GoToControl "仕訳登録サブ借方" End Sub サブフォーム１ 仕訳登録サブ借方 Private Sub 借方合計_Click() Forms!仕訳登録!借 = 合計 DoCmd.GoToControl "仕訳登録サブ貸方" End Sub サブフォーム２ 仕訳登録サブ貸方 Private Sub 貸方合計_Click() Forms!仕訳登録!貸 = 合計 DoCmd.GoToControl "仕訳登録" End Sub 「カレントレコードに'仕訳登録'というフィールドはありません」とメッセージにになりますので Private Sub 貸方合計_Click() Forms!仕訳登録!貸 = 合計 DoCmd.GoToControl "Forms!仕訳登録!貸" End Sub 「カレントレコードに'Forms!仕訳登録!貸'というフィールドはありません」 とエラーメッセージになります。
- 締切済み
- オフィス系ソフト
- GoToRecord で次のレコードを表示したい
＜環境＞access2007 フォームに連結のコントロールと「次へ」ボタンを配置しています。 「次へ」ボタンは次のレコードを表示する為のボタンです。 ボタンウィザードを使用したところ、以下のような動作をしました。 レコード件数は３件あると過程します。 (1)次へボタンを押下するごとに、１/３、２/３、３/３まで移動。 (2)３/３を表示している状態で、次へボタンを押下すると 新規のレコードへ移動 ４/４が表示される。 (3)(2)の状態で次へボタンを押下すると、「次のレコードが存在しません」 私がやりたいことは、３/３の状態で次へボタンを押下しても、新規のレコードへ移動せず、 「次のレコードが存在しません」とメッセージを出すことです。 そこで以下のようにコーディングしました。 しかし、いまいちって感じなのでいい案がありましたらご教授お願いします。 Private Sub BTN_次へ_Click() On Error GoTo Err_Click DoCmd.Echo False DoCmd.GoToRecord , , acNext, 2 DoCmd.GoToRecord , , acPrevious DoCmd.Echo True Exit Sub Err_Click: MsgBox Err.Description DoCmd.Echo True End Sub
- ベストアンサー
- その他（プログラミング・開発）
お礼
piroin654さん いろいろありがとうございます。 プロパティをよく見たところenter key入力時操作がフィールド行を追加になっていました それを既定にしたところ移動してくれました。
補足
piroin654さん ありがとうございます、 上記、代案を入れてみました、同じでした。 エラーも起こらず”失効有無”の所に文字も入力されず enterが利かなくなります、マウスで別な場所でクリック すると新規レコードに移ります、 ここが原因ではないのでしょうか？