帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 »

發表於 2014-2-8 10:08 | 只看該作者

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

各位大大好：

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

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

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

想請各位大大能指導小弟如何改正語法。

TEST_1.rar (20.32 KB)
謝謝各位大大！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-2-9 06:43 | 只看該作者

回復 1# dechiuan999

myOp11.mySqlServer.clsConn = conStr

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2014-2-9 07:32 | 只看該作者

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

回復 2# GBKEE

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

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

4^# 倒序看帖

打印

字體大小: tT

發表於 2014-2-17 07:13 | 只看該作者

[發問] 點選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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-2-17 13:48 | 只看該作者

回復 1# dechiuan999

Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
'MultiPage1.Value = 0
Case Is = 3
mSht1.Cells.Clear
mSht2.Select
'mSht2.Cells.Clear
ReDim myOp15(15 To 18)
For i = 15 To 18
'這裡表單每一個控制項循環 4次指定相同物件的控制項
Set myOp15(i) = New allAppCls
Set myOp15(i).mySqlServer = New allServerCls
myOp15(i).mySqlServer.clsConn = conStr
Set myOp15(i).opt15 = Me.Controls("OptionButton" & CStr(i))
Set myOp15(i).mTb6 = Me.Controls("TextBox6")
Set myOp15(i).mTb7 = Me.Controls("TextBox7")
Set myOp15(i).comBox5 = Me.Controls("ComBoBox5")
Set myOp15(i).List3 = Me.Controls("ListBox3")
Set myOp15(i).Command2 = Me.Controls("CommandButton2")
Set myOp15(i).mSht2 = Worksheets("Appsearch_Data")
myOp15(i).ck15 = i
Next
With ComboBox5
.AddItem "Server"
.AddItem "LocalHost"
.ListIndex = 0
End With
ListBox3.Clear
End Select
End Sub

複製代碼

Public Property Set List3(setList3 As MSForms.ListBox)
Set mList3 = setList3
MsgBox mList3.Parent.Parent.Parent.Name & "-" & mList3.Parent.Parent.Name & "-" & mList3.Parent.Name & "-" & mList3.Name
End Property

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

6^#

發表於 2014-2-17 20:47 | 只看該作者

回復 5# GBKEE

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

就感恩！

TOP