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

text box chuột không lăn được

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] text box chuột không lăn được
• text box chuột không lăn được

• text box chuột không lăn được

  thucgia > 12-10-15, 12:59 AM

  Thông thường trong các control thì khi lăn chuột, nội dung cũng lăn theo, nhưng với te xt bo x thì khi lăn chuột nó vẫn cứ nằm lỳ. Có bạn nào biết enable chức năng này lên làm ơn giúp mình với.!!!

• RE: text box chuột không lăn được

  tranthanhan1962 > 12-10-15, 07:30 AM

  (12-10-15, 12:59 AM)thucgia Đã viết: Thông thường trong các control thì khi lăn chuột, nội dung cũng lăn theo, nhưng với te xt bo x thì khi lăn chuột nó vẫn cứ nằm lỳ. Có bạn nào biết enable chức năng này lên làm ơn giúp mình với.!!!

  Không phải là "các control thì khi lăn chuột, nội dung cũng lăn theo", mà trên form có thuộc tính Cycle, Khi Cycle = All Records (Thông thường giá trị All Records này default). Khi lăn chuột (mouse wheel) các record sẽ được dịch chuyển, khi các record dịch chuyển các giá trị control cũng thay đổi theo đúng như giá trị các field của record đó. Ví vậy nếu như bạn nói là nằm lỳ sẽ rơi vào các trường hợp sau:
  1/ Tất cả các control không thay đổi giá trị khi lặn chuột: Cycle = Current Record, xử lý: Cycle = All Records.
  2/ Chỉ có một vài  control không thay đổi giá trị: a/ Giá trị của trường các record mà control source của control đó giống nhau. b/ control source của control đó không phải là một trường của record source của form mà là một value, một function (nếu bạn sử dụng hàm Dlookup trên Continuous Forms nó sẽ chỉ thể hiện giá trị của hàm này của record đầu tiên). Xử lý: Thay đổi control source là một trường của record source.

• RE: text box chuột không lăn được

  thucgia > 12-10-15, 02:00 PM

  (12-10-15, 07:30 AM)tranthanhan1962 Đã viết:

  (12-10-15, 12:59 AM)thucgia Đã viết: Thông thường trong các control thì khi lăn chuột, nội dung cũng lăn theo, nhưng với te xt bo x thì khi lăn chuột nó vẫn cứ nằm lỳ. Có bạn nào biết enable chức năng này lên làm ơn giúp mình với.!!!

  Không phải là "các control thì khi lăn chuột, nội dung cũng lăn theo", mà trên form có thuộc tính Cycle, Khi Cycle = All Records (Thông thường giá trị All Records này default). Khi lăn chuột (mouse wheel) các record sẽ được dịch chuyển, khi các record dịch chuyển các giá trị control cũng thay đổi theo đúng như giá trị các field của record đó. Ví vậy nếu như bạn nói là nằm lỳ sẽ rơi vào các trường hợp sau:
  1/ Tất cả các control không thay đổi giá trị khi lặn chuột: Cycle = Current Record, xử lý: Cycle = All Records.
  2/ Chỉ có một vài  control không thay đổi giá trị: a/ Giá trị của trường các record mà control source của control đó giống nhau. b/ control source của control đó không phải là một trường của record source của form mà là một value, một function (nếu bạn sử dụng hàm Dlookup trên Continuous Forms nó sẽ chỉ thể hiện giá trị của hàm này của record đầu tiên). Xử lý: Thay đổi control source là một trường của record source.

  
  cám ơn bạn đã trả lời, nhưng vấn đề của control text box là thanh scrollbar của nó không chịu chạy khi mouse wheel mặc dù văn bản thì tràn khung!!!, vả lại mình xài nó ở dạng unbound. có cách nào xử lý không anh?

