Rabu, 25 April 2012

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

 
[Attachment(s) from Nyong Arif included below]


Dear Hendra
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..
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

Terima kasih mas atas atensinya....
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?

Terima Kasih

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...
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


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

 
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

terima kasih...

Regards
Hendra










__._,_.___

Attachment(s) from Nyong Arif

1 of 1 File(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar