返回列表 上一主題 發帖

[發問] 點選LISTBOX_CLICK一項資料時為何會執行四次呢?

執行物件類別會出現不正確的屬性

各位大大好:

  小弟在此先向各位大大
拜個晚年。

祝各位大大
心想事成、事事如意!

  小弟設有二個物件類別,
同時由UserForm_Initialize執行
至Set myOp11.mySqlServer.clsConn = conStr
就會出現不正確的屬性用法。

想請各位大大能指導小弟如何改正語法。
TEST_1.rar (20.32 KB)
謝謝各位大大!

TOP

本帖最後由 GBKEE 於 2014-2-9 07:35 編輯

回復 2# GBKEE


    謝謝板主大大。
我真有點暈頭轉向,
分不清東西南北。
要賦予值就不可
使用SET設定了。

TOP

[發問] 點選LISTBOX_CLICK一項資料時為何會執行四次呢?

各位大大好:
test_listbox.rar (42.34 KB)
  小弟有一表單並引用MULTIPAGE
設定多個PAGE。
  現有一問題一直困擾多日。在其
中表單PAGE4名稱TEST4設有
COMBOBOX5
TEXTBOX6
OptionButton15
LISTBOX3
步驟一、
首先執行OPTIONBUTTON15之後
取出指定的資料庫並將資料取出。
步驟二、
LISTBOX3會顯示出經DICTIONARY
取出工作表APPSEARCH_DATA欄位A
的資料。
步驟三、
點選LISTBOX3的單筆資料,可再
將客戶資料利用MSGBOX 顯示出來。

可是問題就出在步驟三,當點選一次時,
卻會出現LISTBOX3 CLICK連續執行四次。
小弟先將MLIST3_CLICK修正不進入
資料庫,而是讓其點選資料時;也會同樣
出現執行迴圏四次的情況。
小弟一直想不通,不知要如何解決此問題呢?

謝謝各位大大!
Public Sub mList3_Click()
    '利用ListBox3取出客戶通關案號及編號
    Dim mySql As String
    Dim mApp$
    With mList3
        If s > 1 Then Exit Sub
        If .ListIndex = -1 Then
            'MsgBox "請先選取指定報單號碼"
            Exit Sub
        Else
            mApp = .Value                        
            MsgBox mApp
        End If        
    End With
End Sub

回復 5# GBKEE


    謝謝板主大大。
板主大大尤如一盞明燈時時給予
我們最佳的指引方向,也讓我們
不會迷失在路途上。

就感恩!

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題