Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Hỏi về việc khóa dữ liệu , khóa subform
#1
[Hình: Untitled_zpsbxggvmwu.jpg]
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
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
..... ai giúp mình vụ này với
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , maidinhdan , toidjtjmtoi
#4
(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
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
..................... 016
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
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 040 
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
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
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.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn toidjtjmtoi
#8
(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
Chữ ký của toidjtjmtoi toidjtjmtoi,gia nhập Thủ Thuật Access từ 29-06 -16.
ღღღღღTài sản của toidjtjmtoi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
(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

----------------------------------------------
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn toidjtjmtoi


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cập nhật dữ liệu vào combobox ChiMai 1 123 09-09-18, 09:34 PM
Bài mới nhất: cpucloi
  Cập nhật dữ liệu vào 2 table cùng một lúc ChiMai 1 293 05-06-18, 04:18 PM
Bài mới nhất: tranthanhan1962
  Import dữ liệu từ excel vào access ChiMai 3 422 25-05-18, 08:31 AM
Bài mới nhất: domfootwear
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 38 10,614 12-05-18, 11:46 AM
Bài mới nhất: MTNQ
  chia sẻ dữ liệu db access qua mạng LAN. tuanvu2409 5 775 02-02-18, 12:41 AM
Bài mới nhất: tranthanhan1962

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line