ACCESS FEED: Bls: [belajar-access] [Hasil](n)=Record(n)

Senin, 23 April 2012

Bls: [belajar-access] [Hasil](n)=Record(n) - Record(n-1)

Dear Hendra,

Buat Sebuah Tabel yang berisi Field Data dan Hasil => Katakanlah Nama Table = Table1

Isikan Nilai di Field Data sesuai dengan Data mas Hendra.

Buka VBA => Insert Modul...

Copikan Prosedur Function ini :

Public Function GetHasil()
Dim db As Database
Dim rs As Recordset
Dim x As Integer
Dim s As String

s = "SELECT * FROM Table1"

Set db = CurrentDb
Set rs = db.OpenRecordset(s)

rs.MoveFirst
x = 0 ' Mendefinisikan x sebagai angka pengurang, jika diawal record maka x = 0
While Not rs.EOF
    db.Execute "UPDATE Table1 Set Hasil =" & rs!Data - x & " WHERE Data = " & rs!Data ' Mengupdate Nilai Hasil Sesuai Keinginan [Hasil](n)=Record(n) - Record(n-1)
    x = rs!Data ' x sebagai tempat menyimpan nilai record sebelumnya yang nantinya sebagai pengurang record berikutnya
    rs.MoveNext
Wend

Set rs = Nothing
Set db = Nothing

End Function

Klik Run atau ! atau tekan f8,

Coba Buka Table1 => Lihat hasilnya...

Selamat mencoba

Terima Kasih

Salam,
Syarief Nyong

Dari: Hendra Agestha Hamid <the_agestha@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Senin, 23 April 2012 21:49
Judul: [belajar-access] [Hasil](n)=Record(n) - Record(n-1)

Dear Warga Milis ...

Bagaimana caranya untuk memperoleh hasil perhitungan [Hasil](n)=Record(n) - Record(n-1),

Mungkin untuk lebih mudahnya saya beri contoh seperti dibawah :

Data Hasil

1 0

5 4

8 3

10 2

dimana Data [Hasil] : (0)=1 - (tdk ada Record(n-1)),

(4)=5 - 1

(3)=8 - 5

(2)=10 - 8