I've tried to show mschart per column but can't, still remains one column of all data from the database. can you help me please?. I'm newbie
this my code
Public Sub Tampil_Data()
If LapTransaksiWO_Frm.GrafikBulan_opt.Value = True Then
Call Tampil_Month
ElseIf LapTransaksiWO_Frm.Year_opt.Value = True Then
Call Tampil_Year
Else
' If GrafikBulan_opt.Value = True Then
' Dari_dtp.Day = 1
' Dim tempDATE As Date
' Sampai_dtp.Value = DateAdd("m", 1, Sampai_dtp.Value)
' Sampai_dtp.Day = 1
' Sampai_dtp.Value = DateAdd("d", -1, Sampai_dtp.Value)
' End If
Dim kondisi, kondisi1 As String
Dim tahun1, bulan1, tgl1, jam1, menit1, detik1 As String
Dim tahun2, bulan2, tgl2, jam2, menit2, detik2 As String
tahun1 = CStr(Year(LapTransaksiWO_Frm.Dari_dtp.Value))
bulan1 = CStr(Month(LapTransaksiWO_Frm.Dari_dtp.Value))
tgl1 = CStr(Day(LapTransaksiWO_Frm.Dari_dtp.Value))
jam1 = "0"
menit1 = "0"
detik1 = "0"
tahun2 = CStr(Year(LapTransaksiWO_Frm.Sampai_dtp.Value))
bulan2 = CStr(Month(LapTransaksiWO_Frm.Sampai_dtp.Value))
tgl2 = CStr(Day(LapTransaksiWO_Frm.Sampai_dtp.Value))
jam2 = "23"
menit2 = "59"
detik2 = "59"
tanggal1 = bulan1 & "/" & tgl1 & "/" & tahun1 & " " & "6:00:00 am"
tanggal2 = bulan2 & "/" & tgl2 & "/" & tahun2 & " " & "10:00:00 pm"
strLOKACI = ""
strLOKACI = Trim(GBLserverName)
strLOKACI = "[" + strLOKACI + "]." + Trim(NameDBs(Lokasi_Cmb.ListIndex + 1))
If rsDay.State = adStateOpen Then
rsDay.Close
End If
If LapTransaksiWO_Frm.Lokasi_Cmb.Text <> "SEMUA" Then
If LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxJasaWO_ConvertGrafikView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
Else
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxJasaWO_ConvertGrafikView WHERE jenisjasa='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxPartWO_ConvertGrafikView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
Else
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxPartWO_ConvertGrafikView WHERE jenispart='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE status_billing='true' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
ElseIf LapTransaksiWO_Frm.NotBilling_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE status_billing='false' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
End If
ElseIf LapTransaksiWO_Frm.Lokasi_Cmb.Text = "SEMUA" Then
If LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT * FROM Lap_AllTrxAllJasaWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
Else
sqlstr = "SELECT * FROM Lap_AllTrxAllJasaWO_ConvertJenisPerhariAllView WHERE jenisjasa='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT * FROM Lap_AllTrxAllPartWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
Else
sqlstr = "SELECT * FROM Lap_AllTrxAllPartWO_ConvertJenisPerhariAllView WHERE jenispart='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertBillingPerhariAllView WHERE status_billing='true' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
ElseIf LapTransaksiWO_Frm.NotBilling_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertNotBillingPerhariAllView WHERE and status_batal='false' and status_billing='false' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
End If
End If
'
MsgBox sqlstr
rsDay.Open sqlstr, conn, adOpenStatic, adLockOptimistic
If rsDay.RecordCount = 0 Then
MsgBox "Data Kosong, Terima Kasih", vbOKOnly
LapTransaksiWO_Grafik_Frm.WO_Chart.Visible = False
Else
Green = rsDay.RecordCount
ReDim thesalwaterroom(1 To Green, 1 To 2)
Dim i As Integer
For i = 1 To Green
thesalwaterroom(i, 1) = Trim(Format(rsDay("Tgl_Entry"), "dd mmm yyyy"))
thesalwaterroom(i, 2) = rsDay("Total")
' thesalwaterroom(2, 2) = rsDay("Total")
' thesalwaterroom(i, 3) = rsDay("Total")
rsDay.MoveNext
Next i
WO_Chart.ChartData = thesalwaterroom
' WO_Chart.ColumnLabel = rsDay("Tgl_entry")
WO_Chart.RowCount = Green
If LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Status Billing = " & LapTransaksiWO_Frm.Billing_Opt.Value
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Status Billing = " & LapTransaksiWO_Frm.Billing_Opt.Value
End If
ElseIf LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Jasa = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Jasa = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Part = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Part = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
End If
End If
With WO_Chart
' .EditCopy
' .EditPaste
' .Plot.DefaultPercentBasis
' .IsValueShownAsLabel = True
'.DataGrid.InitializeLabels = rsDay("Total")
.Legend.Location.LocationType = VtChLocationTypeBottomLeft
.Plot.Axis(VtChAxisIdX).Labels(1).Auto = True
' .ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text
' .Tag = rsDay("Total")
End With
' WO_Chart.SeriesColumn = "merna"
' WO_Chart.ColumnCount = rsDay.RecordCount
' WO_Chart.SeriesColumn = Green
Set rsDay = Nothing
End If
End If
End Sub
Attachment 98111
this my code
Public Sub Tampil_Data()
If LapTransaksiWO_Frm.GrafikBulan_opt.Value = True Then
Call Tampil_Month
ElseIf LapTransaksiWO_Frm.Year_opt.Value = True Then
Call Tampil_Year
Else
' If GrafikBulan_opt.Value = True Then
' Dari_dtp.Day = 1
' Dim tempDATE As Date
' Sampai_dtp.Value = DateAdd("m", 1, Sampai_dtp.Value)
' Sampai_dtp.Day = 1
' Sampai_dtp.Value = DateAdd("d", -1, Sampai_dtp.Value)
' End If
Dim kondisi, kondisi1 As String
Dim tahun1, bulan1, tgl1, jam1, menit1, detik1 As String
Dim tahun2, bulan2, tgl2, jam2, menit2, detik2 As String
tahun1 = CStr(Year(LapTransaksiWO_Frm.Dari_dtp.Value))
bulan1 = CStr(Month(LapTransaksiWO_Frm.Dari_dtp.Value))
tgl1 = CStr(Day(LapTransaksiWO_Frm.Dari_dtp.Value))
jam1 = "0"
menit1 = "0"
detik1 = "0"
tahun2 = CStr(Year(LapTransaksiWO_Frm.Sampai_dtp.Value))
bulan2 = CStr(Month(LapTransaksiWO_Frm.Sampai_dtp.Value))
tgl2 = CStr(Day(LapTransaksiWO_Frm.Sampai_dtp.Value))
jam2 = "23"
menit2 = "59"
detik2 = "59"
tanggal1 = bulan1 & "/" & tgl1 & "/" & tahun1 & " " & "6:00:00 am"
tanggal2 = bulan2 & "/" & tgl2 & "/" & tahun2 & " " & "10:00:00 pm"
strLOKACI = ""
strLOKACI = Trim(GBLserverName)
strLOKACI = "[" + strLOKACI + "]." + Trim(NameDBs(Lokasi_Cmb.ListIndex + 1))
If rsDay.State = adStateOpen Then
rsDay.Close
End If
If LapTransaksiWO_Frm.Lokasi_Cmb.Text <> "SEMUA" Then
If LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxJasaWO_ConvertGrafikView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
Else
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxJasaWO_ConvertGrafikView WHERE jenisjasa='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxPartWO_ConvertGrafikView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
Else
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxPartWO_ConvertGrafikView WHERE jenispart='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE status_billing='true' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
ElseIf LapTransaksiWO_Frm.NotBilling_Opt.Value = True Then
sqlstr = "SELECT DISTINCT Tgl_entry, COUNT(Id_JualService) AS Total FROM" & strLOKACI & ".dbo.LapTrxAllWO_ConvertAllView WHERE status_billing='false' and tgl_entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "' GROUP BY Tgl_entry"
End If
End If
ElseIf LapTransaksiWO_Frm.Lokasi_Cmb.Text = "SEMUA" Then
If LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT * FROM Lap_AllTrxAllJasaWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
Else
sqlstr = "SELECT * FROM Lap_AllTrxAllJasaWO_ConvertJenisPerhariAllView WHERE jenisjasa='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
sqlstr = "SELECT * FROM Lap_AllTrxAllPartWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
Else
sqlstr = "SELECT * FROM Lap_AllTrxAllPartWO_ConvertJenisPerhariAllView WHERE jenispart='" & LapTransaksiWO_Frm.Pilihan_Cmb.Text & "' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
ElseIf LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertPerhariAllView WHERE Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertBillingPerhariAllView WHERE status_billing='true' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
ElseIf LapTransaksiWO_Frm.NotBilling_Opt.Value = True Then
sqlstr = "SELECT * FROM Lap_AllTrxAllWO_ConvertNotBillingPerhariAllView WHERE and status_batal='false' and status_billing='false' and Tgl_Entry between '" & LapTransaksiWO_Frm.Dari_dtp & "' and '" & LapTransaksiWO_Frm.Sampai_dtp & "'order by tgl_entry"
End If
End If
End If
'
MsgBox sqlstr
rsDay.Open sqlstr, conn, adOpenStatic, adLockOptimistic
If rsDay.RecordCount = 0 Then
MsgBox "Data Kosong, Terima Kasih", vbOKOnly
LapTransaksiWO_Grafik_Frm.WO_Chart.Visible = False
Else
Green = rsDay.RecordCount
ReDim thesalwaterroom(1 To Green, 1 To 2)
Dim i As Integer
For i = 1 To Green
thesalwaterroom(i, 1) = Trim(Format(rsDay("Tgl_Entry"), "dd mmm yyyy"))
thesalwaterroom(i, 2) = rsDay("Total")
' thesalwaterroom(2, 2) = rsDay("Total")
' thesalwaterroom(i, 3) = rsDay("Total")
rsDay.MoveNext
Next i
WO_Chart.ChartData = thesalwaterroom
' WO_Chart.ColumnLabel = rsDay("Tgl_entry")
WO_Chart.RowCount = Green
If LapTransaksiWO_Frm.Semua_Opt.Value = True Then
If LapTransaksiWO_Frm.All_Opt.Value = True Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text
ElseIf LapTransaksiWO_Frm.Billing_Opt.Value = True Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Status Billing = " & LapTransaksiWO_Frm.Billing_Opt.Value
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Status Billing = " & LapTransaksiWO_Frm.Billing_Opt.Value
End If
ElseIf LapTransaksiWO_Frm.Jasa_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Jasa = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Jasa = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
End If
ElseIf LapTransaksiWO_Frm.Part_Opt.Value = True Then
If LapTransaksiWO_Frm.Pilihan_Cmb.Text = "Semua" Then
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Part = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
Else
WO_Chart.ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text & " / Jenis Part = " & LapTransaksiWO_Frm.Pilihan_Cmb.Text
End If
End If
With WO_Chart
' .EditCopy
' .EditPaste
' .Plot.DefaultPercentBasis
' .IsValueShownAsLabel = True
'.DataGrid.InitializeLabels = rsDay("Total")
.Legend.Location.LocationType = VtChLocationTypeBottomLeft
.Plot.Axis(VtChAxisIdX).Labels(1).Auto = True
' .ColumnLabel = LapTransaksiWO_Frm.Lokasi_Cmb.Text
' .Tag = rsDay("Total")
End With
' WO_Chart.SeriesColumn = "merna"
' WO_Chart.ColumnCount = rsDay.RecordCount
' WO_Chart.SeriesColumn = Green
Set rsDay = Nothing
End If
End If
End Sub
Attachment 98111