• Trang chủ click to expand contents 

  • 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][Hình: PjVi7r1.png][/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é.015

  • 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.