Untuk yang begini terus terang belum pernah coba, Untuk yang saya ganti merah bener ga ya?
salam, sukarno ----- Original Message ----- From: ara Firmansyah To: [email protected] Sent: Tuesday, November 06, 2007 8:16 AM Subject: Re: [belajar-access] Bagaimana membandingkan 3 field ??? dan disimpan pada 1 field?? Mas Sukarno, minta tolong lagi nich..! Maaf sebelumnya! Sy mencoba menerapkan logika tersebut di form dengan code sbb : Private Sub HitungHargaPas() On Error Resume Next Dim hRef1x As Double, hRef2x As Double, hRef3x As Double Dim hargamax As Double Dim h1 As Double, h2 As Double, h3 As Double Dim xharga_pas As Double hRef1x = Me!hRef1 hRef2x = Me!hRef2 hRef3x = Me!hRef3 If (hRef1x > hRef2x And hRef1x > hRef3x) Then hargamax = hRef1x If (hRef2x > hRef1x And hRef2x > hRef3x) Then hargamax = hRef2x If (hRef3x > hRef1x And hRef3x > hRef2x) Then hargamax = hRef3x End If End If End If If hRef1x = 0 Then h1 = hargamax Else h1 = hRef1x End If If hRef2x = 0 Then h2 = hargamax Else h2 = hRef2x End If If hRef3x = 0 Then h3 = hargamax Else h3 = hRef3x End If If (h1 < h2 And h1 < h3) Then xhHPS = h1 If (h2 < h1 And h2 < h3) Then xhHPS = h2 If (h3 < h1 And h3 < h2) Then xhHPS = h3 End If End If End If xharga_pas = Me!harga_pas End Sub Private Sub hHPS_AfterUpdate() Call HitungHargaPas End Sub Private Sub hRef2_AfterUpdate() Call HitungHargaPas End Sub Private Sub hRef3_AfterUpdate() Call HitungHargaPas End Sub Tapi engga jalan mohon bantuannya ! mungkin sy salah!!! terima kasih sebelumnya!! ----- Original Message ---- From: sukarno <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, November 1, 2007 4:05:00 PM Subject: Re: [belajar-access] Bagaimana membandingkan 3 field ??? dan disimpan pada 1 field?? maaf, revisi lihat di atachment aja pak. ----- Original Message ----- From: sukarno To: belajar-access@ yahoogroups. com Sent: Thursday, November 01, 2007 3:07 PM Subject: Re: [belajar-access] Bagaimana membandingkan 3 field ??? dan disimpan pada 1 field?? di Query mungkin bisa dicoba begini Pak, hargapass: IIf([harga1]<[harga2] And [harga1]<[harga3],[harga1] ,IIf([harga2]<[harga1] And [harga2]<[harga3],[harga2] ,IIf([harga3]<[harga1] And [harga3]<[harga2],[harga3] ))) salam, sukarno ----- Original Message ----- From: ara Firmansyah To: belajar-access@ yahoogroups. com Sent: Thursday, November 01, 2007 2:02 PM Subject: [belajar-access] Bagaimana membandingkan 3 field ??? dan disimpan pada 1 field?? Asslamualaikum Wr.Wb. Mohon pencerahannya pada suhu Access!! Bagaimana membanding mana yang paling kecil nilainya tetapi bukan nol dari 3 field, dan di simpan di 1 field???? Misal : Sy punya tabel subBarang dengan field kodebrg, nama_brg, vol, harga1, harga2, harga3, harga_pas Bagaimana membandingkan mana yang paling kecil (tetapi bukan nol) antara harga1, harga2, harga3 dan di simpan di harga_pas. Sebelumnya saya ucapakan terima kasih, mohon maaf bila pertanyaannya membingungkan. Sekali lagi mohon maaf!! Wassalam , Ara ____________ _________ _________ _________ _________ __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail. yahoo.com __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
