Chỉnh Sửa Thông Tin VB không dùng được (1 người xem)

[thuongsykxps]

Chào cả nhà!

Mình có load "phần mềm quản lý văn bản" trên diễn đàn, phần mềm rất hay, nhưng có phần chỉnh sửa thông tin văn bản bị lỗi không dùng được, mọi người chỉnh sửa giúp mình với.

Cảm ơn cả nhà!

 

[jack nt]

Chào cả nhà!

Mình có load "phần mềm quản lý văn bản" trên diễn đàn, phần mềm rất hay, nhưng có phần chỉnh sửa thông tin văn bản bị lỗi không dùng được, mọi người chỉnh sửa giúp mình với.

Cảm ơn cả nhà!

Private Sub CmdGhi_Click()
  Range("Data!C" & irow).Value = Me.TextBox2.Value
  If Me.[COLOR=#ff0000]texbox[/COLOR]3.Value = "" Then
  Range("Data!D" & irow).Value = ""
  Else
  Range("Data!D" & irow).Value = DateValue(Format(Me.TextBox3.Value, "dd/MM/yyyy"))
  End If
  Range("Data!E" & irow).Value = Me.ComboBox1.Value
  Range("Data!F" & irow).Value = Me.TextBox4.Value
  If Me.[COLOR=#ff0000]texbox[/COLOR]5.Value = "" Then
  Range("Data!G" & irow).Value = ""
  Else
  Range("Data!G" & irow).Value = DateValue(Format(Me.TextBox5.Value, "dd/MM/yyyy"))
  End If
  Range("Data!H" & irow).Value = Me.TextBox6.Value
  Range("Data!I" & irow).Value = Me.TextBox7.Value
  Range("Data!J" & irow).Value = Me.TextBox8.Value
  Range("Data!K" & irow).Value = Me.ComboBox2.Value
  Range("Data!L" & irow).Value = Me.TextBox9.Value
  Range("Data!M" & irow).Value = Me.TextBox11.Value
  If Me.TextBox10.Value = "" Then
  Range("Data!N" & irow).Value = ""
  Else
  Range("Data!N" & irow).Value = DateValue(Format(Me.TextBox10.Value, "dd/MM/yyyy"))
  End If
  Range("Data!O" & irow).Value = Me.TextBox12.Value
  Range("Data!P" & irow).Value = Me.TextBox13.Value
  If Me.ComboBox3.Value = "" Then
    Range("Data!Q" & irow).Value = ""
  Else
    Range("Data!Q" & irow).Value = Me.ComboBox3.ListIndex + 1
  End If
  
  Unload Me


End Sub

chỉ cần sửa texbox thành TextBox là ổn.