順位の欄がまだ空欄で、完成していませんでした。
そこで、今回はVBAを使って順位がつくようにします。
前回作成したフォームを「デザインビュー」で開いて、図のように{フォームヘッダー」を広く開けて、ツールボックスよりボタンを選んで配置します。
次に、追加したボタン上で右クリックするとメニューが現れますので[プロパティ]を選んでクリックします。
タブで[すべて]を選んで、[名前]に「btJuni」、[表題]に「順位」と入力します。
[イベント]のタブをクリックして、[クリック時」の右端の[・・・]をクリックします。
[ビルダの選択]では[コードビルダ]を選んで[OK]をクリックします。
上の図のようにコードを記述するところが出たら、以下のようにコードを書きます。
Private Sub btJuni_Click()
Dim Rs As Recordset
Dim n, m As Integer
Dim Rn As Integer
Dim p As Single
Set Rs = CurrentDb.OpenRecordset("Q合計順")
Rn = Rs.RecordCount
n = 1
p = -1
Rs.MoveFirst
Do Until Rs.EOF
m = n
Rs.Edit
Rs("順位") = m
If p = Rs("合計") Then
m = m - 1
Rs("順位") = m
End If
Rs.Update
p = Rs("合計")
Rs.MoveNext
n = n + 1
Loop
Me.Refresh
Rs.Close
End Sub
コードの入力が終わったら、順に右上の「×」をクリックして、閉じます。
途中で保存の確認がありますからそこでは「はい」を選んでください。
「Fm一覧」のアイコンをクリックすると、フォームが表示されますから、今回配置したボタン(順位)をクリックすると、順位の欄に順位が表示されます。
VBAの解説などは次回に行います。
