Cố định các cột ở subform?

[khanhmster]

Em đang tạo 1 cái subform trên form. Giờ em muốn cố định các trường này (không thay đổi được độ rộng của cột) có được không? Nếu được thì mọi người hướng dẫn em làm với nhé!

Cám ơn nhiều ạ!

[ongke0711]

Để không thay đổi được độ rộng của cột trong SubForm, cách đơn giản nhất là thiết kế nó dạng Continuous Form.
Còn nếu là dạng Datasheet thì bạn phải dùng code để can thiệp khi người dùng kéo giãn cột, nó sẽ trả về giá trị độ rộng ban đầu đã thiết lập.

[khanhmster]

Mình muốn biết biết code để xử lý phần đã tạo ở dạng Datasheet? Bạn demo giúp mình chút nhé!
Thanks a lot

[ongke0711]

Mình muốn biết biết code để xử lý phần đã tạo ở dạng Datasheet? Bạn demo giúp mình chút nhé!
Thanks a lot

Bạn tham khảo code của Leban theo link sau:
http://www.lebans.com/autocolumnwidth.htm

[mrsiro]

ms access đúng thật là quá yếu cho phần hỗ trợ thiết kế giao diện, có những thứ phải đi code bằng tay rất là cực. Chuyển qua C# thì những vấn đề này được hổ trợ tận răng, chỉ việc lo code tối ưu chức năng.

[fuusan]

Em đang tạo 1 cái subform trên form. Giờ em muốn cố định các trường này (không thay đổi được độ rộng của cột) có được không? Nếu được thì mọi người hướng dẫn em làm với nhé!

Cám ơn nhiều ạ!

Bạn thử vào phần design view => vào phần Proprety => ở ô độ rộng  cột bạn ghi độ rộng của từng cột mà bạn muốn đặt. (mình dùng bản tiếng nhật nên tên gọi có thể sai một tí)
Ví dụ : độ rộng các cột mình muốn nó hiển thị theo thứ tự 1.3cm;1cm;7.503cm;1.715cm;2.51cm thì mình dánh vào ô độ rộng y như vậy

[Cuong Servenet]

chia se cho ban 1 doan code tinh chieu cao foms ở đây mình cố định la 15 dong 

Public Sub AdjustFormHeight(ByRef frm As Form, Optional ByVal RowCnt As Integer = 15)
    Const ADJUST_WINDOW_TOP As Integer = 5
    
    frm.InsideHeight = _
          frm.Section(acHeader).height _
        + frm.Section(acFooter).height _
        + (frm.Section(acDetail).height * RowCnt)

    If frm.AutoCenter Then
        Dim down As Long
        down = frm.WindowTop - ((frm.Section(acDetail).height) / ADJUST_WINDOW_TOP * RowCnt) - (frm.Section(acHeader).height - frm.Section(acDetail).height)
        If down < 0 Then
            down = 0
        End If
        DoCmd.MoveSize frm.WindowLeft, down
    End If
End Sub