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

Nhập liệu trong Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Nhập liệu trong Form
• Nhập liệu trong Form

• Nhập liệu trong Form

  hoat > 27-10-21, 05:59 PM

  Em có 2 table: T_MangDV và T_LoaiDV
  Trong T_MangDV em có các trường: MaMang và TenMang
       MaMang               TenMang
          TM                 Thương Mại
          DA                  Dự Án
          SP                  Sản phẩm
  Trong T_LoaiDV em có các trường: MaLoaiDV, MaMang và TenLoaiDV
       MaLoaiDV          MaMang               TenLoaiDV
          T01                  TM                    TM Koino
          T02                  TM                    TM JF
          T03                  TM                    TM LS
          D01                  DA                    DA Nông nghiệp
          D02                  DA                    DA Công nghiệp
          S01                  SP                     SP Máy hút
          S01                  SP                     SP Máy tưới
  
  
  Em có form nhập báo giá trong đó có 2 combo box: txtMangDV (Mảng DV) và txtLoaiDV (Loại DV).
  Em muốn khi chọn combo box: txtMangDV là TM thì ở combo box: txtLoaiDV chỉ còn các TenLoaiDV của TM, không hiển thị các TenLoaiDV của DA và SP.
  
  Rất mong nhận được hướng dẫn từ anh chị em.
  Trân trọng.

• RE: Nhập liệu trong Form

  AnNguyen > 27-10-21, 07:59 PM

  Bạn tạo sự kiện _After()
  Sau đó gán
  Combobox.Rowsource = " select * from T_LoaiDV where maMang='" & txtMaMang & "'"

• RE: Nhập liệu trong Form

  hoat > 28-10-21, 09:33 AM

  (27-10-21, 07:59 PM)AnNguyen Đã viết: Bạn tạo sự kiện _After()
  Sau đó gán
  Combobox.Rowsource = " select * from T_LoaiDV where maMang='" & txtMaMang & "'"

  
  cho mình hỏi là tạo sự kiện này ở phần nào được không? Hiện tại mình đang cho Round Source của 2 Combo Box này đến 2 table T_LoaiDV và T_MangDV
  
  Cảm ơn bạn nhiều

• RE: Nhập liệu trong Form

  AnNguyen > 28-10-21, 04:20 PM

  
  Bạn F4 và đối tượng là xem ở phần Property là thấy nhé

• RE: Nhập liệu trong Form

  hoat > 29-10-21, 09:51 AM

  (28-10-21, 04:20 PM)AnNguyen Đã viết:
  Bạn F4 và đối tượng là xem ở phần Property là thấy nhé

  
  Thank AnNguyen.
  Cho mình hỏi thêm cài này nữa nha
  Trong form mình có 2 combo box: txtTenKH và txtKHCuMoi
  Khi mình nhập tên khách hàng vào combo box: txtTenKH thì sẽ tìm tên khách hàng đó trong bảng T_Baogia, nếu đã có thì combo box: txtKHCuMoi sẽ hiện "Khách hàng cũ", ngược lại là "Khách hàng mới"
  Muốn  làm như vậy mình dùng hàm như thê nào ?
  
  Cảm ơn bạn nhiều

• RE: Nhập liệu trong Form

  tranthanhan1962 > 29-10-21, 10:25 AM

  Thiết kế lạ nhỉ!

• RE: Nhập liệu trong Form

  AnNguyen > 29-10-21, 11:20 AM

  (29-10-21, 09:51 AM)hoat Đã viết: Trong form mình có 2 combo box: txtTenKH và txtKHCuMoi
  Khi mình nhập tên khách hàng vào combo box: txtTenKH thì sẽ tìm tên khách hàng đó trong bảng T_Baogia, nếu đã có thì combo box: txtKHCuMoi sẽ hiện "Khách hàng cũ", ngược lại là "Khách hàng mới"
  Muốn  làm như vậy mình dùng hàm như thê nào ?
  
  Cảm ơn bạn nhiều

  
  1: Đã là type combobox thì bạn nên đặt tên là cbKhachHangMoi; cbKhachHangCu (chứ combobox lại đi đặt tiền tố là txt thế hả bạn)
  
  2: Cái kiểu thiết kế hiện ra Khách hàng cũ mới của bạn hơi lạ làm chưa hình dung ra được.
  Còn bạn muốn khi nhập tên xong thì nó sẽ hiện ra đã có mã hay chưa thì bạn nhập lệnh là
  

  Mã:

  If (DCount("MaKhachHang", "T_Baogia", "TenKH='" & txtTenKH & "'")) > 0 Then
            ' Da ton tai
        Else
            ' chua ton tai
        End

  -> người ta chỉ tìm kiếm theo mã mới có tính đúng nhất thôi, còn theo tên thì sẽ có nhiều tên bạn nhé.nếu vậy lúc ý phải tìm kiểu khác.

