Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Thông báo và không cho nhập dữ liệu
#1
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 !
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
ở 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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#3
(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 đỡ
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#5
Cảm ơn bác nhiều , mình sẽ làm thử
chúc bác luôn khỏe happy
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 199 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 139 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,323 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82
  Click đúp chuột hiện form và cập nhật dữ liệu theo số phiếu Ranju 1 126 05-10-16, 11:02 AM
Bài mới nhất: lmthu

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ơ