カード型データベースを作ってみよう
Step 10 前のレコードに移動するボタンを追加
前のレコードへ移動するボタンを設置します。
現在の行位置を保存する変数が2より大きければ、その行-1のレコードを表示させます。
現在の行位置を保存する変数が2より大きければ、その行-1のレコードを表示させます。
Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト
実行画面
■入力フォームコントロールのレイアウトを変更し「前へ >」のコマンドボタンを追加しました。
クリックすると前の行のレコードをチェックし、見つかれば表示します。
見つからなければ、ブザーを鳴らします。
実行VBAコード
■ InputForm
'前へのボタン
Private Sub CommandButton7_Click()
If lNowRow > 2 Then
lNowRow = lNowRow - 1
'ID
TextBox1.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 1)
'日付
TextBox2.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 2)
'メモ
TextBox3.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 3)
Else
'ブザーを鳴らす
Beep
End If
End Sub
Private Sub CommandButton7_Click()
If lNowRow > 2 Then
lNowRow = lNowRow - 1
'ID
TextBox1.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 1)
'日付
TextBox2.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 2)
'メモ
TextBox3.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(lNowRow, 3)
Else
'ブザーを鳴らす
Beep
End If
End Sub
Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved