こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

リストのダブルクリックイベントをフォーム起動時に発

アクセス2010です。

Private Sub Form_Load()
Call lst_test_DblClick
End Sub
Private Sub lst_test_DblClick(Cancel As Integer)
MsgBox ""
End Sub

このような事は出来ないのでしょうか?

リストのダブルクリックイベントをフォーム起動時に発動したいのですが
このコードを書くと

Call lst_test_DblClick
の部分で引数を省略できません。
になります。

どちらもフォームモジュールに書いています。

投稿日時 - 2018-04-24 21:01:42

QNo.9491973

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(5)

ANo.5

>リストのダブルクリックイベントをフォーム起動時に発動したいのです
フォーム起動時に発動が狙いならば
Private Sub Form_Load()

End Sub

投稿日時 - 2018-04-29 09:58:59

ANo.4

以下のようにします。

Public Sub ListBox_DblClick_Main()
'処理した中身はここに書く
MsgBox ""
End Sub

Private Sub Form_Load()
Call ListBox_DblClick_Main
End Sub

Private Sub lst_test_DblClick(Cancel As Integer)
Call ListBox_DblClick_Main
End Sub

オブジェクトのイベントプロシージャルーチンを、他のVBAルーチンから直接呼び出してはいけません。

投稿日時 - 2018-04-24 23:15:10

ANo.3

ついでに、Private Sub Form_Load()
のところで、以下のいずれかのCall
を試してみてください。

Private Sub Form_Load()
Call lst_test_DblClick(True)
'Call lst_test_DblClick(False)
End Sub

Private Sub lst_test_DblClick(Cancel As Integer)
If Cancel = False Then
MsgBox "Falseを引数に設定しています"
Else
MsgBox "Trueを設定しています"
End If
End Sub

何がしたいのかわからないので、答えようとして
このようなところですが。

投稿日時 - 2018-04-24 22:18:16

ANo.2

No1です。本当は、何でもいいのですが。
Trueでも何らかの数値でも。
書き忘れです。

投稿日時 - 2018-04-24 21:57:07

ANo.1

何をしたいのかわかりませんが、
メッセージボックスを出すならば、
引数は以下のようにFalseをいれて、

Private Sub Form_Load()
Call lst_test_DblClick(False)
End Sub

のようにすれば出てきます、メッセージボックスが。

投稿日時 - 2018-04-24 21:40:57