Tạo form để nhập dữ liệu

[HopBVB]

Mình có một file có cấu trúc sẵn, nay muốn nhờ các bạn tạo form để nhập dữ liệu. Form được tạo nên sẽ lưu dữ liệu theo ngày tháng. Có nút nhập mới, lưu, thoát.
Các bạn giúp mình nhé.
Cảm ơn rất nhiều.

 

[Hai Lúa Miền Tây]

Bạn domfootwear cho mình hỏi chút nha
Mình muốn định dạng giá trị của textBox từ 01 đến 31 và khi gõ đủ chữ số thì nó tự động chuyển sang textBox khác thì làm thế nào?

Thử dùng code sau:
Ví dụ nếu gõ đủ 3 kí tự vào Textbox1 thì nó sẽ chuyển qua Textbox2

Private Sub TextBox1_Change()
If Len(TextBox1) = 3 Then
TextBox2.SetFocus
End If
End Sub

 

[HopBVB]

Cảm ơn bạn thetrungkien nhiều. Có một phát sinh như sau: Những file để tổng hợp, sau khi tổng hợp xong thì nó không cho Save vào nữa. Nó báo là file Read Only, đòi hỏi phải Save qua một tên file khác.

 

[ltqnl3]

Thử dùng code sau:
Ví dụ nếu gõ đủ 3 kí tự vào Textbox1 thì nó sẽ chuyển qua Textbox2

Private Sub TextBox1_Change()
If Len(TextBox1) = 3 Then
TextBox2.SetFocus
End If
End Sub

Cảm ơn bạn rất nhiều. Thế muốn giá trị của nó chỉ trong đoạn 1 đến 31 thì làm thế nào ạ

 

[Hai Lúa Miền Tây]

Cảm ơn bạn rất nhiều. Thế muốn giá trị của nó chỉ trong đoạn 1 đến 31 thì làm thế nào ạ

Thử dùng code sau nhe.

Private Sub TextBox1_Change()
If TextBox1.Value > 31 Then
TextBox1.SetFocus
TextBox1 = ""
End If
If Len(TextBox1) = 2 Then
TextBox2.SetFocus
End If
End Sub

 

[ltqnl3]

Thử dùng code sau nhe.

Private Sub TextBox1_Change()
If TextBox1.Value > 31 Then
TextBox1.SetFocus
TextBox1 = ""
End If
If Len(TextBox1) = 2 Then
TextBox2.SetFocus
End If
End Sub

Cảm ơn bạn rất nhiều
Ngày đi học đại học tôi được học Pascal cơ bản và thấy ngôn ngwx pascal có lẽ dễ hiểu hơn. Cái VB này tôi mới làm quen để làm sổ quản lí học sinh nên rất bỡ ngỡ.

 

[thetrungkien]

Bạn domfootwear cho mình hỏi chút nha
Mình muốn định dạng giá trị của textBox từ 01 đến 31 và khi gõ đủ chữ số thì nó tự động chuyển sang textBox khác thì làm thế nào?

bạn làm thế này nha:
1 sau khi đặt tên textbox bạn chọn property Maxlength=(ví dụ 5) sau đó chọn sự kiện
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox2.Text) = 5 Then TextBox3.SetFocus
End Sub
vậy là ok