Giờ la lúc tự nghiên cứu tẹo Văn nhé. Thử xem sao...
Cứ chỗ nào có cái font name thì nghiên cứu.
Nếu Văn muốn textbox một font khác thì cần thêm một lệnh if nữa...
Thử đi xem nào. Tớ cũng từng học theo cách ý.
Ngọc
Bây giờ phân tích bài một chút nhé...
Form/Report có các điều khiển (control)
Nếu muốn truy cập vào các điều khiển của form/report thì dùng Forms([Tênform]).Controls/Reports([Tên report]).Controls
Nói khác hơn Form/Report là một đối tượng có các đối tượng con - cái này người ta hay gọi là Collection (tập hợp) đối tượng không cùng kiểu.
Điều khiển thì có nhiều loại khác nhau. Muốn biết nói chung có các loại nào thì ta có thể dùng từ khóa TypeOf gõ thêm dấu cách trong màn hình soạn thảo VBA (cách củ chuối nhất).
(**) Toàn bộ kiểu các điều khiển của Access được định nghĩa trong Danh mục hàm AcControlType. Bạn chỉ cần nhấn F2 tại màn hình soạn thảo, gõ vào chữ AcControlType để tìm là thấy danh mục các kiểu điều khiển ở đó, nhấn vào một cái ví dụ acTextBox, bạm sẽ thấy nó hiện ở vùng định nghĩa cú pháp Const acTextBox = 109 (&H6D). Nói khác hơn, loại điều khiển TextBox trong Acess được quy định là hằng số có giá trị 109 (long)
Sơ sơ ta thấy danh sách một số như
Giờ tôi công khai vài điều khiển quan trọng như;
TextBox, CommandButton, Lable, ComboBox, ListBox, Frame, CheckBox, RadioButton ...vv
Có 2 cách kiểm tra loại điểu khiển
+ If TypeOf [Đối tượng] is TextBox = Nếu loại của đối tượng là TextBox.
Cách này chỉ dùng khi ta muốn trực tiếp truy cập đối tượng texbox
+ If [Đối tượng].Type=109 (xem chú thích ** ở trên).
Vậy túm lại, muốn biết quy định về điều khiển loại gì bạn có thể dùng cách như trong chú thích ở trên.
Còn nếu muốn biết ngay trong form của mình nó ra sao, bạn có thể dùng đoạn code sau.
Mã:
Sub PrintObjectType(frmObject as object)
Dim myObj as control
For each myObj in frmObject.Controls
Debug.print myObj.Name + vbTab + "Type: " + myObj.Type
Next
End Sub
Đặt cái này trong Module và bạn có thể gọi bất kỳ từ form hay report nào thông qua một nút bấm bằng cách gọi PrintObjectType Me
Hãy lưu ý, lệnh Debug.Print rất có giá trị đối với dân lập trình. Nó sẽ hiển thị kết quả trên Cửa sổ Inmmediate ngay dưới phần soạn thảo code. Nếu không hiển thị, nhấn Ctrl+G nhé.
Các bạn sẽ cần sử dụng màn hình Immediate Window này nhiều đấy. Ví dụ chỉ cần gõ Debug.print CurrentProject.Path nhấn Enter là bạn biết Ứng dụng của bạn ở thư mục nào.
Quay lại câu hỏi của bạn. Hãy coi là bài tập nhé - mai tớ giả nhời. Giờ đang viết trên ô tô nên không viết dài được...
Chúc bạn làm bài tập tốt.