Hỏi cách xử lí form nhập liệu bị lỗi

[huyen891977]

Chào các bạn mình có form nhập liệu để nhập dữ liệu vào bản. Nhưng mình không hiểu sao khi nhập dữ liệu vào thường xảy ra trường hợp dữ liệu mới nhập vào thay thế dòng dữ liệu đã nhập trước đó, làm mất dữ liệu củ, nếu nhập nữa thì nó vẫn xảy ra tình trạng trên và cũng nằm tại một dòng không tự động tìm dòng trống nhập vào. Nếu đóng file mở lại nhập thì nó chèn vào dòng dữ liệu đầu tiên trong bảng làm mất dữ liệu củ. (Bảng dữ liệu gồm 13 cột nhưng chỉ nhập vào 12 cột vì cột còn lại có công thức sẵn). Xin các bạn chỉ cho mình cách khắc phục.
Cảm ơn nhiều !

 

[ThuNghi]

Mình gởi file lên các bạn xem và sửa dùm. Vấn đề bị lỗi mình đã nói trong file. Cảmơn nhiều!

Khá khen đại ca này, mới đây mà đã chuyển sang nhập liệu trên form. Có phải bạn hỏi là khi nhấn Nhap thì nó không vào dòng cuối.
1/ Khi xác định dòng cuối là phải lấy tại cột nào luôn có số liệu. Ở đây bạn lại dùng cột L

iRow = ws.Range("L60000").End(xlUp).Row + 1

Trong khi cột L có nhiều dòng trống.
2/ Phần nhập ngày nên có bẫy lỗi chớ nhập sai dd/mm/yyyy thì nó vẫn OK thì không được. Dễ nhất là if(dd>32...) or mm>13. Bạn tìm trên diễn đàn với hàm sửa ngày của Mr OkeBab.
3/ Các txtBox MaKH, MaHH nên lấy từ commbobox và cho phép chọn.
Rút kinh nghiệm đưa file ít dòng thôi. Và bỏ bớt các name chưa cần, trong đây có đọc số bằng công thức. => File nặng!

 

[huyen891977]

Mình gấp quá nên không kịp sửa file Cám ơn ThuNghi. Mình hiểu lý do tại sao rồi. Cho mình hỏi thêm mình muốn đưa cột thành tiền vào form nhập liệu nhưng mình không cần nhập vào textbox này trên form mà muốn nó tự cho kết quả và điền vào cột thành tiền khi mình nhập số lượng và đơn giá trên form nhập liệu.

 

[ST-Lu!]

Thưa các Anh
Trong User Form có nhiều Text box
Vậy ta dùng code nào để đếm tổng số Textbox đó nhỉ?
-------
Khi đếm được tổng số text box rồi, có dùng vòng lặp trên các text box được không?
Em thấy đoạn code sau dài quá

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
'(iRow, 12) cot chen vao, co the thay doi theo y thich
'Xoa textbox sau moi lan ok'
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""

Cho em hỏi khi nào ta dùng SetFocus?

Me.TextBox1.SetFocus

Xin được chỉ bảo

 

[anhtuan1066]

Thưa các Anh
Trong User Form có nhiều Text box
Vậy ta dùng code nào để đếm tổng số Textbox đó nhỉ?
-------
Khi đếm được tổng số text box rồi, có dùng vòng lặp trên các text box được không?
Em thấy đoạn code sau dài quá

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
'(iRow, 12) cot chen vao, co the thay doi theo y thich
'Xoa textbox sau moi lan ok'
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""

Cho em hỏi khi nào ta dùng SetFocus?

Me.TextBox1.SetFocus

Xin được chỉ bảo

Tham khảo thử bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=6197
Me.TextBox1.SetFocus để đưa con trỏ chuột vào TextBox1