Hiện thông báo

Hỏi:Tôi có 1 combo box (cboMaHang), tôi muốn khi người dùng đánh mã hàng không có trong hộp danh sách thì hiện lên thông báo có thêm giá trị mới này vào Combobox ko? Làm cách nào


Trả lời:

Bạn làm theo cách này xem:

Private Sub Cboname_NotInList(NewData As String, Response As Integer)

Dim db As Database

Dim LSQL As String
Dim LResponse As Integer
Dim ctl As Control

On Error GoTo Err_Execute
Set ctl = Me!Cboname
LResponse = MsgBox(NewData & " là một giá trị mới. Bạn có muốn thêm nó vào combo box?", vbYesNo, "Xác nhận")
If LResponse = vbYes Then
Set db = CurrentDb()
LSQL = "insert into tablename (cboname) values ('" & NewData & "')"

db.Execute LSQL, dbFailOnError

Set db = Nothing

Response = acDataErrAdded

Else
Response = acDataErrContinue
ctl.Undo
End If
On Error GoTo 0
Exit Sub

Err_Execute:
ctl.Undo
MsgBox "Action failed"

End Sub

Posted in: lap trinh .Net, lap trinh vien, Lap trinh vien VB