Sao mình làm cái combobox.setfocus không được? (1 người xem)

[HoangHacVT]

Chào các cao thủ,

Giúp dùm tí vơi, mình muốn khi nào cái labelno chuyển thành "152" thì con trỏ nhảy vào cái combobox ( mới hiện hình ra) mà làm hoài không được nhé.

Cám ơn nhiều,

Hạc

 

[HoangHacVT]

Chào các cao thủ,

Giúp dùm tí vơi, mình muốn khi nào cái labelno chuyển thành "152" thì con trỏ nhảy vào cái combobox ( mới hiện hình ra) mà làm hoài không được nhé.

Cám ơn nhiều,

Hạc

Ai giúp mình với, cám ơn!

 

[ndu96081631]

Ai giúp mình với, cám ơn!

Nói thật, nhìn cái UserForm + Code cứ như đám rừng, không đủ kiên nhẫn để xem hết đâu

 

[HoangHacVT]

Nói thật, nhìn cái UserForm + Code cứ như đám rừng, không đủ kiên nhẫn để xem hết đâu

Hehe, khổ, mình lược bớt rồi bác Du ơi.

Bác xem hộ mình, mình giấu cái combo thứ 2 đi rồi, chỉ khi nào cái labelno thành 152 thì cái combo náy mới hiện ra, và muốn con trỏ setfocus vào cái combo này luôn. Nhưng nó không chịu, con trỏ nó cứ nhảy tít xuống cái tẽtbox ở phía dưới.

cám ơn bác Du nhiều,

 

[viehoai]

Hehe, khổ, mình lược bớt rồi bác Du ơi.

Bác xem hộ mình, mình giấu cái combo thứ 2 đi rồi, chỉ khi nào cái labelno thành 152 thì cái combo náy mới hiện ra, và muốn con trỏ setfocus vào cái combo này luôn. Nhưng nó không chịu, con trỏ nó cứ nhảy tít xuống cái tẽtbox ở phía dưới.

cám ơn bác Du nhiều,

Bạn đưa thêm sự kiện Private Sub ComboBoxGoods_Change() đoạn code

If Me.LabelNo.Caption = 152 Then
 With Me.ComboChart1
  .Visible = True
  .Enabled = True
  .SetFocus
 End With
End If

Rồi sau đó (với ComboChart1) bạn tự tính liệu tiếp

 

[HoangHacVT]

Bạn đưa thêm sự kiện Private Sub ComboBoxGoods_Change() đoạn code

If Me.LabelNo.Caption = 152 Then
 With Me.ComboChart1
  .Visible = True
  .Enabled = True
  .SetFocus
 End With
End If

Rồi sau đó (với ComboChart1) bạn tự tính liệu tiếp

Cám ơn viehoai nhieu,

Nhưng mình không muốn đưa cái này vô chỗ Private Sub ComboBoxGoods_Change(), lý do là change tới change lui nhiều quá, khi labelNo là "152" rồi thì combochart này đã hiện ra rồi, mà mình lại change ComboBoxGoods cái nữa thì cái combochart này vẫn cứ lù lù ra đấy.

Mình thêm đoạn code này vô chỗ ComboBoxGoods_Exit(), nghĩa là khi con trỏ thoát khỏi ComboBoxGoods rồi (mà labelNo = 152) thì Conbochart này mới hiện ra. Nhưng trước sau gì thì con trỏ chuột không nhảy vào cái Conbochart bạn à.....

 

[viehoai]

Cám ơn viehoai nhieu,

Nhưng mình không muốn đưa cái này vô chỗ Private Sub ComboBoxGoods_Change(), lý do là change tới change lui nhiều quá, khi labelNo là "152" rồi thì combochart này đã hiện ra rồi, mà mình lại change ComboBoxGoods cái nữa thì cái combochart này vẫn cứ lù lù ra đấy.

Mình thêm đoạn code này vô chỗ ComboBoxGoods_Exit(), nghĩa là khi con trỏ thoát khỏi ComboBoxGoods rồi (mà labelNo = 152) thì Conbochart này mới hiện ra. Nhưng trước sau gì thì con trỏ chuột không nhảy vào cái Conbochart bạn à.....

Trong trường hợp bạn change ComboBoxGoods cái nữa thì bạn sử dụng lệnh If trên thêm Else nữa là được thôi mà

If Me.LabelNo.Caption = 152 Then
.....
Else
...
End If

Ý bên dưới mình chưa hiểu lắm

 

[HoangHacVT]

Trong trường hợp bạn change ComboBoxGoods cái nữa thì bạn sử dụng lệnh If trên thêm Else nữa là được thôi mà

If Me.LabelNo.Caption = 152 Then
.....
Else
...
End If

