Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cân chỉnh cột listbox của access như cột của sheet trên excel
#1
Mặc định các cột của listbox trong access là cố định, vì vậy mỗi khi thiết kế listbox chúng ta phải canh tới,  canh lui và điều chỉnh column widths để làm sao khi hiển thị không khuất mất chữ. Thực là mệt mõi. Nhớ lại sao khi làm excel sao mà dễ dàng thế. Chỉ cần đưa trỏ chuột vào line phân cách ở đầu cột là có thể co dãn độ rộng cột tùy ý. Demo dưới dây cho phép bạn xử lý điều này.
Trên form ThayDoiDoRongCotBangTay chỉ cần đưa trỏ chuột vào line phân cách các cột ở column heads. Khi thấy trỏ chuột biến thành mũi tên 2 đầu, đè chuột trái. Chúng ta có thể kéo và làm thay đổi độ rộng cột của listbox như excel.
Trên form ThaydoidorongcotTudong. Chúng ta có thể thay đổi độ rộng cột: canh vừa độ rộng các ký tự trên cột hay canh đều các khoảng cột.
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 ongke0711 , cpucloi , DoquangLam
#2
(03-10-15, 12:39 AM)tranthanhan1962 Đã viết: Mặc định các cột của listbox trong access là cố định, vì vậy mỗi khi thiết kế listbox chúng ta phải canh tới,  canh lui và điều chỉnh column widths để làm sao khi hiển thị không khuất mất chữ. Thực là mệt mõi. Nhớ lại sao khi làm excel sao mà dễ dàng thế. Chỉ cần đưa trỏ chuột vào line phân cách ở đầu cột là có thể co dãn độ rộng cột tùy ý. Demo dưới dây cho phép bạn xử lý điều này.
Trên form ThayDoiDoRongCotBangTay chỉ cần đưa trỏ chuột vào line phân cách các cột ở column heads. Khi thấy trỏ chuột biến thành mũi tên 2 đầu, đè chuột trái. Chúng ta có thể kéo và làm thay đổi độ rộng cột của listbox như excel.
Trên form ThaydoidorongcotTudong. Chúng ta có thể thay đổi độ rộng cột: canh vừa độ rộng các ký tự trên cột hay canh đều các khoảng cột.
Demo

ý anh là thế nào???
colum width thì "1cm;2cm...."
còn list width thì bằng tổng (1+2=3) 3cm

 là xong chớ sao anh

Nhưng có một điều mình thấy lạ là nếu chỉ bằng code thì có lỗi

ví dụ trong open form : combo_GiDo.listwidth="3 cm" thì nó báo lỗi bắt buột phải là number mới chịu

còn nếu set combo_GiDo.listwidth=3 thì nó không ép phê gì cả thế mới ghê

Anh đã gặp trường hợp này chưa????
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
#3
(03-10-15, 10:35 AM)thucgia Đã viết: ý anh là thế nào???
colum width thì "1cm;2cm...."
còn list width thì bằng tổng (1+2=3) 3cm

colum width trong thiết kế muốn thiết đặt thế nào cũng được. Đây là thiết đặt ban đầu khi open form. "1cm;2cm;3cm" là do mình tiện tay gõ vào. "1cm;1cm;1cm", "2cm;2cm;2cm" cũng chẳng sao. quan trọng là nhìn thấy đủ các cột để có cái mà kéo. 

(03-10-15, 10:35 AM)thucgia Đã viết: Nhưng có một điều mình thấy lạ là nếu chỉ bằng code thì có lỗi

ví dụ trong open form : combo_GiDo.listwidth="3 cm" thì nó báo lỗi bắt buột phải là number mới chịu

còn nếu set combo_GiDo.listwidth=3 thì nó không ép phê gì cả thế mới ghê

Anh đã gặp trường hợp này chưa????

Trong code mặc định đơn vị số đo độ dài là twips (không được đưa đơn vị vào code). Bạn đưa cm vào nó không chịu là phải rồi.

1 twips = 1/1440 inch, combo_GiDo.listwidth=3 có nghĩa là tổng độ rộng của các cột = 3 twips = 0,052916667 mm. Bạn phải dùng kính lúp mới thấy
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 thucgia
#4
(03-10-15, 02:39 PM)tranthanhan1962 Đã viết:
(03-10-15, 10:35 AM)thucgia Đã viết: ý anh là thế nào???
colum width thì "1cm;2cm...."
còn list width thì bằng tổng (1+2=3) 3cm

colum width trong thiết kế muốn thiết đặt thế nào cũng được. Đây là thiết đặt ban đầu khi open form. "1cm;2cm;3cm" là do mình tiện tay gõ vào. "1cm;1cm;1cm", "2cm;2cm;2cm" cũng chẳng sao. quan trọng là nhìn thấy đủ các cột để có cái mà kéo. 

(03-10-15, 10:35 AM)thucgia Đã viết: Nhưng có một điều mình thấy lạ là nếu chỉ bằng code thì có lỗi

ví dụ trong open form : combo_GiDo.listwidth="3 cm" thì nó báo lỗi bắt buột phải là number mới chịu

còn nếu set combo_GiDo.listwidth=3 thì nó không ép phê gì cả thế mới ghê

Anh đã gặp trường hợp này chưa????

Trong code mặc định đơn vị số đo độ dài là twips (không được đưa đơn vị vào code). Bạn đưa cm vào nó không chịu là phải rồi.

1 twips = 1/1440 inch, combo_GiDo.listwidth=3 có nghĩa là tổng độ rộng của các cột = 3 twips = 0,052916667 mm. Bạn phải dùng kính lúp mới thấy

Mã:
Private Sub Form_Load()
   
  Call LoadRibbons
  Me.RibbonName = "change option"
   
  Dim rs As ADODB.Recordset
  Set rs = LayDS_lop
  Set Me.Combo2.Recordset = rs
  With Me.Combo2
       .RowSourceType = "Table/Query"
       .BoundColumn = 1
       .ColumnCount = 2
       .ColumnWidths = "1cm;3cm"
       .ListWidth = 4 / 0.001763889
       ' 3 twips = 0,0052916667 cm => 1 twips=0.001763889 cm
       .ListRows = 20
       .ColumnHeads = True
  End With
  rs.Close
  Set rs = Nothing
  con.Close
End Sub

very and very thk

Quả là :
Đi mòn gày sắt không tìm đặng
Xảy gặp Anh Trần chẳng tốn công.!!! 014
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 tranthanhan1962


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lỗi check và uncheck trên checkbox tieu_ngao 5 188 09-06-17, 02:14 PM
Bài mới nhất: tieu_ngao
  Hướng Dẫn Tạo số phiếu thu trên form cawboy 10 471 31-05-17, 08:29 AM
Bài mới nhất: cawboy
  Code cho nút lệnh Mới trên Form feeling 3 227 10-05-17, 04:38 PM
Bài mới nhất: tranthanhan1962
  Form đăng nhập trong access. riolo05 11 7,725 09-05-17, 12:47 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Lỗi khi tạo command button trên form. GhostRider 2 163 03-05-17, 10:44 AM
Bài mới nhất: GhostRider

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ơ