• RE: Nhập liệu trong Form

  hoat > 29-10-21, 12:05 PM

  (29-10-21, 10:25 AM)tranthanhan1962 Đã viết: Thiết kế lạ nhỉ!

  
  
  Mình tham khảo bài viết https://thuthuataccess.com/forum/thread-12243.html
  
  Cách lồng hàm IIF trong access <=> IF trong excel
  
  IIF(Điều kiện 1, Kết quả 1, IIF(Điều kiện 2, Kết quả 2, IIF(Điều kiện 3, Kết quả 3, IIF(...))))
  
  của tranthanhan1962 và đã làm được điều mình muốn.
  
  Cảm ơn bạn nhiều

• RE: Nhập liệu trong Form

  hoat > 29-10-21, 03:00 PM

  (29-10-21, 11:20 AM)AnNguyen Đã viết:

  (29-10-21, 09:51 AM)hoat Đã viết: Trong form mình có 2 combo box: txtTenKH và txtKHCuMoi
  Khi mình nhập tên khách hàng vào combo box: txtTenKH thì sẽ tìm tên khách hàng đó trong bảng T_Baogia, nếu đã có thì combo box: txtKHCuMoi sẽ hiện "Khách hàng cũ", ngược lại là "Khách hàng mới"
  Muốn  làm như vậy mình dùng hàm như thê nào ?
  
  Cảm ơn bạn nhiều

  
  1: Đã là type combobox thì bạn nên đặt tên là cbKhachHangMoi; cbKhachHangCu (chứ combobox lại đi đặt tiền tố là txt thế hả bạn)
  
  2: Cái kiểu thiết kế hiện ra Khách hàng cũ mới của bạn hơi lạ làm chưa hình dung ra được.
  Còn bạn muốn khi nhập tên xong thì nó sẽ hiện ra đã có mã hay chưa thì bạn nhập lệnh là
  

  Mã:

  If (DCount("MaKhachHang", "T_Baogia", "TenKH='" & txtTenKH & "'")) > 0 Then
            ' Da ton tai
        Else
            ' chua ton tai
        End

  -> người ta chỉ tìm kiếm theo mã mới có tính đúng nhất thôi, còn theo tên thì sẽ có nhiều tên bạn nhé.nếu vậy lúc ý phải tìm kiểu khác.

  Cảm ơn bạn, do mình mới tìm hiểu Access, cũng tự học nên nhiều khi chưa hiểu rõ nên đặt tên nó hơi lộn xộn.
  
  Bạn cho mình hỏi là đoạn code này mình viết mà thông báo nó vẫn không hiển thị tiếng việt được là nó bị sao?
  
  Private Sub cmdXoa_Click()
  If MsgBox("B" & ChrW(7841) & "n có th" & ChrW(7853) & "t s" & ChrW(7921) & " mu" & ChrW(7889) & "n xoá không ", vbYesNo + vbQuestion, "Thông báo") = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  LSTChaoGia.Requery
  End If
  End Sub
  
  Cảm ơn bạn nhiều

• RE: Nhập liệu trong Form

  AnNguyen > 29-10-21, 03:36 PM

  (29-10-21, 03:00 PM)hoat Đã viết: Bạn cho mình hỏi là đoạn code này mình viết mà thông báo nó vẫn không hiển thị tiếng việt được là nó bị sao?
  
  Private Sub cmdXoa_Click()
  If MsgBox("B" & ChrW(7841) & "n có th" & ChrW(7853) & "t s" & ChrW(7921) & " mu" & ChrW(7889) & "n xoá không ", vbYesNo + vbQuestion, "Thông báo") = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
  LSTChaoGia.Requery
  End If
  End Sub
  
  Cảm ơn bạn nhiều

  
  Trong VBA không biết được tiếng việt bạn nhé. Bạn muốn viết được thông báo tiếng việt thì bạn tìm bài trên diễn đàn nhé, có rất nhiều bài rồi đó.
  Còn mình thì mình đang dùng cái này
  

  Mã:

  Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Function MsgBoxUni(ByVal NoiDung As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly) As VbMsgBoxResult
    MsgBoxUni = MessageBoxW(GetActiveWindow, "noidung thong bao_ truyen tieng viet vao day", 'Tieu de', Buttons)
End Function
• Bài trước Bài tiếp