Saya coba bantu lagi..
Query yang sudah saya buat sebelumnya sudah tidak relevan lg utk kasus seperti itu,
Untuk dapat seperti itu, tinggal bikin pakai SQL yang where conditionnya Bulan, Tahun dan Location
Scriptnya kurang lebih seperti :
Dim LastParNo As Integer, Curr_Month As Integer, rs As New ADODB.Recordset, StrSQL As String
Curr_Month = Month(Me.Date1)
StrSQL = "Select Top 1 * From TblPartikel Where Location='" & Trim(Me.Location) & "' and month(date1)=" & Curr_Month & " and year(date1)=" & Year(Me.Date1) & " Order By IDPartikel Desc"
rs.Open StrSQL, CurrentProject.Connection, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then
LastParNo = rs!Particle_Number1
Me.Moving_Range = Abs(LastParNo - Me.Particle_Number1)
Else
Me.Moving_Range = 0
End If
rs.Close
Mudah2an bisa membantu
Kuncara Arief
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 06 Nopember 2014 15:21
To: belajar-access@yahoogroups.com
Subject: [Bulk] RE: [Bulk] [belajar-access] Moving Range
Terimakasih mas Kuncara atas responsnya.
Sebenarnya sudah seperti yang saya harapkan tp ada pertanyaan lain yg saya lupa jelaskan diawal sbb:
1. Untuk location sebenarnya ada lebih dari 1 location katakanlah 1,2 dan 3.
2. Untuk setiap bulan yang berbeda maka Moving Rangenya mulai lagi dari 0 (Nol)
Yg diharpakan:
1. Ketika Location-nya sama dan bulanya sama maka dia akan mengurangi angka terakhir dari location dan bulan yang sama.
2. ketika location berbeda maka Moving Rangenya balik lagi jadi 0 (Nol) atau Bulan-nya berbeda walaupun locationya sama maka Moving Range-nya balik lagi jadi 0 (Nol).
Jadi angka Moving Range adalah hasil pengurangan angka terakhir dari Locaion dan Bulan yang sama, intinya setiap awal bulan angka Moving Range mulai lagi dari 0 (Nol). Mudah2an pertanyaan saya bisa difahami.
Best Regards
CW
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 06 Nopember 2014 10:27
To: belajar-access@yahoogroups.com
Subject: RE: [Bulk] [belajar-access] Moving Range [1 Attachment]
[Attachment(s) from kuncara.arief@yahoo.co.id [belajar-access] included below]
Saya coba bantu yah..
Terlampir hasil modifikasinya,
untuk catatan penamaan sebuah field sebaiknya jangan menggunakan TIME, DATE
Semoga membantu
Kuncara Arief
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 05 Nopember 2014 9:27
To: belajar-access@yahoogroups.com
Subject: [Bulk] [belajar-access] Moving Range [1 Attachment]
[Attachment(s) from 'cepwahyu' cepwahyu@gmail.com [belajar-access] included below]
Dear Access mania,
Bagaimana menerapkan rumus moving range di access?
Dicontoh terlampir, angka di filed moving range-nya masih manual. Yang saya inginkan ketika kolom Particle Number diisi maka kolom Moving Range terisi angka hasil perhitungan pengurangan record baris diatasnya dan hasilnya harus selalu positif seperti yg saya masukan secara manual.
Mohon dibantu solusinya ya.
Best Regards
CW
Attachment(s) from kuncara.arief@yahoo.co.id [belajar-access] | View attachments on the web
1 of 1 File(s)
Posted by: <kuncara.arief@yahoo.co.id>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (5) |
Tidak ada komentar:
Posting Komentar