bisa gunakan fungsi dibawah.
Jangn lupa reference ke excel dicentang
Salam hangat dan jabat erat,
Edy WIYONO
Option Compare Database
Public Function fForecast(ByVal strKota As String, ByVal argX As Double) As
Double
Dim rst As DAO.Recordset
strSQL = "SELECT Penj.Tanggal,Penj.Penj From Penj Where Kota='" & strKota &
"' AND Len(Penj.Penj)>0"
Set rst = CurrentDb.OpenRecordset(strSQL)
If Not rst.EOF Then
rst.MoveLast
rst.MoveFirst
End If
Dim arrPenj() As Double
Dim arrTanggal() As Double
ReDim arrPenj(rst.RecordCount - 1)
ReDim arrTanggal(rst.RecordCount - 1)
For i = 1 To rst.RecordCount
arrTanggal(i - 1) = rst!Tanggal
arrPenj(i - 1) = rst!Penj
rst.MoveNext
Next
Dim dblN As Double
dblN = Excel.WorksheetFunction.Forecast(argX, arrPenj, arrTanggal)
fForecast = Excel.WorksheetFunction.Round(dblN, 0)
Set rst = Nothing
End Function
----- Original Message -----
From: Eko Puji Santoso
To: [email protected]
Sent: Friday, December 19, 2008 10:38
Subject: [belajar-access] Estimasi
Dear All Master Access,
Mohon pencerahan, bagaimana mengisi kolom Estimasi & Total seperti contoh
Excel terlampir?
Matur nuwun.
Salam,
eko.ps
