pherotao > 19-12-17, 12:04 AM
Option Compare Database
Private Sub OK_Click()
On Error GoTo Err_OK_Click
If IsNull(txtDate) Then
MsgOut VniToUni(" Phaûi cho bieát Ngaøy ! "), vbExclamation
txtDate.SetFocus
Exit Sub
End If
DoCmd.OpenForm "F_Date", , , , , acHidden
Dim stDocName_N As String
Dim stDocName_X As String
Dim stLinkCriteria As String
stDocName_N = "F_HoaDon_N_Ngay" 'Ten Form Nhap
stDocName_X = "F_HoaDon_X_Ngay" 'Ten Form Xuat
stLinkCriteria = "[txtNgay]=forms![F_Date]![txtDate]"
'Dieu kien mo Form Nhap, sau do moi thi hanh cau lenh: DoCmd.OpenForm stDocName_N, , , stLinkCriteria
DoCmd.OpenForm stDocName_N, , , stLinkCriteria
'Dieu kien mo Form Xuat, sau do moi thi hanh cau lenh: DoCmd.OpenForm stDocName_X, , , stLinkCriteria
DoCmd.OpenForm stDocName_X, , , stLinkCriteria
DoCmd.RunCommand acCmdSaveRecord
Exit_OK_Click:
Exit Sub
Err_OK_Click:
MsgBox Err.Description
Resume Exit_OK_Click
End Sub