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

Giúp sửa lỗi Code -form luôn nhảy đến record cuối

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Giúp sửa lỗi Code -form luôn nhảy đến record cuối
• Giúp sửa lỗi Code -form luôn nhảy đến record cuối

• Giúp sửa lỗi Code -form luôn nhảy đến record cuối

  kaiya92 > 23-04-12, 01:02 AM

  
  
  Cụ thể lỗi của em nó là: mặc dù ở mẩu tin đầu tiên nhưng nó vẫn báo là không thế di chuyền được vì là mẩu tin cuối
  có nghĩa là CurrentRecord = Recordset.RecordCout Nhưng em không hiểu là tại sao
  
  
  Đây là code của nút bấm Next ạ Mọi người xem hộ xem với
  
  À thêm một lỗi nữa là Sau khi load Form main khoảng chừng 20 giây đầu tiên thì Form chứ bị nháy nháy rất khó chịu. Mọi người có ai bị lỗi giống em không ạ. Hi hi. Em xin cảm ơn trước ạ
  
  
  

  Mã PHP:

  Private Sub next_bt_Click()
On Error GoTo Loi
If CurrentRecord = Recordset.RecordCount Then
MsgBox "Day la mau tin cuoi, khong the di chuyen tiep", , "Thong bao"
Else
Me.username.enabled = False
Me.pass.enabled = False
Me.group.enabled = False
Me.enabled.enabled = False
Me.change_data.Value = False
DoCmd.GoToRecord , , acNext
End If
Me.save_bt.Visible = False
Me.check_bt.Visible = False
Me.undo_bt.Visible = False
thoat_sub:
Exit Sub
Loi:
MsgBox "Co loi trong qua trinh di chuyen, ban thu lai sau nhe! ", , "Canh bao"
Resume thoat_sub:

End Sub 


• RE: Giúp em đoạn code này với, Không hiểu lỗi ở đâu

  hoanglonglangtu > 23-04-12, 09:14 AM

  Mình test thử code bạn vẫn chạy ok. Còn Form bị nhấp nháy sao bạn không up file lên nhỉ, mọi ng sẽ giúp bạn rỏ ràng và đúng ý của bạn hơn.
  Thân

• RE: Giúp sửa lỗi Code -form luôn nhảy đến record cuối

  ledangvan > 23-04-12, 10:25 AM

  (23-04-12, 01:02 AM)kaiya92 Đã viết:
  
  Cụ thể lỗi của em nó là: mặc dù ở mẩu tin đầu tiên nhưng nó vẫn báo là không thế di chuyền được vì là mẩu tin cuối
  có nghĩa là CurrentRecord = Recordset.RecordCout Nhưng em không hiểu là tại sao
  
  
  Đây là code của nút bấm Next ạ Mọi người xem hộ xem với
  
  À thêm một lỗi nữa là Sau khi load Form main khoảng chừng 20 giây đầu tiên thì Form chứ bị nháy nháy rất khó chịu. Mọi người có ai bị lỗi giống em không ạ. Hi hi. Em xin cảm ơn trước ạ
  
  
  

  Mã PHP:

  Private Sub next_bt_Click()
On Error GoTo Loi
If CurrentRecord = Recordset.RecordCount Then
MsgBox "Day la mau tin cuoi, khong the di chuyen tiep", , "Thong bao"
Else
Me.username.enabled = False
Me.pass.enabled = False
Me.group.enabled = False
Me.enabled.enabled = False
Me.change_data.Value = False
DoCmd.GoToRecord , , acNext
End If
Me.save_bt.Visible = False
Me.check_bt.Visible = False
Me.undo_bt.Visible = False
thoat_sub:
Exit Sub
Loi:
MsgBox "Co loi trong qua trinh di chuyen, ban thu lai sau nhe! ", , "Canh bao"
Resume thoat_sub:

End Sub 


  
  Vấn đề của bạn : Bạn thử xem trong thủ tục Form Open hay Form Load có dòng này không : DoCmd.GoToRecord , "", acLast
  Vì nếu có tức là Form của bạn đang ở bản ghi cuối cùng

• RE: Giúp sửa lỗi Code -form luôn nhảy đến record cuối

  kaiya92 > 23-04-12, 12:08 PM

  (23-04-12, 10:25 AM)ledangvan Đã viết: Vấn đề của bạn : Bạn thử xem trong thủ tục Form Open hay Form Load có dòng này không : DoCmd.GoToRecord , "", acLast
  Vì nếu có tức là Form của bạn đang ở bản ghi cuối cùng

  Cái này thì em đảm bảo là không có luôn
  với lại ở ô textbox cũng có hiển thị Record hiện tại là 1/4 như vậy là mẩu tin đó vẫn là mẩu tin đầu tiên chứ không phải cuối cùng. Nểu như trong Form Open hay Form Load có thủ tục di chuyển thì em nghĩ là Record phải là 4/4
  
  Đây là bài của em ạ
  
  Acc Admin: Administrator
  Pass: 123456

• RE: Giúp sửa lỗi Code -form luôn nhảy đến record cuối

  kaiya92 > 23-04-12, 12:19 PM

  Hi Hi, Cảm ơn mọi người. Em sửa được rồi. Em thay điều kiện
  if CurrentRecord = RecordSet.RecordCount then
  Msgbox "Day la may tin cuoi, khong the di chuyen tiep"
  thành
  if CurrentRecord = Dcount("*","users") then
  Msgbox "Day là mau tin cuoi, khong the di chuyen tiep"
• Bài trước Bài tiếp