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

Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form
• Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

• Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

  tien1505 > 30-06-17, 10:54 PM

  Chào cả nhà, 
  Mình mới tập tành Access để viết 1 CSDL nhỏ gọn dùng cho việc kinh doanh gia đình.
  Cả nhà giúp mình 2 vấn đề này nhé, mình xin cám ơn trước.
  
  
  Pic 1 : 
  1.Mã KH và tên KH cùng trong 1 table, mình đã tạo list box để chọn tên KH trong ds có sẵn, làm sao để khi chọn ten KH thì bên ô Mã KH cũng tự động nhảy MaKH tuong ứng luôn ?
  2.Số hóa đơn mình muốn thiết lập với cấu trúc : "MaKH"&"_"&"ddmmyy"&"_"&"hhmm" 
  ddmmyy : day - month - year
  
  hhmm : hour - minute
  
  
  
  
  
  
  Pic 2 : 
  Làm thế nào để form biến thành cửa sổ thu gọn như hình (hình này từ 1 form có sẵn mình down trên mạng)
  
  
  
  Mong hồi âm từ cả nhà , mình xin cảm ơn 

• RE: Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

  tranthanhan1962 > 30-06-17, 11:19 PM

  1/
  

  Mã:

  Private Sub TenKH_AfterUpdate()
    MaKH.Value=DLookUp("[MaKH]"; "Tên table chứa MaKH và TenKH"; "[TenKH]=TexboxTenKH.Value")
    SoHoaDon.Vale=MaKH.Value & "_" & Format(Ngayxuat.Value,"ddmmyy") & "_" & Format(Time(),"hhmm")
End Sub

Private Sub Ngayxuat_AfterUpdate()
    SoHoaDon.Vale=MaKH.Value & "_" & Format(Ngayxuat.Value,"ddmmyy") & "_" & Format(Time(),"hhmm")
End Sub

  
  2/
  Thiết đặt Form properties Pop Up = Yes
  

  Mã:

  Private Sub Form_Open(Cancel As Integer)
   DoCmd.Restore
End Sub

• RE: Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

  tien1505 > 01-07-17, 12:07 AM

  Hi bạn, 
  2/  Cái này mình làm được rồi , thanks bạn. 
  
  Còn phần 1/ : 
  Mình tạm đặt tên như này cho dễ phân biệt nhé :
  Table Khachhang : field MaKH, TenKH
  Trong form Hóa đơn : combo box của Tên Khách hàng tên là Tenkhhd ; text box của mã KH là makhhd ; 
  ngayxuat & sohoadon thì y vậy
  
  Mình nhập code này : 
  
  Private Sub tenkhhd_AfterUpdate()
  
      makhhd.Value=DLookUp("[Makhhd]";"Khachhang"; "[TenKH]=TenKHhd.Value")
      sohoadon.Vale = makh.Value & "_" & Format(ngayxuat.Value, "ddmmyy") & "_" & Format(Time(), "hhmm")
  End Sub
  
  thì bị báo lỗi : expected list separator or ) 

• RE: Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

  tranthanhan1962 > 01-07-17, 12:23 AM

  Sorry, mình gõ nhầm. Sai ở function DLookUp("[Makhhd]";"Khachhang"; "[TenKH]=TenKHhd.Value")
  1/ Dấu phân cách function trong Expression Builder là ";" nhưng trong code là dấu ",". bạn sửa lại là:
  DLookUp("[Makhhd]","Khachhang", "[TenKH]=TenKHhd.Value").
  2/Bạn đang tìm giá trị của field MaKH để gán vào texbox makhhd nên công thức phải là
  makhhd.Value=DLookUp("[MaKH]","Khachhang","[TenKH]=TenKHhd.Value")

• RE: Truy vấn từ 1 list box trong form và điều chỉnh kích thước form

  tien1505 > 01-07-17, 12:34 AM

  Mình làm được hết rồi, thực sự cảm ơn bạn nhé.
  Càng khám phá càng thích môn access này :
  
  
• Bài trước Bài tiếp