T
Ticotion
Hi
I have a form which filters a report on department, year and week no. If a
user checks a check box the code referres to another report that should
contain the graf view of the data. But I can not get the report to show the
correct data in the grafs.
What happens is that the grafh is not filtered correctly, so it shows the
full data range. How can this be done?
The following data is used in the graf
Department yearnb weeknb OEE OEEtarget
I use the following command to open the report filtered.
Private Sub Kommandoknap20_Click()
If Me.check25 = -1 Then
DoCmd.OpenReport "Rpt_departOEEgrafh", acPreview, , "[yearnb] >=" &
Me.combo7 & " And [weeknb] >= " & Me.combo5 & " And [yearnb] <= " &
Me.combo9& " And [weeknb] <= " & Me.combo11& " And [depart] = """ &
Me.combo16& """", , acWindowNormal
Else
DoCmd.OpenReport "Rpt_departOEE", acPreview, , "[yearnb] >=" &
Me.combo7 & " And [weeknb] >= " & Me.combo5 & " And [yearnb] <= " &
Me.combo9& " And [weeknb] <= " & Me.combo11& " And [depart] = """ &
Me.combo16& """", , acWindowNormal
End If
End Sub
Can anyone help me?
Ticotion
I have a form which filters a report on department, year and week no. If a
user checks a check box the code referres to another report that should
contain the graf view of the data. But I can not get the report to show the
correct data in the grafs.
What happens is that the grafh is not filtered correctly, so it shows the
full data range. How can this be done?
The following data is used in the graf
Department yearnb weeknb OEE OEEtarget
I use the following command to open the report filtered.
Private Sub Kommandoknap20_Click()
If Me.check25 = -1 Then
DoCmd.OpenReport "Rpt_departOEEgrafh", acPreview, , "[yearnb] >=" &
Me.combo7 & " And [weeknb] >= " & Me.combo5 & " And [yearnb] <= " &
Me.combo9& " And [weeknb] <= " & Me.combo11& " And [depart] = """ &
Me.combo16& """", , acWindowNormal
Else
DoCmd.OpenReport "Rpt_departOEE", acPreview, , "[yearnb] >=" &
Me.combo7 & " And [weeknb] >= " & Me.combo5 & " And [yearnb] <= " &
Me.combo9& " And [weeknb] <= " & Me.combo11& " And [depart] = """ &
Me.combo16& """", , acWindowNormal
End If
End Sub
Can anyone help me?
Ticotion