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

Hỏi về việc khóa dữ liệu , khóa subform

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Hỏi về việc khóa dữ liệu , khóa subform
• Hỏi về việc khóa dữ liệu , khóa subform

• Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 14-07-17, 03:38 PM

  
  Như trên hình . Mình muốn là nếu không điền hết các mục bên trên như Người lập phiếu , lý do thì không cho nhập dữ liệu xuống bên dưới
  Cách khóa recode dữ liệu cũ không cho sửa , xóa
  Không biết sao hình lỗi rồi . Hoặc làm sao mình tạo nút ấn để nó đóng mở subform 
  
  Thêm nữa là cho mình hỏi mình có công thức của Sản phẩm A : cần bán thành phẩm B và NVL C 
  Công thức của Bán thành phẩm B cần NVL D và E
  Làm sao để mình làm được ma trận khi mà cần sản xuất NVL A nó show ra được là cần NVL C D E 
  
  Nếu được cho mình xin file demo
  Thanks

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 15-07-17, 05:51 PM

  ..... ai giúp mình vụ này với

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  ongke0711 > 15-07-17, 06:48 PM

  Không thấy hình.
  Còn vụ NVL A B C thì anh tranthanhan1962 đã trả lời bạn rồi.
  
  - Nếu muốn giữ rịt con trỏ tại textbox cần nhập dữ liệu thì bạn cứ dùng event OnLostFocus, kiểm tra If IsNull(Textbox) Then Textbox.SetFocus.
  - Muốn khóa record thì dùng các thuộc tính ở mức Form: 
    + Me.AllowEdit = False
    + Me.AllowDeletion = False
    + Me.AllowAddition = False

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 19-07-17, 03:51 PM

  (15-07-17, 06:48 PM)ongke0711 Đã viết: Không thấy hình.
  Còn vụ NVL A B C thì anh tranthanhan1962 đã trả lời bạn rồi.
  
  - Nếu muốn giữ rịt con trỏ tại textbox cần nhập dữ liệu thì bạn cứ dùng event OnLostFocus, kiểm tra If IsNull(Textbox) Then Textbox.SetFocus.
  - Muốn khóa record thì dùng các thuộc tính ở mức Form: 
    + Me.AllowEdit = False
    + Me.AllowDeletion = False
    + Me.AllowAddition = False

  
  Cảm ơn bạn . Mình làm được cái đó rồi , cho mình hỏi thêm là nếu mình muốn khi ấn vào cái nút ok khi msg thông báo hiện lên thì nó lại trở về ô mình muốn focus thì mình thêm lệnh như nào 
  Lệnh mình hiện như này 
  

  Trích dẫn:Private Sub khachhang_LostFocus()
  If IsNull(khachhang) Then
  warnmesg = MsgBox("Vui lòng dien khach hang", vbOKOnly)
  khachhang.setfocus
  End If
  End Sub

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 26-07-17, 12:11 PM

  .....................

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 26-07-17, 12:19 PM

  Mình viết cái code này nhưng nó không hiểu 
  
  Private Sub soluongnknvl_AfterUpdate()
  
      If (soluongnknvl > Text19) Then
          Beep
          MsgBox "S? lu?ng nh?p kho không du?c l?n hon s? lu?ng don hàng", vbOKOnly, "Chú ý"
      End If
  End Sub
  
  Lúc đầu mình viết vậy , sau mình làm bằng macro nó hiểu nhưng khi convert ra vba nó cũng không hiểu  
  Mục đích của mình là nếu ô soluongnknvl > text 19 thì không cho nhập và hiện cảnh báo

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  ongke0711 > 26-07-17, 04:20 PM

  Bạn đổi lại thử.
   
  If (soluongnknvl.Value > Text19.Value) Then
          Beep
          MsgBox "S? lu?ng nh?p kho không du?c l?n hon s? lu?ng don hàng", vbOKOnly, "Chú ý"
      End If
  End Sub
  
  - Textbox phải có giá trị là number nào đó (hoặc default value=0) chứ nếu là null sẽ báo lỗi.

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  toidjtjmtoi > 27-07-17, 01:56 PM

  (26-07-17, 04:20 PM)ongke0711 Đã viết: Bạn đổi lại thử.
   
  If (soluongnknvl.Value > Text19.Value) Then
          Beep
          MsgBox "S? lu?ng nh?p kho không du?c l?n hon s? lu?ng don hàng", vbOKOnly, "Chú ý"
      End If
  End Sub
  
  - Textbox phải có giá trị là number nào đó (hoặc default value=0) chứ nếu là null sẽ báo lỗi.

  
  Được rồi . Cảm ơn bạn nhé . Còn vụ set focus bạn có biết phải làm sao không

• RE: Hỏi về việc khóa dữ liệu , khóa subform

  ongke0711 > 27-07-17, 05:12 PM

  (27-07-17, 01:56 PM)toidjtjmtoi Đã viết: ...
  Còn vụ set focus bạn có biết phải làm sao không

  
  Cái này đơn giản, tôi cứ nghĩ bạn làm được rồi. Bạn sẽ không SetFocus cho chính textbox khi có sự kiện bẫy lỗi cho nó. Bạn phải chuyến SetFocus sang Textbox khác hay command button, hay bất cứ thứ gì khác textbox đó rồi mới quay ngược SetFocus cho textbox ấy được. Lấy đoạn code trên của bạn:
  ----------------------------------------------
  Private Sub khachhang_LostFocus()
  If IsNull(khachhang) Then
  warnmesg = MsgBox("Vui lòng dien khach hang", vbOKOnly)
  textbox khác.SetFocus
  khachhang.setfocus
  End If
  End Sub
  
  ----------------------------------------------
• Bài trước Bài tiếp