sự kiện On Change của combobox trong access

[thunga25]

Mình có viết cho sự kiện on change của combobox trong access như thể này:

Private Sub txt_maphong_Change()
Dim dbc As DAO.Database
Set dbc = CurrentDb
Dim rsc As DAO.Recordset
Set rsc = dbc.OpenRecordset("select * from PHONG_BAN where Ma_PB = " & "'" & txt_maphong & "'")
If rsc.RecordCount > 0 Then
pic_NG.Visible = True
pic_ok.Visible = False
Else
pic_NG.Visible = False
pic_ok.Visible = True
End If
End Sub

nhưng vấn đề là khi gõ(thay đổi combobox) thì nó chỉ thực hiện 1 lần đâu tiên, những lần gõ tiếp theo nó không thực hiện nữa.
Bạn nào biết giúp mình với!

 

[Hoàng Trọng Nghĩa]

Mình có viết cho sự kiện on change của combobox trong access như thể này:

Private Sub txt_maphong_Change()
Dim dbc As DAO.Database
Set dbc = CurrentDb
Dim rsc As DAO.Recordset
Set rsc = dbc.OpenRecordset("select * from PHONG_BAN where Ma_PB = " & "'" & txt_maphong & "'")
If rsc.RecordCount > 0 Then
pic_NG.Visible = True
pic_ok.Visible = False
Else
pic_NG.Visible = False
pic_ok.Visible = True
End If
End Sub

nhưng vấn đề là khi gõ(thay đổi combobox) thì nó chỉ thực hiện 1 lần đâu tiên, những lần gõ tiếp theo nó không thực hiện nữa.
Bạn nào biết giúp mình với!

Nếu nó thỏa điều kiện rồi thì nó vẫn thực hiện nhưng không thay đổi gì cả!

 

[thunga25]

Cho mình hỏi với, làm cách nào để khi mình gõ "a" ở textbox1 thì ở textbox2 cũng hiện "a", gõ tiếp "b" ở textbox1 thì textbox2 cũng tiếp tục hiện "ab",

 

[thunga25]

Nếu nó thỏa điều kiện rồi thì nó vẫn thực hiện nhưng không thay đổi gì cả!

nhưng lần gõ đầu thỏa điều kiện, gõ thêm nữa không thỏa điều kiện thì phải thực hiện lệnh else chứ bạn?

 

[Hoàng Trọng Nghĩa]

Cho mình hỏi với, làm cách nào để khi mình gõ "a" ở textbox1 thì ở textbox2 cũng hiện "a", gõ tiếp "b" ở textbox1 thì textbox2 cũng tiếp tục hiện "ab",

Trong sự kiện Change của TextBox1, bạn gõ:

TextBox2 = TextBox1

 

[Hoàng Trọng Nghĩa]

nhưng lần gõ đầu thỏa điều kiện, gõ thêm nữa không thỏa điều kiện thì phải thực hiện lệnh else chứ bạn?

Thử lại với cái này xem:

Private Sub txt_maphong_Change()
    Dim dbc As DAO.Database
    Set dbc = CurrentDb
    Dim rsc As DAO.Recordset
    Set rsc = dbc.OpenRecordset("select * from PHONG_BAN where Ma_PB = " & "'" & txt_maphong[B][COLOR=#ff0000].Text[/COLOR][/B] & "'")
    If rsc.RecordCount Then
        pic_NG.Visible = True
        pic_ok.Visible = False
    Else
        pic_NG.Visible = False
        pic_ok.Visible = True
    End If
End Sub

 

[thunga25]

Trong sự kiện Change của TextBox1, bạn gõ:

TextBox2 = TextBox1

Cái này mình đã thử nhưng không được

 

[thunga25]

Thử lại với cái này xem:

Cái này được rồi bạn ơi, cảm ơn bạn nhiều

 

[Hoàng Trọng Nghĩa]

Cái này mình đã thử nhưng không được

Thì thử thêm ".Text" vào sao:

TextBox2.Text = TextBox1.Text