ketoan_it > 05-10-13, 10:48 PM
paulsteigel > 06-10-13, 12:09 PM
Private Sub Command85_Click()
Dim rptName As String
With frmDinhKhoan_Subform.Form
If .cmbSoHieuTK = "1111" Then
If .txtSoPSNo > 0 Then
rptName = "rptPhieuThu"
ElseIf .txtSoPSCo > 0 Then
rptName = "rptPhieuChi"
End If
End If
End With
If rptName = "" Then Exit Sub
DoCmd.OpenReport rptName, acViewPreview
End Sub
ttm20062008 > 06-10-13, 12:29 PM
Private Sub Command85_Click()
If frmDinhKhoan_Subform!cmbSoHieuTK = "1111" And IsNull(frmDinhKhoan_Subform!txtSoPSCo) Then
DoCmd.OpenReport "rptPhieuThu", acViewPreview
Else
frmDinhKhoan_Subform!cmbSoHieuTK = "1111" And IsNull(frmDinhKhoan_Subform!txtSoPSNo)
DoCmd.OpenReport "rptPhieuChi", acViewPreview
End If
End Sub
ketoan_it > 06-10-13, 04:23 PM
ketoan_it > 06-10-13, 05:25 PM
paulsteigel > 06-10-13, 06:13 PM
SELECT tblSoKTMay.*
FROM tblSoKTMay
ORDER BY tblSoKTMay.SoHieuTK DESC;