Đá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] Lấy dữ liệu từ subform qua textbox dutuan80637 2 54 21-03-17, 06:31 PM
Bài mới nhất: tranthanhan1962
  [Help] Thay đổi hiện thị trên from dữ liệu ngày tháng lấy từ query. HoangManh 10 150 16-03-17, 07:54 PM
Bài mới nhất: HoangManh
  [Help] Hàm tìm kiếm dữ liệu với hàm dayadd. HoangManh 14 363 13-03-17, 09:56 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Lọc dữ liệu từ textbox thanhtruong 15 580 11-02-17, 10:22 AM
Bài mới nhất: thanhtruong
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 11 812 23-01-17, 01:32 PM
Bài mới nhất: ckno1no

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ơ