hueqlhc > 30-04-13, 02:05 AM
Private Sub Command26_Click()
Dim db As Database
Dim rs As Recordset
Dim stDocName As String
stDocName = "qryXoachon"
Set db = CurrentDb
Set rs = db.OpenRecordset("tblNhankhau", dbOpenTable)
If Chon = True Then
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Hoten = Me.Hotentxt.Value
rs!Thuongtru = Me.Thuongtrutxt.Value
rs.Update
rs.MoveNext
Loop
rs.Close
MsgBox "So lieu da sua OK"
End If
DoCmd.OpenQuery stDocName, acNormal, acEdit
tblNhankhau_subform.Requery
End Sub