Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Bổ sung RowSource cho Combobox ngay khi chọn giá trị
#1
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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , ongke0711 , huuduy.duy
#2
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 StringResponse 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(strMsgvbQuestion 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


File đính kèm
.zip   Xu ly combobox(by maidinhdan).zip (Kích cỡ: 15.16 KB / Tải về: 69)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , ongke0711 , huuduy.duy
#3
Ok! code của bạn đẹp hơn của mình nhiều. Thank
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#4
(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
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
@maidinhdan : Nạp xong cho combo, nhớ cho nó Requery
Thân
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , maidinhdan
#6
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.
Chữ ký của amazonvn82 amazonvn82,gia nhập Thủ Thuật Access từ 07-08 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 208 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 122 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh
  [Help] tạo 2 combobox liên kết giá trị trong một table trên form tronghieu9792 2 163 31-08-16, 08:48 AM
Bài mới nhất: tronghieu9792
  Thắc mắc về nút lựa chọn Option box nam8384 14 837 20-08-16, 08:58 PM
Bài mới nhất: maidinhdan
  [Hỏi] Loại bỏ trường trùng lặp trên combobox tvn_hut 3 239 03-07-16, 09:53 AM
Bài mới nhất: cpucloi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