Trima kasih mas, codingnya berhasil dengan sukses tapi saya rubah sdikit karena awalnya erorr,
cuma salah nama kok...rs!Data saya ganti rs!Value.
Saya kemudian coba modif utk type data Date&Time,
Pertama saya coba Type Date...saya edit Dim x As Date, dan Field Value saya isi data format dd-mm-yyyy ..
waktu saya run code jalan tapi di Field Hasil tetap kosong...
cuma salah nama kok...rs!Data saya ganti rs!Value.
Saya kemudian coba modif utk type data Date&Time,
Pertama saya coba Type Date...saya edit Dim x As Date, dan Field Value saya isi data format dd-mm-yyyy ..
waktu saya run code jalan tapi di Field Hasil tetap kosong...
Kedua saya mau coba type Time,,tapi gak ada ya mas pilihan As Time-nya..?
Mohon bimbingan lagi mas untuk type data Date&Time..
Regards
hendra
Regards
hendra
From: Nyong Arif <nyong_arif@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Tuesday, April 24, 2012 9:56 AM
Subject: 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
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
Coba Buka Table1 => Lihat hasilnya...
Selamat mencoba
Terima Kasih
Salam,![]()
Syarief Nyong
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
terima kasih...
Regards
Hendra
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar