ACCESS FEED: Re: [belajar-access] Bertanya cara mencari maksimal antar kolom dalam Ms. Access

Sabtu, 12 April 2014

Re: [belajar-access] Bertanya cara mencari maksimal antar kolom dalam Ms. Access

kata mario teguh, super ......
jempol cak....

aksan kurdin

On Friday, April 11, 2014 10:23:49 PM, hari yanto wrote:
> Nidha...,
>
> Buatlah module yang berisi perbandingan antara ketiga nilai dari field
> tersebut. Hasil terbesarnya, kembalikan ke query.
>
> Misal script ini:
>
> Option Explicit
>
> Function max_val(a As Variant)
> Dim dd As Variant
> Dim i As Long
>
> If a <> "" Then
> a = Split(a, "|")
> dd = Nz(a(0),0) * 1
> For i = 1 To UBound(a)
> If Nz((a(i) * 1),0) > dd Then
> dd = Nz(a(i) * 1,0)
> End If
> Next i
> Else
> dd = 0
> End If
>
> max_val = dd
>
> End Function
>
> Dari sini, untuk menjalankan max_val, dibutuhkan variabel berupa
> angka-angka yang digabung dengan pemisah |
>
> Misal max_val("3|9|10|")
>
> 1. berarti a ada isinya sehingga bisa masuk ke proses pemisahan
> (split) dengan pemisah |
> 2. Kita tetapkan data pertama sebagai pembanding awal ==> a(0). Nz
> untuk mengembalikan bila tidak ada isinya. Sehingga bisa dikalikan 1.
> 3. For i=1 berarti mulai pembanding ke-2. Karena yang pertama kita
> pakai sebagai control (di database record dimulai dari 0)
> 4. Jika pembanding ke-2 lebih besar, ganti control dengan nilai yang
> lebih besar itu.
> 5. Begitu seterusnya.
>
> Hasil akhir kembalikan ke user.
>
> Untuk menjalankannya, buat query baru. Misal ada 3 field. a,b,c.
> Selanjutnya untuk menampung field perbandingan paling maksimal, tambah
> 1 field yang isinya d_max: max_val([a] & "|" & [b] & "|" & [c])
>
> Selanjutnya buka dan lihat hasilnya.
>
> Semoga bisa membantu dan memberi semangat.
>
> Hariyanto (Surabaya)
>
> --------------------------------------------
> On Fri, 11/4/14, nidz_maniez@yahoo.com <nidz_maniez@yahoo.com> wrote:
>
> Subject: Re: [belajar-access] Bertanya cara mencari maksimal antar
> kolom dalam Ms. Access
> To: belajar-access@yahoogroups.com
> Date: Friday, 11 April, 2014, 6:11 PM
> terima kasih rekan Hariyanto dan Aksan Kurdin atas
> responnya,
> tapi mohon maaf saya kq masih belum mudeng ya.. :D
> contoh tabelnya sbb:
> No.
> | kolomA | kolom
> B | Kolom C |
> ==================================
> 1 | 50 | 70 | 80 |
> 2 | 10 |
> 20 | 40 |
> dst..
>
> nah saya ingin di kolom D akan muncul maksimum dari masing2
> baris,
> kalau di excel rumusnya kan kolom D = max (kolom A:
> kolom C),
> kalau di akses seperti apa? saya pakai access di
> desain view nya, belum lancar pakai sql view.
> apakah operasi seperti ini bisa dilakukan d desain view?
> mohon penjelasan detailnya rekan2 semua..
>
> terima kasih banyak..
>
>
> regards,
> Nidha
>
>
>
>
>
>
>
>
>
>
>
>
>