Code cho Form nhập dữ liệu (1 người xem)

[Thaiduc]

Nhờ viết Code cho Form nhập dữ liệu.
Có File kèm theo (trong file có nêu yêu cầu).
Xin cám ơn!

 

[Thaiduc]

Thật tình, mình đưa lên đã lâu nhưng chẳng có ai giúp. Hình như, việc mình nhờ không xứng tầm với các anh, chị?

 

[Quang_Hải]

Thật tình, mình đưa lên đã lâu nhưng chẳng có ai giúp. Hình như, việc mình nhờ không xứng tầm với các anh, chị?

Nhờ giúp đở thì nên thận trọng câu chữ. Đọc câu văn của bạn nghe sao sao ấy.

 

[Thaiduc]

Xin lỗi các anh, chị. Mong thông cảm.

 

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

Nhờ viết Code cho Form nhập dữ liệu.
Có File kèm theo (trong file có nêu yêu cầu).
Xin cám ơn!

Thêm 1 cách là dùng ado nhé:
[GPECODE=sql]Private Sub NHAP_Click()
If Trim(Me.Hoten.Value) = "" Then
Me.Hoten.SetFocus
MsgBox "CHUA NHAP HO VA TEN !", vbCritical + vbOKOnly
Else
On Error GoTo Handle
Dim lsSQL As String, cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\BANG B " & _
";Extended Properties=""Excel 8.0;HDR=Yes;"";"
.Open
End With
lsSQL = "SELECT [HO VA TEN], [NAM SINH] FROM [B$]"
lrs.Open lsSQL, cnn, 1, 3
With lrs
.AddNew
![HO VA TEN] = Me.Hoten
![NAM SINH] = Me.Namsinh
.Update
.Close
End With
lsSQL = "SELECT [HO VA TEN], [NAM SINH] FROM [B$]"
lrs.Open lsSQL, cnn, 3, 1
Do Until lrs.EOF
ListBox1.AddItem lrs![HO VA TEN] & vbTab & "|" & vbTab & lrs![NAM SINH]
lrs.MoveNext
Loop
Set lrs = Nothing
cnn.Close: Set cnn = Nothing
Exit Sub
Handle:
MsgBox Err.Description
End If

End Sub

[/GPECODE]

Giải nén và chạy file nhé