tvn_hut > 16-03-16, 06:01 PM
MTNQ > 17-03-16, 05:12 PM
tvn_hut Đã viết:Hi cả nhà. giả sử mình có 1 form với 1 text box có source là table và 1 combo box có 3 giá trị chọn là open, close và plan. mình muốn combo box chọn đc giá trị close khi text box phải được ghi dữ liệu, tức là không đc rỗng. Vậy phải làm sao nhỉ các bạn.
If Nz(Text2, "") = "" Then
Me.Combo2.RowSource = "Open;Plan"
Else
Me.Combo2.RowSource = "Open;Close;Plan"
End Iftvn_hut > 18-03-16, 12:21 PM
(17-03-16, 05:12 PM)MatTroiNguQuen Đã viết:tvn_hut Đã viết:Hi cả nhà. giả sử mình có 1 form với 1 text box có source là table và 1 combo box có 3 giá trị chọn là open, close và plan. mình muốn combo box chọn đc giá trị close khi text box phải được ghi dữ liệu, tức là không đc rỗng. Vậy phải làm sao nhỉ các bạn.
Nếu RowSourceType của Combo Box là Value List, bạn code cho sự kiện On GotFocus của Combo Box tương tự như sau:
Mã:If Nz(Text2, "") = "" Then
Me.Combo2.RowSource = "Open;Plan"
Else
Me.Combo2.RowSource = "Open;Close;Plan"
End If
Với Text2, Combo2 là textbox và combobox của bạn
ongke0711 > 18-03-16, 01:06 PM
MTNQ > 18-03-16, 04:11 PM
(18-03-16, 12:21 PM)tvn_hut Đã viết: Hi MTNQ
Mình làm theo hướng dẫn của bạn nhưng không chạy được. Trên combo2 mình để RowSourcetype là value list. Còn RowSource là trống fk bạn. trước mình để RowSource chọn 1 trong 3 giá trị là "Close"; "plan";"open". Nhưng khi áp code vào thì nó vẫn không chạy theo ý muốn. Không rõ mình sai chỗ nào nhỉ. Nó cứ báo the record source 'Open;Plan' specified on this form or report dóes not exist
Private Sub Combo2_GotFocus()
Combo2.RowSourceType = "value list"
If Nz(Text2, "") = "" Then
Me.Combo2.RowSource = "Open;Plan"
Else
Me.Combo2.RowSource = "Open;Close;Plan"
End If
End Subtvn_hut > 19-03-16, 09:42 PM
(18-03-16, 04:11 PM)MatTroiNguQuen Đã viết:thank MTNQ so much. I got it(18-03-16, 12:21 PM)tvn_hut Đã viết: Hi MTNQ
Mình làm theo hướng dẫn của bạn nhưng không chạy được. Trên combo2 mình để RowSourcetype là value list. Còn RowSource là trống fk bạn. trước mình để RowSource chọn 1 trong 3 giá trị là "Close"; "plan";"open". Nhưng khi áp code vào thì nó vẫn không chạy theo ý muốn. Không rõ mình sai chỗ nào nhỉ. Nó cứ báo the record source 'Open;Plan' specified on this form or report dóes not exist
Lỗi trên có thể RowSourcetype của combobox đang là Table/Query. bạn thử sửa code lại như sau:
Mã:Private Sub Combo2_GotFocus()
Combo2.RowSourceType = "value list"
If Nz(Text2, "") = "" Then
Me.Combo2.RowSource = "Open;Plan"
Else
Me.Combo2.RowSource = "Open;Close;Plan"
End If
End Sub
Nếu vẫn lỗi chắc bạn phải tách cái form đó đưa lên đây