• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi Block if withou end if

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Macro
  • [Help] Lỗi Block if withou end if
• Lỗi Block if withou end if

• Lỗi Block if withou end if

  bbqn > 16-08-12, 05:18 PM

  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ới

• RE: Lỗi Block if withou end if

  jetly1988 > 16-08-12, 06:02 PM

  (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ới

  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

• RE: Lỗi Block if withou end if

  bbqn > 01-09-12, 03:17 PM

  thank pro
• Bài trước Bài tiếp