Tạo Form Nhập Liệu_ Vì Sao Nút Nhập Không Hoạt Động? (1 người xem)

[khaagpps]

Em đã xem qua các bài và video hướng dẫn tạo form,làm y theo thì ngon lành nhưng khi tạo theo ý mình thì nút Nhập không hoạt động,mong các anh chị hướng dẫn dùm (em mới tìm hiểu mấy cái code) xin cảm ơn nhiều!

 

[ptm0412]

Code bạn đang sử dụng label chứ không phải các textbox.

 

[sealand]

Tất cả các điều khiển đều sai tên (Thiếu Textbox_)
Sửa lại như sau:

Private Sub Cmdbutton_nhap_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
MsgBox iRow
If Trim(Me.Textbox_ten.Value) = "" Then
Me.ten.SetFocus
MsgBox "Vui long dien so hop dong", vbInformation
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.Textbox_ten.Value
ws.Cells(iRow, 2).Value = Me.Textbox_diachi.Value
ws.Cells(iRow, 3).Value = Me.Textbox_lido.Value
ws.Cells(iRow, 4).Value = Me.Textbox_soluong.Value

Me.Textbox_ten.Value = ""
Me.Textbox_diachi.Value = ""
Me.Textbox_lido.Value = ""
Me.Textbox_soluong.Value = ""
Me.Textbox_ten.SetFocus
End Sub

 

[leonguyenz]

Em đã xem qua các bài và video hướng dẫn tạo form,làm y theo thì ngon lành nhưng khi tạo theo ý mình thì nút Nhập không hoạt động,mong các anh chị hướng dẫn dùm (em mới tìm hiểu mấy cái code) xin cảm ơn nhiều!

Bạn đặt sai Name của các Textbox:

Private Sub Cmdbutton_nhap_Click()Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")


iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.[B]Me.Textbox_[/B]ten.Value) = "" Then
Me.ten.SetFocus
MsgBox "Vui long dien so hop dong", vbInformation
Exit Sub
End If
ws.Cells(iRow, 1).Value = [COLOR=#ff0000][B]Me.Textbox_[/B][/COLOR]ten.Value
ws.Cells(iRow, 2).Value = [B]Me.Textbox_[/B]diachi.Value
ws.Cells(iRow, 3).Value = [B]Me.Textbox_[/B]lido.Value
ws.Cells(iRow, 4).Value = Me.[B]Textbox_[/B]soluong.Value


Me.[COLOR=#ff0000][B]Textbox_[/B][/COLOR]ten.Value = ""
Me.[COLOR=#ff0000][B]Textbox_[/B][/COLOR]diachi.Value = ""
Me.[COLOR=#ff0000][B]Textbox_[/B][/COLOR]lido.Value = ""
Me.[COLOR=#ff0000][B]Textbox_[/B][/COLOR]soluong.Value = ""
Me.[COLOR=#ff0000][B]Textbox_[/B][/COLOR]ten.SetFocus
End Sub

 

[ptm0412]

Tất cả các điều khiển đều sai tên (Thiếu Textbox_)

Bạn đặt sai Name của các Textbox

Tất cả tên đều đúng, không sai. Nhưng là tên của các labels.

 

[khaagpps]

Em đã thử làm lại như lời các anh chỉ,kết quả như mong muốn.Các anh đã tận tình chỉ giúp,em cảm ơn nhiều lắm ạ!

 

[jack nt]

Em đã xem qua các bài và video hướng dẫn tạo form,làm y theo thì ngon lành nhưng khi tạo theo ý mình thì nút Nhập không hoạt động,mong các anh chị hướng dẫn dùm (em mới tìm hiểu mấy cái code) xin cảm ơn nhiều!

vui lòng xem file đính kèm (đã sửa)

 

[khaagpps]

Hì hì...lại phiền các anh nữa rồi,số là em có 1 khúc mắc nho nhỏ ( em đã ghi và tô vàng trong file đính kèm) các anh hướng dẫn dùm em!