<THEM>

Me.mydata.Refresh

On Error GoTo loi

Me.mydata.Recordset.AddNew

Me.mydata.Recordset.Fields("hodem") = Me.txtht.Text

Me.mydata.Recordset.Fields("ten") = Me.txtt.Text

Me.mydata.Recordset.Fields("gioitinh") = Me.txtgt.Text

Me.mydata.Recordset.Fields("diachi") = Me.txtdc.Text

'Me.mydata.Recordset.Update

Exit Sub

loi:

MsgBox "Vui long kiem tra lai du lieu"

Me.mydata.Recordset.Update

--------------------------------------------------------

<XOA>

Me.mydata.RecordSource = "select * from kiemtra where ten='" & Me.txtt.Text & "'"

Me.mydata.Refresh

If Me.mydata.Recordset.EOF = False Then

a = MsgBox("Ban co chac chan xoa khong ?", vbYesNo)

If a = vbYes Then

Me.mydata.Recordset.Delete

Me.mydata.Recordset.MoveNext

End If

End If

----------------------------------------------------------

<SUA>

On Error Resume Next

Me.mydata.Refresh

Me.mydata.Recordset.Fields("Ten") = Me.txtt.Text

<<<ghi het zo>>>

Me.mydata.Recordset.Update

Me.mydata.Refresh

----------------------------------------------------------

<TIM KIEM>

On Error Resume Next

Me.mydata.RecordSource = "select * from kiemtra where ten ='" & Me.txttk.Text & "'"

Me.mydata.Refresh

If Me.mydata.Recordset.EOF = False Then

If Me.mydata.Recordset.Fields("ten") = Me.txttk.Text Then

Me.txtht.Text = Me.mydata.Recordset.Fields("hodem")

Me.txtt.Text = Me.mydata.Recordset.Fields("ten")

Me.txtgt.Text = Me.mydata.Recordset.Fields("gioitinh")

Me.txtdc.Text = Me.mydata.Recordset.Fields("diachi")

End If

Me.mydata.Recordset.MoveNext

End If

-------------------------------------------------------------------

<FORM LOAD>

Me.mydata.RecordSource = "select * from kiemtra"

Me.mydata.Refresh

Me.txtht.Text = Me.mydata.Recordset.Fields("hodem")

Me.txtt.Text = Me.mydata.Recordset.Fields("ten")

Me.txtgt.Text = Me.mydata.Recordset.Fields("gioitinh")

Me.txtdc.Text = Me.mydata.Recordset.Fields("diachi")

Set Me.a.DataSource = Me.mydata

---------------------------------------------------------------------

<TIEP>

Me.mydata.Recorset.MoveNext

Me.txtht.Text = Me.mydata.Recordset.Fields("hodem")

Me.txtt.Text = Me.mydata.Recordset.Fields("ten")

Me.txtgt.Text = Me.mydata.Recordset.Fields("gioitinh")

Me.txtdc.Text = Me.mydata.Recordset.Fields("diachi")

------------------------------------------------

<TRUOC>