Tùy chọn
Cần giúp đỡ về hàm IF
- Cần giúp đỡ về hàm IF
-
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
-
RE: Cần giúp đỡ về hàm IF
Noname > 07-06-12, 02:45 PM
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 MANV, nếu null thì hiện thông báo....
If IsNull(Me.matb) Then
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 -
RE: Cần giúp đỡ về hàm IF
santst > 08-06-12, 08:26 AM
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 -
RE: Cần giúp đỡ về hàm IF
santst > 08-06-12, 09:33 AM
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 !!!!