A
ahmed tharwat
in form q4all found a broblem in command button i put this code
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D bigin code =3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Private Sub Command33_Click()
If Forms![q4all]!Frame21.Value =3D 1 And Combo19.Visible =3D True And Combo17.Vi=
sible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "ida salary all"
DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteria As String
stLinkCriteria =3D "[=C3=87=C3=A1=C3=87=C3=93=C3=A3]=3D" & "'" & Me![Text28] &=
"'"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteria, acWindowNormal
Reports![details]![Te11].Visible =3D True
ElseIf Forms![q4all]!Frame21.Value =3D 2 And Combo19.Visible =3D True And Combo1=
7.Visible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "sina salary all"
DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteria1 As String
stLinkCriteria1 =3D "[=C3=87=C3=A1=C3=87=C3=93=C3=A3]=3D" & "'" & Me![Text28]=
& "'"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteria1, acWindowNormal=
ElseIf Forms![q4all]!Frame21.Value =3D 1 And Combo17.Visible =3D True And Combo1=
9.Visible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "ida salary all"
'DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteriaa As String
stLinkCriteriaa =3D "[monthes]=3D" & "#" & Me![Text34] & "#"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteriaa, acWindowNormal=
End If
End Sub
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D end code =3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
this way was succed in query by name but not in date(monthes) and both of them
please help
link the access project is below
http://ezyfile.net/e0q73pc1v6uh/salary_2009v21.mdb.html
or
http://usershare.net/ahmedtharwat19/kbi0bvijjsld.htm
i wait your help
url:http://www.ureader.com/gp/1054-1.aspx
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D bigin code =3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Private Sub Command33_Click()
If Forms![q4all]!Frame21.Value =3D 1 And Combo19.Visible =3D True And Combo17.Vi=
sible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "ida salary all"
DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteria As String
stLinkCriteria =3D "[=C3=87=C3=A1=C3=87=C3=93=C3=A3]=3D" & "'" & Me![Text28] &=
"'"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteria, acWindowNormal
Reports![details]![Te11].Visible =3D True
ElseIf Forms![q4all]!Frame21.Value =3D 2 And Combo19.Visible =3D True And Combo1=
7.Visible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "sina salary all"
DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteria1 As String
stLinkCriteria1 =3D "[=C3=87=C3=A1=C3=87=C3=93=C3=A3]=3D" & "'" & Me![Text28]=
& "'"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteria1, acWindowNormal=
ElseIf Forms![q4all]!Frame21.Value =3D 1 And Combo17.Visible =3D True And Combo1=
9.Visible =3D False Then
Me.Refresh
DoCmd.OpenReport "details", acViewDesign, "", "", acHidden
Reports!details.RecordSource =3D "ida salary all"
'DoCmd.Save acReport, "details"
DoCmd.Close acReport, "details"
Dim stLinkCriteriaa As String
stLinkCriteriaa =3D "[monthes]=3D" & "#" & Me![Text34] & "#"
DoCmd.OpenReport "details", acViewPreview, , stLinkCriteriaa, acWindowNormal=
End If
End Sub
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D end code =3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
this way was succed in query by name but not in date(monthes) and both of them
please help
link the access project is below
http://ezyfile.net/e0q73pc1v6uh/salary_2009v21.mdb.html
or
http://usershare.net/ahmedtharwat19/kbi0bvijjsld.htm
i wait your help
url:http://www.ureader.com/gp/1054-1.aspx