• RE: text box chuột không lăn được

  tranthanhan1962 > 12-10-15, 02:36 PM

  (12-10-15, 02:00 PM)thucgia Đã viết: cám ơn bạn đã trả lời, nhưng vấn đề của control text box là thanh scrollbar của nó không chịu chạy khi mouse wheel mặc dù văn bản thì tràn khung!!!, vả lại mình xài nó ở dạng unbound. có cách nào xử lý không anh?

  OK! Hiểu rồi! Chắc là Khi thiết kế độ cao của textbox bạn chỉ có một dòng. Khi bạn gõ chữ cứ chạy qua bên trái mà không chịu xuống dòng chứ gì? Có 2 cách để textbox xuống dòng:
  1/ Độ cao khung textbox chứa 2 dòng trở lên. Nó sẽ tự động xuống dòng.
  2/ Xuống dòng bằng phím Ctrl + Enter.
  Nếu độ cao textbox chỉ chứa đủ một dòng thì nó không chịu tự động xuống dòng. Thiết đặt scroll bar không kéo dòng textbox mà chỉ mà chỉ kéo dòng RichTextBox.

• RE: text box chuột không lăn được

  MTNQ > 12-10-15, 06:00 PM

  Mã:

  Option Compare Database
Dim blnFocus As Boolean

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  If blnFocus = True Then
      If Count < 0 Then
          SendKeys "{up 2}"
      Else
          SendKeys "{down 2}"
      End If
  End If
End Sub

Private Sub Text0_GotFocus()
   blnFocus = True
End Sub

Private Sub Text0_LostFocus()
   blnFocus = False
End Sub

• RE: text box chuột không lăn được

  tranthanhan1962 > 13-10-15, 12:09 AM

  (12-10-15, 06:00 PM)MatTroiNguQuen Đã viết:

  Mã:

  Option Compare Database
Dim blnFocus As Boolean

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  If blnFocus = True Then
      If Count < 0 Then
          SendKeys "{up 2}"
      Else
          SendKeys "{down 2}"
      End If
  End If
End Sub

Private Sub Text0_GotFocus()
   blnFocus = True
End Sub

Private Sub Text0_LostFocus()
   blnFocus = False
End Sub

  
  Trong access 2007 trở lên textbox được hỗ trợ như là một RichTextBox. Nên code này chỉ chạy được trên access từ version 2007 trở lên. Khi chạy code trên access  2003 sẽ bị lỗi 70 (Permission denied)
  
  Demo

• RE: text box chuột không lăn được

  MTNQ > 13-10-15, 11:47 AM

  (13-10-15, 12:09 AM)tranthanhan1962 Đã viết: Trong access 2007 trở lên textbox được hỗ trợ như là một RichTextBox. Nên code này chỉ chạy được trên access từ version 2007 trở lên. Khi chạy code trên access  2003 sẽ bị lỗi 70 (Permission denied)
  
  Demo

  
  Code này không liên quan đến RichText bác ạ
  
  Test lan chuot tren textBox.mdb

• RE: text box chuột không lăn được

  tranthanhan1962 > 13-10-15, 02:35 PM

  (13-10-15, 11:47 AM)MatTroiNguQuen Đã viết: Code này không liên quan đến RichText bác ạ
  
  Test lan chuot tren textBox.mdb

  
  Mình đã test thử. Nó báo lỗi trên access 2003 còn trên access 2013 thì chạy ngon lành. permission denied (cho phép từ chối)
  
  
  Microsoft đã giả thích trong https://msdn.microsoft.com/EN-US/library...22556.aspx. TextBox [sau version 2003] có thêm thuộc tính text format (cho dù bạn thiết kế TextBox trong access 2003 khi chuyển sang chạy trên nền 2007 hoặc cao hơn cũng được hỗ trợ, chỉ khi chạy trên nền access 2003 mới mất hỗ trợ này): (Gets or sets whether rich text is displayed in the specified text box. (Nhận được hoặc thiết đặt được dữ liệu rich text được hiển thị trong TextBox  tiêu chuẩn.)

• RE: text box chuột không lăn được

  MTNQ > 13-10-15, 03:15 PM

  Lạ nhỉ ?
  MTNQ cũng đang chạy AC2003 mà

• RE: text box chuột không lăn được

  MTNQ > 13-10-15, 06:38 PM

  (13-10-15, 02:35 PM)tranthanhan1962 Đã viết: Mình đã test thử. Nó báo lỗi trên access 2003 còn trên access 2013 thì chạy ngon lành. permission denied (cho phép từ chối)

  
  MTNQ đã chạy thử trên 4 máy khác nhau  (Access2003) trên WinXP và Win7 đều không thấy lỗi như bác nói
  Chắc phải chờ có bạn nào khác test thử xem sao 
• Bài trước Bài tiếp