Đá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
  Thông báo dữ liệu đã tồn tại thanhtruong 15 737 22-07-17, 12:17 AM
Bài mới nhất: ongke0711
  Xin hàm lấy thông tin hệ thống ledangvan 1 90 14-07-17, 11:15 PM
Bài mới nhất: maidinhdan
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 199 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 182 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 122 22-06-17, 11:00 PM
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ơ