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

gán record cho textbox = dlookup.

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] gán record cho textbox = dlookup.
• gán record cho textbox = dlookup.

• gán record cho textbox = dlookup.

  doandinhtam > 29-06-21, 03:49 PM

  Mình có vấn đề nữa về gán record cho textbox = dlookup.
  VD: Mình muốn gán dữ liệu quê quán của nhân viên có ID 20 vào textbox quê quán của nhân viên ID 21. Mình đã code như này nhưng toàn báo lỗi.
  

  Mã:

  Private Sub QUEQUAN_Enter()
If (Me.HOVATEN.Value) <> 0 And Len(Me.QUEQUAN.Text) < 1 Then
Me.QUEQUAN.Text = DLookup("QUEQUAN", "tbl_NKT1", "ID =" & Me.ID - 1)
End If
End Sub

  Mong bác chỉ giáo

• RE: Đánh số thứ tự cho record subfrm

  ongke0711 > 29-06-21, 04:56 PM

  (29-06-21, 03:49 PM)doandinhtam Đã viết: Giờ mình muốn khi nhập dữ liệu vào subform B thì access sẽ tự đánh STT từ 1-> kết thúc cho đến khi người dùng nhập SHKM khác thì sẽ đánh số thứ tự quay lại từ 1 cho SHKM mới nhập vào đó.

  
  STT này của bạn có vai trò gì trong CSDL của bạn không? Nếu chỉ có tác dụng trang trí làm đẹp Form thôi thì khỏi tốn công, phí tài nguyên cho nó làm gì bạn.

• RE: Đánh số thứ tự cho record subfrm

  doandinhtam > 29-06-21, 05:39 PM

  (29-06-21, 04:56 PM)ongke0711 Đã viết:

  (29-06-21, 03:49 PM)doandinhtam Đã viết: Giờ mình muốn khi nhập dữ liệu vào subform B thì access sẽ tự đánh STT từ 1-> kết thúc cho đến khi người dùng nhập SHKM khác thì sẽ đánh số thứ tự quay lại từ 1 cho SHKM mới nhập vào đó.

  
  STT này của bạn có vai trò gì trong CSDL của bạn không? Nếu chỉ có tác dụng trang trí làm đẹp Form thôi thì khỏi tốn công, phí tài nguyên cho nó làm gì bạn.

  
  ĐỂ KHI NHẬP LIỆU NHÌN QUA LÀ BIẾT CÁI shkm ĐÓ CÓ BAO NHIÊU NGƯỜI ĐÓ BẠN. MONG BẠN GIÚP ĐỠ Ạ.
  và Bác cho em hỏi thêm 1 cái nữa là: có cách nào để bắt buộc người dùng phải nhập 1 trường dữ liệu bắt buộc như HOVATEN thì mới có thể nhập dữ liệu vào các trường khác, nếu chưa nhập thì báo lỗi: Chưa nhập HOVATEN và cancel việc nhập các trường khác được ko ạ?

• RE: Đánh số thứ tự cho record subfrm

  tranthanhan1962 > 29-06-21, 08:10 PM

  (29-06-21, 05:39 PM)doandinhtam Đã viết: có cách nào để bắt buộc người dùng phải nhập 1 trường dữ liệu bắt buộc như HOVATEN thì mới có thể nhập dữ liệu vào các trường khác, nếu chưa nhập thì báo lỗi: Chưa nhập HOVATEN và cancel việc nhập các trường khác được ko ạ?

  Cái này là bài vở lòng của access. xem lại Validation Rule và Validation Text

