phép nhân của 2 textbox rồi ghi vào listbox bị lỗi (1 người xem)

[quykh]

Em có tạo một form trên form có 3 textbox "TSP", "DM", "SL" . 1 listbox và 1 nút"ghi vào Listbox" . Textbox "SL" bằng textbox"TSP" nhân với textbox"DM". Nhưng khi em nhấn nút "ghi vào Listbox" thì bị lỗi. Mong AC xem code "ghi vào Listbox" :

Private Sub Cmd_ghitam_Click()
If Trim(DH) = "" Or NH = "" Then
MsgBox ("Chua co Don Hang va Nhan Hieu"), , "A.QUANG": Exit Sub
End If
With ListBox1
.ColumnCount = 5
 .ColumnWidths = "350;110;130;150,100"
.AddItem THH
.List(.ListCount - 1, 1) = DVT
.List(.ListCount - 1, 2) = DM
.List(.ListCount - 1, 3) = SL
.List(.ListCount - 1, 4) = GC
.ListIndex = .ListCount - 1
End With
THH = Empty
DVT = Empty
DM = Empty
SL = Empty
GC = Empty
THH.SetFocus
End Sub
Private Sub SL_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    SL.Value = Format(SL.Value, "#,##0.00") '<--dinh dang so cua SL la #,##,0.00
End Sub

và code Textbox "SL" bằng textbox"TSP" nhân với textbox"DM":

Private Sub DM_Change()
SL = TSP * DM  [B][COLOR=#ff0000]<--------bị lỗi Debug ngay chổ này[/COLOR][/B]
End Sub

Mong các AC xem giúp!!!!

 

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

Em có tạo một form trên form có 3 textbox "TSP", "DM", "SL" . 1 listbox và 1 nút"ghi vào Listbox" . Textbox "SL" bằng textbox"TSP" nhân với textbox"DM". Nhưng khi em nhấn nút "ghi vào Listbox" thì bị lỗi. Mong AC xem code "ghi vào Listbox" :

Private Sub Cmd_ghitam_Click()
If Trim(DH) = "" Or NH = "" Then
MsgBox ("Chua co Don Hang va Nhan Hieu"), , "A.QUANG": Exit Sub
End If
With ListBox1
.ColumnCount = 5
 .ColumnWidths = "350;110;130;150,100"
.AddItem THH
.List(.ListCount - 1, 1) = DVT
.List(.ListCount - 1, 2) = DM
.List(.ListCount - 1, 3) = SL
.List(.ListCount - 1, 4) = GC
.ListIndex = .ListCount - 1
End With
THH = Empty
DVT = Empty
DM = Empty
SL = Empty
GC = Empty
THH.SetFocus
End Sub
Private Sub SL_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    SL.Value = Format(SL.Value, "#,##0.00") '<--dinh dang so cua SL la #,##,0.00
End Sub

và code Textbox "SL" bằng textbox"TSP" nhân với textbox"DM":

Private Sub DM_Change()
SL = TSP * DM  [B][COLOR=#ff0000]<--------bị lỗi Debug ngay chổ này[/COLOR][/B]
End Sub

Mong các AC xem giúp!!!!

Bạn dùng hàm Val thử nhé.

 

[quykh]

Em đã thử hàm Val cũng bị lỗi Thầy Ơi!!!!!!

 

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

Em đã thử hàm Val cũng bị lỗi Thầy Ơi!!!!!!

Vậy bạn lấy số đó nhân cho 1 xem sao nhé.

 

[quykh]

em đã lấy số đó nhân với 1 cũng bị. Tức là khi nhấn nút "ghi vào Listbox" thì bị lỗi Debug. Em gửi file Thầy coi dùm:

 

[ndu96081631]

em đã lấy số đó nhân với 1 cũng bị. Tức là khi nhấn nút "ghi vào Listbox" thì bị lỗi Debug. Em gửi file Thầy coi dùm:

Thêm On Error Resume Next thử xem

Private Sub DM_Change()
On Error Resume Next
SL = TSP * DM
End Sub

Đoán là vì có đoạn:

Private Sub Cmd_ghitam_Click()
'.................................
THH = Empty
DVT = Empty
[COLOR=#ff0000]DM = Empty[/COLOR]
SL = Empty
GC = Empty
THH.SetFocus
End Sub

Khi bấm nút "Ghi vào ListBox" thì DM = Empty đồng thời kích hoạt sự kiện Change của DM ---> Thực hiện phép toán: SL = TSP * DM sẽ tương đương SL = TSP * Empty ---> Không lỗi mới lạ