" Câu lệnh xuống dòng trong VBA "

[duong quang]

Mình đang làm một bài tập liên quan đến access, bài tập của mình là nhập các tên và số điểm của mỗi người khi nhấn " nhập " !
Mình muốn khi nhấn nhập sẽ hiện ra trên hộp text box có 2 dòng riêng biệt:
- Một dòng ghi họ tên
- Còn một dòng ghi số điểm
Mọi người chỉ dùm mình lệnh xuống dòng này với !
Thanks

 

[Nguyễn Duy Tuân]

Mình đang làm một bài tập liên quan đến access, bài tập của mình là nhập các tên và số điểm của mỗi người khi nhấn " nhập " !
Mình muốn khi nhấn nhập sẽ hiện ra trên hộp text box có 2 dòng riêng biệt:
- Một dòng ghi họ tên
- Còn một dòng ghi số điểm
Mọi người chỉ dùm mình lệnh xuống dòng này với !
Thanks

Bạn phải làm 2 TextBox chứ, giống các PM họ vẫn làm đó. Còn nếu là một cụm văn bản nhập trong TextBox thì bạn có thể đặt thuộc tính MultLine = True.

 

[ptm0412]

Tuânơi, bài tập mà. Mấy ông thầy bà thầy bi giờ cho bài tập chả biết ứng dụng vào cái gì đâu.
Như bài tập bắt disable nút close của form (mà phải trông thấy nút close nhé), trong khi công cụ access có sẵn, chỉ cần set property CloseButton từ Yes thành No là được. Nhưng set như vậy là mất tiêu nút Close, không đạt yêu cầu!
Đằng nào thì cũng là không cho dùng nút Close để đóng form, mà phải vậy đấy. Mình làm không được luôn, đi thi gặp câu đó là rớt chắc.

Nhưng câu trên bài 1 thì làm được vớt vát:

Private Sub Command1_Click()
Text0 = hoten & vbNewLine & sodiem
End Sub

Nhưng chả biết hiện ra như vậy để làm gì!

 

[levanduyet]

Như bài tập bắt disable nút close của form (mà phải trông thấy nút close nhé)

Anh ơi, cái này đúng chứ có gì đâu anh ! (Em không nói về mục đích của đề bài)

Lê Văn Duyệt

 

[ptm0412]

Anh ơi, cái này đúng chứ có gì đâu anh

Thì đúng, nhưng mình không làm được. Mình chỉ có thể làm biến nút close đi thôi. (trong access)

 

[levanduyet]

Thì đúng, nhưng mình không làm được. Mình chỉ có thể làm biến nút close đi thôi. (trong access)

Anh có thể làm bằng các hàm API. Em thấy tiện nhất là dùng các module của
http://www.cpearson.com/Excel/FormControl.aspx

' ----------------------------------
' Functions In This Module:
' ----------------------------------
'   [B]SetFormParent[/B]
'       Sets a userform's parent to the Application or the ActiveWindow.
'   [B]IsCloseButtonVisible[/B]
'       Returns True or False indicating whether the userform's Close button
'       is visible.
'   [B]ShowCloseButton[/B]
'       Displays or hides the userform's Close button.
'   [B]IsCloseButtonEnabled[/B]
'       Returns True or False indicating whether the userform's Close button
'       is enabled.
'  [B] EnableCloseButton[/B]
'       Enables or disables a userform's Close button.
'   [B]ShowTitleBar[/B]
'       Displays or hides a userform's Title Bar. The title bar cannot be
'       hidden if the form is resizable.
'   [B]IsTitleBarVisible[/B]
'       Returns True or False indicating if the userform's Title Bar is visible.
'   [B]MakeFormResizable[/B]
'       Makes the form resizable or not resizable. If the form is made resizable,
'       the title bar cannot be hidden.
'   [B]IsFormResizable[/B]
'       Returns True or False indicating whether the userform is resizable.
'   [B]SetFormOpacity[/B]
'       Sets the opacity of a form from fully opaque to fully invisible.
'   [B]HasMaximizeButton[/B]
'       Returns True or False indicating whether the userform has a
'       maximize button.
'   [B]HasMinimizeButton[/B]
'       Returns True or False indicating whether the userform has a
'       minimize button.
'   [B]ShowMaximizeButton[/B]
'       Displays or hides a Maximize Window button on the userform.
'   [B]ShowMinimizeButton[/B]
'       Displays or hides a Minimize Window button on the userform.
'   [B]HWndOfUserForm[/B]
'       Returns the window handle (HWnd) of a userform.

Các hàm đều có sẵn.

Lê Văn Duyệt

 

[ptm0412]

Mấy cái đề bài tập ra như vậy thì chắc chắn người ra đề làm được. Vấn đề là không cần thiết nhiêu khê đến thế. Nếu chỉ nhằm mục đích không cho người dùng đóng form bằng nút Close, chỉ cần làm như mình là đủ, nhanh, và có sẵn trong property.Set trong khi design, khỏi viết code.

 

[duong quang]

Thanks, mình làm đựoc roài !