Tùy chọn
Thông báo và không cho nhập dữ liệu
- Thông báo và không cho nhập dữ liệu
-
Thông báo và không cho nhập dữ liệu
jason > 29-07-14, 11:20 AM
Chào các anh/chị ở diễn đàn !
em đang làm 1 form nhập dữ liệu, yêu cầu ở đây là em muốn chặn không cho nhập dữ liệu nhỏ hơn năm 2012 và vẫn nhập được ở những năm lớn 2012
hiện tại em chưa biết phải làm thế nào ?
Mong các anh /chị hướng dẫn giúp em
chân thành cảm ơn ! -
RE: Thông báo và không cho nhập dữ liệu
changkhoonline77 > 30-07-14, 09:26 AM
ở chỗ ngày nhập mục BeforeUpdate cho code này vào
Mã PHP:If Me.NGAYNHAP <= 2012 Then
If MsgBox("ngay nhap nho hon 2012, vui long xem lai", vbYesNo + vbQuestion, "thong bao") = vbYes Then
Me.NGAYNHAP.SetFocus
Me.NGAYNHAP = ""
End If
End If
p/s: chưa kiểm tra code -
RE: Thông báo và không cho nhập dữ liệu
jason > 30-07-14, 11:32 AM
(30-07-14, 09:26 AM)changkhoonline77 Đã viết: ở chỗ ngày nhập mục BeforeUpdate cho code này vào
Mã PHP:If Me.NGAYNHAP <= 2012 Then
If MsgBox("ngay nhap nho hon 2012, vui long xem lai", vbYesNo + vbQuestion, "thong bao") = vbYes Then
Me.NGAYNHAP.SetFocus
Me.NGAYNHAP = ""
End If
End If
p/s: chưa kiểm tra code
nếu làm cách của bác ở trên thì được cho 1 chương trình ở 1 chổ thôi. nếu sử dụng chổ khác người ta yêu cầu năm 2013 thì mình phải sữa code lại nữa ...
mày mò hôm qua tới bây giờ mình đã tìm được cách rồi .nhưng chưa hoàn chỉnh cho lắm
minh dùng hàm Dcount/Dmin sau đó đặt d/k chương trình sẽ dựa vào dữ liệu trong table vào năm đã chốt nhỏ nhất.mình nghỉ nên dùng Dmin .nhưng chưa biết định dạng hay thêm cái gì vào nữa mới hoàn chỉnh .mong các bác giúp thêm.
Mã PHP:If Me.IV & "" = "" Or Me.BL & "" = "" Or Me.Shipper & "" = "" Or Me.EmpNo & "" = "" Or Me.IDATE & "" = "" Then
MsgBox "Please check again if you have blank.", vbInformation
Else
If // DCount("BasicStockCD", "STBasicStock", "CloseYear & CloseMonth > '" & Year(IDATE) & Month(IDATE) & "'") Or _
DMin("CloseYear & CloseMonth", "STBasicStock", "CloseYear & CloseMonth > '" & Year(IDATE) & Month(IDATE) & "'")
Year(IDATE) & Month(IDATE) > Year(Now) & Month(Now) Or _
DCount("BasicStockCD", "STBasicStock", "CloseYear & CloseMonth = '" & Year(IDATE) & Month(IDATE) & "'") Then
MsgBox "You can't input GR Data. Because closed your input GR Data." & Chr(13) & Chr(10) & _
"Please inform Your Manager Or IS Team.", vbInformation
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "SQInFac_Add", , acEdit
[Forms]![SFInFac].[IV] = Me.IV
[Forms]![SFInFac].[List].Requery
DoCmd.Close acForm, "SFInFac_Add"
DoCmd.SetWarnings True
End If
End If
cảm ơn bác vì giúp đỡ -
RE: Thông báo và không cho nhập dữ liệu
changkhoonline77 > 30-07-14, 10:10 PM
Nếu bạn muốn thay đổi năm thì:
tạo 1 table tblTHOIGIAN với 1 field NAM và để vào năm bạn muốn, 1 filed ID
Mã PHP:If Me.NGAYNHAP <= ("[NAM]","[tblTHOIGIAN]","[ID]=1") Then
If MsgBox("ngay nhap nho hon 2012, vui long xem lai", vbYesNo + vbQuestion, "thong bao") = vbYes Then
Me.NGAYNHAP.SetFocus
Me.NGAYNHAP = ""
End If
End If
Thông báo thì bạn nên làm thông báo tiếng việt MsgBoxUni -
RE: Thông báo và không cho nhập dữ liệu
jason > 02-08-14, 04:56 PM
Cảm ơn bác nhiều , mình sẽ làm thử
chúc bác luôn khỏe