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

Jumat, 11 April 2014

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

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