Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] text box chuột không lăn được
#1
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.!!!
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(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.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Noname
#3
(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?
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(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.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
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
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn tranthanhan1962
#6
(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)
[Hình: WMNaTuq.png]
Demo
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(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)
[Hình: WMNaTuq.png]
Demo

Code này không liên quan đến RichText bác ạ

Test lan chuot tren textBox.mdb
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn tranthanhan1962
#8
(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)
[Hình: ZyFE9TR.png]
[Hình: LDbcY5l.png]
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.)
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#9
Lạ nhỉ ?
MTNQ cũng đang chạy AC2003 mà 016
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#10
(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  027
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 88 29-11-16, 04:22 PM
Bài mới nhất: feeling
  [Hỏi] chương trình đơn giản để so sánh chuỗi text kanmai07 4 320 28-09-16, 06:05 PM
Bài mới nhất: kanmai07
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 133 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Lỗi] Không import được hết dữ liệu từ Excel và Access huedhcs 2 160 03-07-16, 11:27 PM
Bài mới nhất: zinzin8x

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ơ