Access VBA質問箱 IV

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

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


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

6236 / 9994

←次へ　｜　前へ→


	【6965】Re:前後のデータをスクロールで表示

小僧 - 05/12/13(火) 14:43 -


	引用なし

	パスワード

▼マサさん：
こんにちは。

フォームに以下のものを用意して下さい。

リストボックス:lst得意先コード
値集合ソース　:SELECT テーブル名.得意先コード FROM テーブル名;

テキストボックス：txt得意先コード
　　　　　　　　　txt得意先名
　　　　　　　　　txt住所

コマンドボタン　：次へ
　　　　　　　　　前へ

フォームの読み込み時の右側の「…」をクリックしてコードビルダを選択。
表示された画面に

Private Sub Form_Load()
　　Call xxx(DLookup("得意先コード", "テーブル名"))
End Sub

Private Sub lst得意先コード_AfterUpdate()
　　Call xxx(Me.lst得意先コード.value)
End Sub

Private Sub 次へ_Click()
'要参照 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
Dim strCode As String
　　
　　Set RS = CurrentDb.OpenRecordset("テーブル名", dbOpenSnapshot)
　　strCode = Me.txt得意先コード.value
　　
　　RS.FindFirst "得意先コード = '" & strCode & "'"
　　RS.MoveNext
　　If Not RS.EOF Then strCode = RS![得意先コード]
　　　　Call xxx(strCode)
　　RS.Close
　　Set RS = Nothing
End Sub

Private Sub 前へ_Click()
'要参照 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
Dim strCode As String

　　Set RS = CurrentDb.OpenRecordset("テーブル名", dbOpenSnapshot)
　　strCode = Me.txt得意先コード.value
　　
　　RS.FindFirst "得意先コード = '" & strCode & "'"
　　RS.MovePrevious
　　If Not RS.BOF Then strCode = RS![得意先コード]
　　　　Call xxx(strCode)
　　RS.Close
　　Set RS = Nothing
End Sub

Private Function xxx(strCode As String)
　　Me.lst得意先コード = strCode
　　Me.txt得意先コード = strCode
　　Me.txt得意先名 = DLookup("得意先名", "テーブル名", "得意先コード ='" & strCode & "'")
　　Me.txt住所 = DLookup("住所", "テーブル名", "得意先コード ='" & strCode & "'")
End Function

以上を記述して、動作を確認されてみて下さい。

312 hits

▼

【6953】前後のデータをスクロールで表示 マサ 05/12/12(月) 11:06