Cần giúp đỡ về hàm IF
santst > 07-06-12, 10:39 AM
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
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
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