maidinhdan > 20-03-15, 12:49 PM
(20-03-15, 12:08 PM)minhhang02081992 Đã viết: Dạ file em sửa đây ah: http://www.mediafire.com/download/a0pct8...BH2003.rar
Anh giúp em đoạn code sao cho kết quả ở form1 và form2 được như ở frmBH
Thanks!
Private Sub cmdcapnhat_Click()
If Me.txtid3 <> "" And Me.txtnoidung <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid3
txtb = Me.txtnoidung
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table3", dbOpenTable)
rs.AddNew
rs!ID = txta
rs![Noi dung] = txtb
rs.Update
rs.Close
Me.txtid3 = ""
Me.txtnoidung = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Noi dung khong dc bo trong"
End If
End Sub
Private Sub cmdthem_Click()
If Me.txtid1 <> "" And Me.txtten <> "" Then
Dim txta As String
Dim txtb As String
txta = Me.txtid1
txtb = Me.txtten
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenTable)
rs.AddNew
rs!ID = txta
rs!Ten = txtb
rs.Update
rs.Close
Me.txtid1 = ""
Me.txtten = ""
MsgBox "Da nhap"
Forms("frmHienthi").Requery
Else
MsgBox "Truong ID va Ten khong dc bo trong"
End If
End Sub