Ý bên dưới mình chưa hiểu lắm

Ý mình là con trỏ chuột nó không vào cái ComboChart viehoai ơi.

 

[vodoi2x]

thử sức với form nào

Ý mình là con trỏ chuột nó không vào cái ComboChart viehoai ơi.

bạn sửa ComboBoxGoods_Change() bằng cách thêm đoạn '-------------

Private Sub ComboBoxGoods_Change()
Select Case Me.ComboBoxGoods.Column(3)
Case "NNLNKH", "NHHNKH"
    Me.LabelNo.Caption = Me.ComboBoxGoods.Column(1)
    Me.labelCo.Caption = Me.ComboBoxGoods.Column(2)
Case "KHTTTM", "KHTTNH"
    Me.LabelNo.Caption = Me.ComboBoxGoods.Column(1)
    Me.labelCo.Caption = Me.ComboBoxGoods.Column(2)
Case "TTKHTM", "TTKHNH", "BTPKHN", "BVLKHN"
    Me.LabelNo.Caption = Me.ComboBoxGoods.Column(1)
    Me.labelCo.Caption = Me.ComboBoxGoods.Column(2)
Case "NNLTTM", "NHHTTM", "BTPTTM", "BVLTTM"
    Me.LabelNo.Caption = Me.ComboBoxGoods.Column(1)
    Me.labelCo.Caption = Me.ComboBoxGoods.Column(2)
End Select

''--------------chi them doan nay thoi
If Me.LabelNo.Caption = 152 And Not Me.ComboChart1.Visible Then  'hoac d/k Me.ComboBoxGoods.Column(1)=152
    With Me.ComboChart1
        .Visible = True
        .Enabled = True
        .SetFocus
    End With
ElseIf Me.LabelNo.Caption <> 152 And Me.ComboChart1.Visible Then
    Me.ComboChart1.Visible = False
End If
''----------------------------------
End Sub

(đoạn trên '------------- đó là giữ nguyên CODE của bạn nhé --NHƯNG thấy selectcase mà mọi case lại như nhau thì hơi lạ????)

 

[vodoi2x]

bạn sửa ComboBoxGoods_Change() bằng cách thêm đoạn '-------------

(đoạn trên '------------- đó là giữ nguyên CODE của bạn nhé --NHƯNG thấy selectcase mà mọi case lại như nhau thì hơi lạ????)

hoặc đoạn thêm thế này cho nó ngắn gọn hơn

'''--------------chi them doan nay thoi

With Me.ComboChart1
    If Me.LabelNo.Caption = 152 And Not .Visible Then  '''hoac d/k Me.ComboBoxGoods.Column(1)=152
        .Visible = True
        .Enabled = True
        .SetFocus
    ElseIf Me.LabelNo.Caption <> 152 And .Visible Then
        .Visible = False
    End If
End With
'''--------------  het doan them

 

[HoangHacVT]

hoặc đoạn thêm thế này cho nó ngắn gọn hơn

'''--------------chi them doan nay thoi

With Me.ComboChart1
    If Me.LabelNo.Caption = 152 And Not .Visible Then  '''hoac d/k Me.ComboBoxGoods.Column(1)=152
        .Visible = True
        .Enabled = True
        .SetFocus
    ElseIf Me.LabelNo.Caption <> 152 And .Visible Then
        .Visible = False
    End If
End With
'''--------------  het doan them

Cám ơn vodoi2x nhé, nhưng vẫn còn khó khăn sau:

Ngay khi combogoods change, con trỏ lập tức nhảy vào combochart1 ngay. Lúc đó mà mình muốn change tiếp ở combogood thì không được nữa ( trỏ chuột đi mất rồi mà). Thế nên khi mình đổi combogood để cho lanelNo thể hiện giá trị khác (156 chẳng hạn) thì không được.

Nên mình muốn nhập câu lệnh này ở Sub Combogoods_Exit là vậy. Nhưng thêm câu lệnh ở phần này thì con trỏ chuột không vào ComboChart1 được.

Còn select case mà các case đều như nhau là do bác Du nói nhìn rối quá nên mình xóa bớt ấy mà.

 

[vodoi2x]

Bạn tự xét và đọc lại

Ý mình là con trỏ chuột nó không vào cái ComboChart viehoai ơi.

và ý này

Cám ơn vodoi2x nhé, nhưng vẫn còn khó khăn sau:
Ngay khi combogoods change, con trỏ lập tức nhảy vào combochart1 ngay.

như vậy mâu thuẫn nhau

bạn muốn chuyển vào combochart1 (khi LabelNo.Caption=152) Rồi lại KHÔNG muốn chuyển đến là sao???

vậy bạn xem lại tự trả lời câu hỏi mâu thuẫn đó nhé,