Matur nuwun mas....garis besarnya sama ya mas sama yg contoh number....
Semoga Tuhan memberikan pahala atas sharing ilmu mas...amin
Regards
Hendra
From: Nyong Arif <nyong_arif@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Thursday, April 26, 2012 3:25 AM
Subject: Bls: Bls: Bls: [belajar-access] [Hasil](n)=Record(n) - Record(n-1) [1 Attachment]
Dear Hendra
Terlampir Contoh seperti yang diinginkan. Semoga Membantu
Terlampir Contoh seperti yang diinginkan. Semoga Membantu
Terima Kasih
Salam,
Syarief Nyong
Dari: Hendra Agestha Hamid <the_agestha@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Rabu, 25 April 2012 22:08
Judul: Re: Bls: Bls: [belajar-access] [Hasil](n)=Record(n) - Record(n-1)
Wah makasih mas nawarin contoh yang tanggal... :)
Kalo data Time aja gak apa ya mas, soalnya ini bakal banyak berguna juga buat yang lain...
contoh misal tempat persewaan karaoeke, atau sewa lapangan futsal, atau studio musik dimana penyewaan berdasar jam..
Kalo data Time aja gak apa ya mas, soalnya ini bakal banyak berguna juga buat yang lain...
contoh misal tempat persewaan karaoeke, atau sewa lapangan futsal, atau studio musik dimana penyewaan berdasar jam..
dan kadang karena suatu hal jam pemesanan tidak bisa bulat jamnya...misal gini mas :
Jam pesan Gap
10:00 0
11:15 1:15
12:15 1:00
15:00 2:45
15:00 2:45
Terima kasih mas atas atensinya....
Best Regards
Hendra
Best Regards
Hendra
From: Nyong Arif <nyong_arif@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Tuesday, April 24, 2012 10:12 PM
Subject: Bls: Bls: [belajar-access] [Hasil](n)=Record(n) - Record(n-1)
Dear Hendra...
Bisa lebih jelas contoh yang diinginkan dengan menggunakan Tanggal?
Bisa lebih jelas contoh yang diinginkan dengan menggunakan Tanggal?
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: Selasa, 24 April 2012 20:50
Judul: Re: Bls: [belajar-access] [Hasil](n)=Record(n) - Record(n-1)
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