Xin mọi ngườì chỉ giúp Form tôi làm sai ở đâu

[ltqnl3]

Xin mọi ngườì chỉ giúp Form tôi làm sai ở đâu mà không nhập được dữ liệu
Xin cảm ơn

 

[sealand]

Mình thấy nhập được mà. Bạn thay thử đoạn code của mình xem sao. Néu ổn thì nó gọn gàng hơn.

Private Sub CommandButton1_Click()
Dim Dich As Range
Set Dich = Sheet25.[c65536].End(xlUp).Offset(1)
If (TextBox1.Value <> vbNullString) Then
Dich.Offset(, -1) = Dich.Row - 3
Dich = Me.TextBox1
Dich.Offset(, 1) = DateSerial(TextBox4, TextBox3, TextBox2)
Dich.Offset(, 2) = TextBox5
Dich.Offset(, 3) = TextBox6
Dich.Offset(, 4) = ComboBox1
Dich.Offset(, 5) = ComboBox2
Dich.Offset(, 6) = ComboBox3
Dich.Offset(, 7) = TextBox7
Dich.Offset(, 8) = TextBox8
Dich.Offset(, 9) = TextBox9
Dich.Offset(, 10) = TextBox10
Dich.Offset(, 11) = TextBox11
Dich.Offset(, 12) = TextBox12
    TextBox1 = vbNullString
    TextBox2 = vbNullString
    TextBox3 = vbNullString
    TextBox4 = vbNullString
    TextBox7 = vbNullString
    TextBox9 = vbNullString
    TextBox10 = vbNullString
    TextBox11 = vbNullString
    TextBox12 = vbNullString
Else
    MsgBox "Vui long nhap Ho va ten"
End If
TextBox1.SetFocus
Label3.Caption = Dich.Row - 2
End Sub

 

[ltqnl3]

Cảm ơn bạn tôi đã tìm ra chỗ sai đó là cái ô Họ và tên đã bị gộp