Xin một thủ tục cho TextBox

[thanhtam348]

Nhờ các bạn chỉ dùm; phải thêm thủ tục nào cho TextBox1 khi bị rổng (chưa có DL) mà bấm Yes nó sẽ cho mình thông báo.
Cám ơn.

 

[ndu96081631]

Nhờ các bạn chỉ dùm; phải thêm thủ tục nào cho TextBox1 khi bị rổng (chưa có DL) mà bấm Yes nó sẽ cho mình thông báo.
Cám ơn.

Mình nghĩ chắc là vầy:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 And TextBox1.Text = "" Then MsgBox "Không có gì nha!"
End Sub

 

[sealand]

Hi, lại phỏng đoán rồi:
Bấm Yes có lẽ là nhấn nút Yes (OK) vậy thì phải đặt code theo nút Yes chứ?

 

[thanhtam348]

Em gán vào Form như vầy, nhưng nó không có tác dụng, anh xem nó thiếu thứ gì chỉ dùm em.

Private Sub CommandButton1_Click()
If KeyCode = 13 And TextBox1.Text = "" Then MsgBox "Không có gì nha!"
End Sub

 

[sealand]

Biết ngay mà!!!
Phải thế này cơ:

Private Sub CommandButton1_Click()
'..............
If TextBox1.Text = "" Then MsgBox "Không có gì nha!"
'...............
End Sub

 

[ndu96081631]

Hi, lại phỏng đoán rồi:
Bấm Yes có lẽ là nhấn nút Yes (OK) vậy thì phải đặt code theo nút Yes chứ?

Hic... Cứ tưởng bấm YES là bấm Enter chứ (vì trên bàn phím làm quái gì có phím YES nào)... Mặc khác cũng không nghĩ rằng người biết dùng code lại hỏi câu dễ ẹc đến thế...
Mắc cười ghê, đúng là tào lao thật! (mà là tui tào lao nha)

 

[thanhtam348]

Em gán vào nó vẩn lổi đó 2 anh, em gởi "nguyên cum" nhờ 2 anh xem lại nha.

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then MsgBox "Không có g? nha!"
Exit Sub
 
Dim dg
dg = Me.ComboBox1.ListIndex + 1
Me.ComboBox1.RowSource = ""
With Sheet01.Range("DSKH_tongquat")
.Cells(dg, 4) = Me.TextBox1.Text
.Cells(dg, 5) = Me.TextBox2.Text
.Cells(dg, 6) = Me.TextBox3.Text
.Cells(dg, 8) = Me.TextBox4.Text
.Cells(dg, 11) = Me.TextBox5.Text
.Cells(dg, 3) = Me.TextBox6.Text
 
End With
Unload Me
End Sub

 

[sealand]

Mình thấy bạn loay hoay vấn đề này không riêng ở bài này. Mình đã nói là tốt nhất đủ điều kiện thì mới nhấn được nút Yes
Thôi thì mình viết cho bạn 1 ví dụ tham khảo nha

Đoạn code của bạn có lẽ lỗi ở đây:

With Sheet01.Range("DSKH_tongquat")
Sửa:
With Sheet1

Đây là Code của bạn viết lại cho hợp lý:

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then MsgBox "Không có g? nha!"
Exit Sub
Dim dg, i
dg = Me.ComboBox1.ListIndex + 1
With Sheet1
For i = 1 To 6
.Cells(dg, Choose(i, 4, 5, 6, 8, 11, 3)) = Me.Controls("TextBox" & i)
Next i
End With
Unload Me
End Sub

 

[thanhtam348]

Mình thấy bạn loay hoay vấn đề này không riêng ở bài này. Mình đã nói là tốt nhất đủ điều kiện thì mới nhấn được nút Yes
Thôi thì mình viết cho bạn 1 ví dụ tham khảo nha

Đoạn code của bạn có lẽ lỗi ở đây:

With Sheet01.Range("DSKH_tongquat")
Sửa:
With Sheet1

Cám ơn anh sealand, em đang lấy về nghiên cứu.
Còn lổi anh nêu là do em thay đổi name sheet đó thôi.
Thân mến.

 

[thanhtam348]

Cám ơn anh sealand, em đang lấy về nghiên cứu.
Còn lổi anh nêu là do em thay đổi name sheet đó thôi.
Thân mến.

Điều nầy em cần lâu rồi, hôm nay được như ý từ file của anh, không biết cám ơn các anh bao nhiêu lần.....