Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Lỗi Block if withou end if
#1
Em có đoạn lệnh sau:
Private Sub cmdghi_Click()
If IsNull(MAHD) = True Then
MsgBox "Số hợp đồng không để trống"
MAHD.SetFocus
ElseIf DCount("MAHD", "tblhopdong", "MAHD='" & MAHD & "") = 1 Then
MsgBox "Số hợp đồng bị trùng"
TENHD.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End Sub
Khi em chạy nó báo lỗi "Block if withou end if"
Các Pro giúp em với040
Chữ ký của bbqn Xin chào, mình là bbqn, Tham gia http://thuthuataccess.com/forum từ ngày 16-08 -12.
Reply
Những người đã cảm ơn
#2
(16-08-12, 05:18 PM)bbqn Đã viết: Em có đoạn lệnh sau:
Private Sub cmdghi_Click()
If IsNull(MAHD) = True Then
MsgBox "Số hợp đồng không để trống"
MAHD.SetFocus
ElseIf DCount("MAHD", "tblhopdong", "MAHD='" & MAHD & "") = 1 Then
MsgBox "Số hợp đồng bị trùng"
TENHD.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End Sub
Khi em chạy nó báo lỗi "Block if withou end if"
Các Pro giúp em với040
Bạn sửa lại như thế này
Private Sub cmdghi_Click()
If IsNull(MAHD) = True Then
MsgBox "Số hợp đồng không để trống"
MAHD.SetFocus
Else
If DCount("MAHD", "tblhopdong", "MAHD='" & MAHD & "") = 1 Then
MsgBox "Số hợp đồng bị trùng"
TENHD.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
endif
endif
End Sub

Thường sau lệnh msgbox lệnh setfocus không có tác dụng
Chữ ký của jetly1988 Xin chào, mình là jetly1988, Tham gia http://thuthuataccess.com/forum từ ngày 08-09 -11.
Reply
Những người đã cảm ơn Noname
#3
thank pro
Chữ ký của bbqn Xin chào, mình là bbqn, Tham gia http://thuthuataccess.com/forum từ ngày 16-08 -12.
Reply
Những người đã cảm ơn


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ơ