ACCESSデータシートビューの範囲選択

質問

ACCESS2007のサブフォームをデータシートビューで表示しており、メインフォームにコマンドボタンを配置しおります。

サブフォームで範囲選択してコマンドボタンをクリックして処理を実行、またサブフォームにフォーカスを戻し、範囲選択の状態に戻したいと考えております。

単一行であればSelTop、SelHeightを使用して下記の方法で戻れるのですが
サブフォーム名.SetFocus
DoCmd.RunCommand acCmdSelectRecord

選択範囲が複数行の場合に１行目のみ選択状態になってしまいます。
sendkyes　"+｛down｝"　を組み合わせて複数選択の状態にはなるのですが、
選択範囲が数十行ある場合に描画に非常に時間が掛かり困っております。
vbaで範囲選択する方法があればご教授下さい。

回答No.1

m3_maki · ベストアンサー

こちらが参考になるでしょう。
http://www.accessclub.jp/bbs/0067/beginers25459.html

　記事No ： 25480
　投稿日 ： 2004/09/19(Sun) 09:00
　投稿者 ： hatena

のあたりを中心に、ボタンの見栄えなども。

親フォームに移動する前に選択行を記憶しておく方法もあるのですが
ラベルの方法が簡単かと思います。

お礼

回答ありがとうございます。
ラベルを使ってメインフォームにフォーカスを移動させないで処理を行うとは驚きの発想です。

ラベルのイベントにフォーカスの取得時、喪失が無く完璧にコマンドボタンと見せかけることができないのが残念ですが、ほぼ実現することができました。
単純にVBAで範囲選択する方法はやっぱないってことなんでしょうか？

回答No.2

m3_maki

> ラベルのイベントにフォーカスの取得時、喪失が無く完璧にコマンドボタンと見せかけることができないのが残念ですが、

失礼しました。
リンク先には、見かけについては書かれていませんでしたね。

フォーカスを持てませんから
「マウスボタンクリック時」「マウスボタン解放時」 を使います。

プロパティで 「立体表示」 を 「浮き出し」 にしておいてください。

Private Sub ラベル1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ラベル1.SpecialEffect = 2
End Sub

Private Sub ラベル1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ラベル1.SpecialEffect = 1
End Sub

お礼

説明不足で申し訳ありません。
ACCESS2007だとコマンドボタンがカーソル取得時にブルーになり、喪失すると元に戻るため、ラベルの移動時イベントのみだと取得時、喪失の両方を処理することはできなかったため、完璧にコマンドボタンと見せかけることができないと表現致しました。
重ね重ねありがとうございました。