ACCESS2000 レコードセレクタ

質問

ACCESS2000でサブフォームを使用する時に
サブフォームのレコードセレクタに▲が一番
先頭に現れますが、これを矢印キーの上下で
１つ下や１つ上にずらすことができますでしょうか？
もし、知っている方がいれば教えてください。

回答No.1

noname#7749 · ベストアンサー

下記のユーザー定義プロシージャを設け、

Public Sub KeyUpDown(ByRef frm As Access.Form, ByRef KeyAscii As Integer)
On Error Resume Next
Select Case KeyAscii
Case vbKeyUp
frm.Recordset.MovePrevious
Case vbKeyDown
frm.Recordset.MoveNext
End Select
On Error GoTo 0
End Sub

フォームとフォーム上の各コントロールに下記のイベントプロシージャを記述すればOKです。(エラー処理は手抜き)

Private Sub Form_KeyPress(KeyAscii As Integer)
Call KeyUpDown(Me, KeyAscii)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Call KeyUpDown(Me, KeyCode)
End Sub

お礼

有難う御座います。やってみます。