Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2074 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3984】新規レコードについて Dr.K 04/12/7(火) 19:41 質問[未読]
【3989】Re:新規レコードについて YU-TANG 04/12/8(水) 10:32 回答[未読]
【3993】Re:新規レコードについて クロ 04/12/8(水) 17:25 回答[未読]
【4016】Re:新規レコードについて Hanahana 04/12/11(土) 10:47 回答[未読]
【3984】新規レコードについて
質問  Dr.K  - 04/12/7(火) 19:41 -
引用なし
パスワード
   Form1というフォーム上に、Text1,Text2,Text3,Button1を貼り付けていますが、新規レコードを入力する際、Button1を押したとき、Text1,Text2,Text3にそれぞれ前のレコードが表示されるようにしたいのですが・・・
【3989】Re:新規レコードについて
回答  YU-TANG WEB  - 04/12/8(水) 10:32 -
引用なし
パスワード
   こんにちは、YU-TANG です。

> Form1というフォーム上に、Text1,Text2,Text3,Button1を貼り付けて
> いますが、新規レコードを入力する際、Button1を押したとき、
> Text1,Text2,Text3にそれぞれ前のレコードが表示されるように
> したいのですが・・・

Private Sub Button1_Click()
　　If Not Me.NewRecord Then Exit Sub
　　Me.Text1.SetFocus
　　SendKeys "^7", True
　　Me.Text2.SetFocus
　　SendKeys "^7", True
　　Me.Text3.SetFocus
　　SendKeys "^7", True
　　Me.Button1.SetFocus
End Sub
【3993】Re:新規レコードについて
回答  クロ  - 04/12/8(水) 17:25 -
引用なし
パスワード
   横レス失礼します。
こんな方法もあります。

If Not Me.NewRecord Then Exit Sub
　 DoCmd.GoToRecord , , acPrevious
　 DoCmd.RunCommand acCmdSelectRecord
　 SendKeys "^c", True
　 DoCmd.GoToRecord , , acNewRec
　 DoCmd.RunCommand acCmdSelectRecord
　 SendKeys "^v", True
【4016】Re:新規レコードについて
回答  Hanahana E-MAIL  - 04/12/11(土) 10:47 -
引用なし
パスワード
   横槍を入れるようで申し訳ありません。

SendKeyを使用した場合だと入力を中止した場合に
レコードを削除する必要があると思います。

次の方法は表示するだけでまだレコードには
書き込まれていません。

If Me.NewRecord = False Then Exit Sub
Me.RecordsetClone.MoveLast
Me.Text1.DefaultValue = Chr(34) & Me.RecordsetClone.Fields("フィールド1") & Chr(34)
Me.Text2.DefaultValue = Chr(34) & Me.RecordsetClone.Fields("フィールド2") & Chr(34)
Me.Text3.DefaultValue = Chr(34) & Me.RecordsetClone.Fields("フィールド3") & Chr(34)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2074 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078227
(SS)C-BOARD v3.8 is Free