mrchau911 > 27-12-10, 02:40 PM
haquocquan > 27-12-10, 02:45 PM
mrchau911 > 27-12-10, 05:15 PM
haquocquan > 27-12-10, 06:38 PM
mrchau911 > 28-12-10, 01:35 PM
haquocquan > 28-12-10, 04:29 PM
Private Sub C1_Click()
On Error GoTo Loi
Dim T1 As String
'mo report chi tiet kho
T1 = Me.T1.Value
DoCmd.OpenReport "CHITIETKHO", acViewPreview, , "[MA KHO]='" & T1 & "'"
Loi:
Exit Sub
End Sub
Private Sub Report_NoData(Cancel As Integer)
DoCmd.CancelEvent
Msgbox "Khong co du lieu"
End Sub
mrchau911 > 30-12-10, 03:45 PM