Tạo form nhập liệu có tính lựa chon

[danghoanghuy]

Xin cho hỏi thêm, là trong khi nhập liệu từ form thì điều kiện là từ textbox1-> textbox n nào đó nếu như tất cả các textbox đó đều rổng, thì hiện thông báo, bây giờ mình muốn 3 điều kiện: Nu , dt, ndt có tính lựa chọn hơn, vì khi nhập liệu nó tùy thuộc vào học sinh có hs thì dân tộc (dt), có đứa thì không. Minh thử làm là bỏ bớt textbox2,3,4, thì khi nhập liệu nó không được ổn định, có khi còn ghi đè lên dòng dữ liệu trước. Rất mong anh yêu đời và các cao thủ khác giúp cho ( chỉnh lại đoạn code ) theo như trên đã nêu.

 

[XuanThanh]

Không hiểu nổi bạn muốn gì trong file nữa

 

[anhthuan]

Không hiểu bạn muốn gì?

 

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

Xin cho hỏi thêm, là trong khi nhập liệu từ form thì điều kiện là từ textbox1-> textbox n nào đó nếu như tất cả các textbox đó đều rổng, thì hiện thông báo, bây giờ mình muốn 3 điều kiện: Nu , dt, ndt có tính lựa chọn hơn, vì khi nhập liệu nó tùy thuộc vào học sinh có hs thì dân tộc (dt), có đứa thì không. Minh thử làm là bỏ bớt textbox2,3,4, thì khi nhập liệu nó không được ổn định, có khi còn ghi đè lên dòng dữ liệu trước. Rất mong anh yêu đời và các cao thủ khác giúp cho ( chỉnh lại đoạn code ) theo như trên đã nêu.

Ý bạn là 3 Textbox2,3,4 điều kiện nhập là nếu như 1 trong 3 textbox đó rỗng thì không cho nhập, ngược lại thì nhập bình thường ?

 

[danghoanghuy]

ý mình là 1 trong 3 textbox đó rỗng thì cho nhập, còn các textbox khác thì không được rổng.

 

[danghoanghuy]

Ý bạn là 3 Textbox2,3,4 điều kiện nhập là nếu như 1 trong 3 textbox đó rỗng thì không cho nhập, ngược lại thì nhập bình thường ?

ý mình là 1 trong 3 textbox đó rỗng thì cho nhập, còn các textbox khác không được rỗng.

 

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

ý mình là 1 trong 3 textbox đó rỗng thì cho nhập, còn các textbox khác không được rỗng.

Có nghĩa là 2 trong 3 textbox bắt buộc nhập còn lại 1 textbox rỗng thì OK ?

 

[danghoanghuy]

Ý mình là một trong 3 textbox2,3,4 đó rỗng thì cho nhập, và các cái khác không được rỗng. hiện giờ đoạn code mà mình làm là 1 trong 3 cái đó rỗng thì không cho nhập. rất mong mọi người giúp cho và thành thật xin lỗi vì lần trước đưa ra yêu cầu chưa rõ ràng, làm khó mọi người.

 

[danghoanghuy]

Trong form của mình có 11 TextBox, trong đó có TextBox 2,3,4 là không bắt buộc nhập, nghĩa là nếu 1 trong 3 cái TexBox 2,3,4 đó mà có 1 hoặc 2 hoặc 3 cái rỗng thì được nhập: Ví dụ: có học sinh thì là Nữ: thì ta nhập nữ, hoặc Dân tộc thì ta nhập DT, hoặc là nữ dân tộc thì ta nhập NDT. còn nếu là 1 học sinh là nam mà không có các thuộc tính trên thì coi như 3 TextBox 2,3,4 đó là không cần phải nhập, như vậy là phải để rỗng rồi. còn lại các TextBox 1,5,6,7,8,9,10,11 thì bắt buộc phải nhập. Rất mong sự giúp đỡ.

 

[solomon2211]

Nếu nói như bạn, e textbox đó không nhập cũng không sao. Vậy bạn không cần đưa vào If.

 

[ThuNghi]

Trong form của mình có 11 TextBox, trong đó có TextBox 2,3,4 là không bắt buộc nhập, nghĩa là nếu 1 trong 3 cái TexBox 2,3,4 đó mà có 1 hoặc 2 hoặc 3 cái rỗng thì được nhập: Ví dụ: có học sinh thì là Nữ: thì ta nhập nữ, hoặc Dân tộc thì ta nhập DT, hoặc là nữ dân tộc thì ta nhập NDT. còn nếu là 1 học sinh là nam mà không có các thuộc tính trên thì coi như 3 TextBox 2,3,4 đó là không cần phải nhập, như vậy là phải để rỗng rồi. còn lại các TextBox 1,5,6,7,8,9,10,11 thì bắt buộc phải nhập. Rất mong sự giúp đỡ.

Sửa câu sau

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Then
  MsgBox "Ban chua nhap day du thong tin. Vui long nhap tiep!", , "THONG BAO !"
  Exit Sub
End If

Thành

If TextBox2 = "" And TextBox3 = "" And TextBox4 = "" Then
  MsgBox "Ban chua nhap day du thong tin. Vui long nhap tiep!", , "THONG BAO !"
  Exit Sub
End If
If TextBox1 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Then
  MsgBox "Ban chua nhap day du thong tin. Vui long nhap tiep!", , "THONG BAO !"
  Exit Sub
End If

 

[danghoanghuy]

vẫn biết là như thế nhưng khi không đưa vào if nó lại nhập dữ liệu có lúc được theo thứ tự, có lúc lại ghi đè lên dòng dữ liệu vừa nhập - làm thế nào để xử lý trường hợp này ?

 

[ThuNghi]

vẫn biết là như thế nhưng khi không đưa vào if nó lại nhập dữ liệu có lúc được theo thứ tự, có lúc lại ghi đè lên dòng dữ liệu vừa nhập - làm thế nào để xử lý trường hợp này ?

Sửa câu sau

iRow = ws.Cells(Rows.Count, 6).End(xlUp).Offset(1, 4).Row

thành

iRow = ws.Cells(65000, 6).End(xlUp).Row + 1

 

[danghoanghuy]

Rất cảm ơn bạn ThuNghi, mình còn phải học tập nhiều, phiền mọi người quá.