Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Cần giúp đỡ về hàm IF
#1
Question 
xin các pro giúp mình code này:

Trích dẫn:Private Sub Command41_Click()
If IsNull(Me.NGAYDD) Then
MsgBox " Xin nhap ngay dieu dong ", vbOKOnly, "Bao loi"
Cancel = True
Me.NGAYDD.SetFocus
Else
If Me.NGAYDD < Forms![dieudong]![nhantb1].Form![ngaynhan] Then
MsgBox " ngay dieu dong phai lon hon ngay nhan thiet bi" & vbCr & "ngay nhan thiet bi la : " & Forms![dieudong]![nhantb1].Form![ngaynhan], vbOKOnly, "Bao loi"
Cancel = True
Me.NGAYDD.SetFocus
else
If IsNull(Me.MANV) Then
MsgBox "Ban chua chon nguoi su dung thiet bi ", vbOKOnly, "Bao loi"
Cancel = True
Me.MANV.SetFocus
Else
If IsNull(Me.matb) Then
MsgBox "Ban chua chon thiet bi dieu dong ", vbOKOnly, "Bao loi"
Cancel = True
Me.matb.SetFocus
Else
If MsgBox ("Ban co muon luu thong tin? ", vbYesNo, "Thong bao") = vbYes Then
On Error GoTo Err_Command41_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command41_Click:
Exit Sub
Err_Command41_Click:
MsgBox Err.Description
Resume Exit_Command41_Click
Else
Cancel = True
End If
End If
End If
End If
end if
End Sub

Xin giải thích: mình đang tạo 1 form gồm 1 textbox : ngaydd, 2 combo box: MANV, matb và 1 subform gồm matb và ngaynhan, subform dùng để kiểm tra cùng 1 matb thì ngaydd không được nhỏ hơn ngaynhan
mình muốn tạo 1 nút save có thể kiểm tra các giá trị trên ko được trống, và ngaydd không được nhỏ hơn ngaynhan
VD: 1. nếu ngaydd null thì hiện thông báo : bạn chưa nhập ngày điều động
2. nếu ngaydd notnull thì kiểm tra xem ngaydd có nhỏ hơn ngaynhan ko,nếu nhỏ hơn thì hiện thông báo ....
3. nếu ngaydd notnull và >= ngaynhan thi kiểm tra matb co null ko,nếu null thì hiện thông báo...
4. nếu matb notnull thì kiểm tra MANV, nếu null thì hiện thông báo....
5. nếu tất cả đều thỏa đk thì hiện thông báo :bạn có muốn lưu dữ liệu không ? nếu chọn yes thì lưu, no là không
6. hết rồi hjhj,chóng mặt chưa Cry_smile
và tình hình là với đoạn code trên thì nó chỉ kt đc mục 1 , 2 và 5 còn 3 4 thì không kt đc hichic 47_47
mình mới học làm access nên rất gà vụ code này, mong các pro "giơ cao đánh khẽ" chỉ dạy cho mình,


- Xin chân thành cám ơn mọi người đã dành thời gian đọc bài viết này
Chữ ký của santst Xin chào, mình là santst, Tham gia http://thuthuataccess.com/forum từ ngày 01-01 -12.
Reply
Những người đã cảm ơn
#2
Có vẻ bước thứ 3 và 4 của bạn đang ngược nhau. Bạn nên trình bày kèm theo chú thích trong code để mọi người dễ theo dõi. Tương tự thế này:
Mã PHP:
'3. nếu ngaydd notnull và >= ngaynhan thi kiểm tra matb co null ko,nếu null thì hiện thông báo...
        If IsNull(Me.MANV) Then
            MsgBox "Ban chua chon nguoi su dung thiet bi ", vbOKOnly, "Bao loi"
            Cancel = True
            Me.MANV.SetFocus
        Else
            '
4. nếu matb notnull thì kiểm tra MANVnếu null thì hiện thông báo....
            If 
IsNull(Me.matbThen
                MsgBox 
"Ban chua chon thiet bi dieu dong "vbOKOnly"Bao loi"
                
Cancel True
                Me
.matb.SetFocus
            
Else 

Về code thì không sai gì cả, tuy nhiên bạn nên rào thêm trường hợp ô đó bằng "", đại loại
Mã:
If IsNull(Me.matb) or Me.matb="" Then
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , santst
#3
(07-06-12, 02:45 PM)Noname Đã viết: Về code thì không sai gì cả, tuy nhiên bạn nên rào thêm trường hợp ô đó bằng "", đại loại
Mã:
If IsNull(Me.matb) or Me.matb="" Then

Trên chuẩn
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn santst
#4
Thumbs Up 
wow được NoName trả lời , hjhjhj, thank 2 bạn đã quan tâm, mình sẽ thử xem sao
Cám Ơn đã giúp đỡ

PS: Thank NoName 1 lần nữa vì trong quá trình làm chương trình này mình đã đọc rất nhiều bài viết của NoName, và từ đó học hỏi và rút ra rất nhiều kinh nghiệm cho bản thân. Xin chân thành cám ơn bạn
Chữ ký của santst Xin chào, mình là santst, Tham gia http://thuthuataccess.com/forum từ ngày 01-01 -12.
Reply
Những người đã cảm ơn
#5
hic, ko đc rồi NoName ơi, vẫn không kiểm tra được, minh xin gửi bản demo để bạn xem giúp mình nha

http://www.mediafire.com/?2qc81tnp8c0nhjt
thank !!!!
Chữ ký của santst Xin chào, mình là santst, Tham gia http://thuthuataccess.com/forum từ ngày 01-01 -12.
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
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 635 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  Xin giúp đỡ về VBA Access ! vocan 12 664 11-07-16, 10:45 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Giúp em tính tồn cuối khi có thêm dữ liệu trả lại dao cụ thaoxinh 2 261 07-01-16, 05:16 PM
Bài mới nhất: ongke0711
Music [Help] Giúp em tính tồn kho với zangquyet 4 281 07-01-16, 12:11 PM
Bài mới nhất: Yến
  [Help] Giúp đỡ hàm if access 2003 chigonvh 4 672 30-09-15, 12:02 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ơ