• RE: Đánh số thứ tự cho record subfrm

  ongke0711 > 29-06-21, 08:22 PM

  (29-06-21, 03:49 PM)doandinhtam Đã viết: Giờ mình muốn khi nhập dữ liệu vào subform B thì access sẽ tự đánh STT từ 1-> kết thúc cho đến khi người dùng nhập SHKM khác thì sẽ đánh số thứ tự quay lại từ 1 cho SHKM mới nhập vào đó.
  Code của mình sưu tầm được như sau:
  ...
  Nhưng code không chạy được. Mong mọi người chỉ giáo.

  
  Mỗi thao tác trên Form đều ứng với những sự kiện để chạy code khác nhau, do đó bạn phải mô tả chi tiết thì mới biết nó ứng với sự kiện gì và có những đối sách khác nhau cho nó.
  Bạn nói "..muốn khi nhập liệu vào subform B..": cái "khi nhập liệu" này nó có nhiều hình thức: 
  - Bạn gõ dữ liệu trong subForm rồi bấm Enter, Tab, phím mũi tên hoặc 
  - Có các textbox trên MainForm, bạn nhập dữ liệu vào đó rồi bấm nút [Thêm], dữ liệu sẽ được code Insert thành 1 dòng vào SubForm bên dưới.
  Mỗi trường hợp trên code sẽ khác nhau.
  Nếu không có Form mẫu thì cũng khó hướng dẫn cho đúng sự kiện.
  Đánh số thứ tự, bạn đọc kỹ bài này: https://thuthuataccess.com/forum/post-27...l#pid27116
  
  Về việc bắt nhập liệu một trường nào đó thì có nhiều sự kiện trong Form để bắt cái lỗi này: tuỳ bạn cảm thấy nó thuận tiện nhất.
  - Khi bấm nút [Lưu] sẽ chạy code kiểm tra tất cả các textbox nào là Null.
  - Sự kiện Textbox AfterUpdate (Exit, LostFocus) sẽ check Null
  
  Vd:
  

  Mã PHP:

  Private Sub cmdLuu_Click()
If Len(Nz(Me.txtHoVaTen,"")) = 0 Then
    Msgbox "Khong duọc de trong ô Ho Tên"
    Exit sub
End if
End Sub 


• RE: Đánh số thứ tự cho record subfrm

  doandinhtam > 30-06-21, 11:57 AM

  (29-06-21, 08:22 PM)ongke0711 Đã viết: [quote="doandinhtam" pid='49601' dateline='1624952952']
  [/php]

  
  Mình có vấn đề nữa về gán record cho textbox = dlookup.
  VD: Mình muốn gán dữ liệu quê quán của nhân viên có ID 20 vào textbox quê quán của nhân viên ID 21. Mình đã code như này nhưng toàn báo lỗi.
  

  Mã:

  Private Sub QUEQUAN_Enter()
If (Me.HOVATEN.Value) <> 0 And Len(Me.QUEQUAN.Text) < 1 Then
Me.QUEQUAN.Text = DLookup("QUEQUAN", "tbl_NKT1", "ID =" & Me.ID - 1)
End If
End Sub

  Mong bác chỉ giáo

• RE: Đánh số thứ tự cho record subfrm

  tranthanhan1962 > 30-06-21, 01:18 PM

  (30-06-21, 11:57 AM)doandinhtam Đã viết: Mình có vấn đề nữa về gán record cho textbox = dlookup.
  VD: Mình muốn gán dữ liệu quê quán của nhân viên có ID 20 vào textbox quê quán của nhân viên ID 21. Mình đã code như này nhưng toàn báo lỗi.
  

  Mã:

  Private Sub QUEQUAN_Enter()
If (Me.HOVATEN.Value) <> 0 And Len(Me.QUEQUAN.Text) < 1 Then
Me.QUEQUAN.Text = DLookup("QUEQUAN", "tbl_NKT1", "ID =" & Me.ID - 1)
End If
End Sub

  Mong bác chỉ giáo

  Thay bằng Me.QUEQUAN.Text = DLookup("[QUEQUAN]", "tbl_NKT1", "[ID] =  ID.Value - 1")
  Tốt nhất là:
  QUEQUAN.Value = DLookup("[QUEQUAN]", "tbl_NKT1", "[ID] =  ID.Value - 1")
  * Các cặp " " phải bao trùm toàn bộ "ID =" & Me.ID - 1 bỏ & Me.ID - 1 ra ngoài là sai.
     Thay  Me.ID - 1 bằng ID.Value - 1 để xác định lấy giá trị textbox ID. Thói quen dùng cú pháp Me.Control là không tốt (Cú pháp này hồi access mới ra đời xác định giá trị của texbox giờ thì các control có rất nhiều thuộc tính).
     Các tên field phải nằm trong cặp []

• RE: gán record cho textbox = dlookup.

  ongke0711 > 30-06-21, 01:52 PM

  (29-06-21, 03:49 PM)doandinhtam Đã viết: Mình có vấn đề nữa về gán record cho textbox = dlookup.
  ...
  Mong bác chỉ giáo

  
  Đề nghị bạn không xoá bài viết cũ. 
  Vấn đề bạn và mọi người cùng trao đổi trên diễn đàn thì bạn không được xoá để người khác gặp vấn đề như bạn còn có thể tham khảo. Đằng này giải quyết vấn đề của bạn xong bạn xoá luôn. Nhưng bài hướng dẫn theo sau cho nó trở thành vô nghĩa.
• Bài trước Bài tiếp