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
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
