• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Bổ sung RowSource cho Combobox ngay khi chọn giá trị

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Bổ sung RowSource cho Combobox ngay khi chọn giá trị
• Bổ sung RowSource cho Combobox ngay khi chọn giá trị

• Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  tranthanhan1962 > 05-04-15, 11:16 PM

  Chào các bạn hôm nay mình xin phép Ban quản trị diễn đàn giới thiệu đến các bạn một phương pháp hỗ trợ nhập dữ liệu. Bổ sung RowSource cho Combobox ngay khi chọn giá trị
  Khi thiết đặt Limit to List của combobox = true, trong trường hợp RowSource của Combobox lên kết với 1 field của một Table. Combobox sẽ không cho nhập giá trị nào khác với các record của Table liên kết. Phương pháp này sẽ gọi Form dữ liệu của Table liên kết và đưa giá trị mới nhập từ Combobox vào Table liên kết
  [img][/img]
  Link tải ở đây

• RE: Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  maidinhdan > 06-04-15, 01:05 AM

  Bài viết rất hay....Các đoạn code đáng để học hỏi.
  
  Cũng xin góp chỉ cần một đoạn code duy nhất vào combo thôi
  

  Mã PHP:

  Private Sub cbnaplist_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

    strMsg = "'" & NewData & "' Ten nay khong co trong Danh sach " & vbCrLf & vbCrLf
    strMsg = strMsg & "Ban co muon them ten nay vao khong?"
    strMsg = strMsg & vbCrLf & vbCrLf & "Nhan Yes de dong y hoac No de go lai."
    
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Them ten moi?") = vbNo Then
        Response = acDataErrContinue
        Exit Sub
    Else
        Set db = CurrentDb
        Set rs = db.OpenRecordset("TableBangDanhSach", dbOpenDynaset)
        On Error Resume Next
        rs.AddNew
            rs!MaDS = NewData  'Muon them cot nao thi chen o day'
        rs.Update
        
        If Err Then
            MsgBox "Ten nay da ton tai, Xin nhap ten khac vao."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
    End If
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub 


  
  
  Đính kèm Demo

• RE: Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  tranthanhan1962 > 06-04-15, 06:27 PM

  Ok! code của bạn đẹp hơn của mình nhiều. Thank

• RE: Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  maidinhdan > 06-04-15, 06:44 PM

  (06-04-15, 06:27 PM)tranthanhan1962 Đã viết: Ok! code của bạn đẹp hơn của mình nhiều. Thank

  
  Code em nó gọn cho mấy bạn mới thôi, chứ em thích code anh hơn ah. Để ngâm cứu từ từ..coi có thể làm chuyện nào khác không.
  
  Cảm ơn anh nhé.

• RE: Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  Xuân Thanh > 07-04-15, 05:06 PM

  @maidinhdan : Nạp xong cho combo, nhớ cho nó Requery
  Thân

• RE: Bổ sung RowSource cho Combobox ngay khi chọn giá trị

  amazonvn82 > 08-08-15, 12:34 AM

  Thanks các bác. mình mới học access rấy mong được sự giúp đỡ của các bạn.
• Bài trước Bài tiếp