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

Lỗi runtime - 2165 khi ẩn menu bar

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Lỗi runtime - 2165 khi ẩn menu bar
• Lỗi runtime - 2165 khi ẩn menu bar

• Lỗi runtime - 2165 khi ẩn menu bar

  doandinhtam > 25-05-20, 07:16 PM

  Mình có tạo 1 menu bar bằng cách tạo cmd cho nút lệnh sự kiện mouse_onmove như sau:
  

  Mã:

  Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmd1.Visible = False
Me.cmd2.Visible = False
Me.cmd3.Visible = False
Me.Box1.Visible = False
End Sub

  
   và ở phần Detail của Form mình tạo event sau:
  

  Mã:

  Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmd1.Visible = False
Me.cmd2.Visible = False
Me.cmd3.Visible = False
Me.Box1.Visible = False
End Sub

  
  Nhưng khi menu hiện ra mình bấm vào cmd1 hoặc cmd bất kỳ thì sau khi đóng cmd đó nó hiện lỗi
  

  Mã:

  run-times error '2165'
you can't hide a control that has the forcus

  Mong mọi người giúp đỡ cách khắc phục ạ

• RE: Lỗi runtime - 2165 khi ẩn menu bar

  tranthanhan1962 > 25-05-20, 07:52 PM

  1/Thứ 1: Không có cái menubar nào ở đây cả, mà chỉ có 3 cái nút lệnh và 1 cái rectangle  nằm trên form.
  2/Thứ 2: Nguyên tắc chỉ được thay đổi visible 1 control khi nó không nhận tiêu điểm. Bạn bấm vào nút bất kỳ nào thì nút đó sẽ nhận tiêu điểm, sau đó bạn cho nó ẩn (thay đổi visible từ true --> false) nó không báo lỗi mới lạ.
  3/Thứ 3: Muốn xử lý cách này thì không thay đổi visible của mấy cái nút mà tạo một rectangle có màu giống màu nền form che mấy cái nút khi cần ẩn nút thì cho cái rectangle có visible =true
  Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.rectangle.Visible = True
  End Sub
  
  Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.rectangle.Visible = True
  End Sub

• RE: Lỗi runtime - 2165 khi ẩn menu bar

  doandinhtam > 25-05-20, 09:37 PM

  (25-05-20, 07:52 PM)tranthanhan1962 Đã viết: 1/Thứ 1: Không có cái menubar nào ở đây cả, mà chỉ có 3 cái nút lệnh và 1 cái rectangle  nằm trên form.
  2/Thứ 2: Nguyên tắc chỉ được thay đổi visible 1 control khi nó không nhận tiêu điểm. Bạn bấm vào nút bất kỳ nào thì nút đó sẽ nhận tiêu điểm, sau đó bạn cho nó ẩn (thay đổi visible từ true --> false) nó không báo lỗi mới lạ.
  3/Thứ 3: Muốn xử lý cách này thì không thay đổi visible của mấy cái nút mà tạo một rectangle có màu giống màu nền form che mấy cái nút khi cần ẩn nút thì cho cái rectangle có visible =true
  Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.rectangle.Visible = True
  End Sub
  
  Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.rectangle.Visible = True
  End Sub

  thanks bác. em cho đại 1 thằng cmd trong form làm setforcus và đã giải quyết được vấn đề trên
• Bài trước Bài tiếp