Pakai for next aja biar lebih simpel
Dim boolOpt as boolean
Dim i as integer
boolOpt=False
For i=1 to optButton.Ubound
if optButton(i).Value=True then
boolOpt=True
exit for
end if
next
if boolOpt=True then
'Pilih Opsi dulu !
else
'OK
end if
Best Regards,
David J M
Advess - ISV
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of bambang supriadi
Sent: Saturday, May 19, 2007 6:13 PM
To: [email protected]
Subject: Re: [indoprog-vb] menampilkan pesa error saat tidak ada salah satu
option button yang dipilih?
Makasih ya mas. Saya pake logika AND aja ky gini, barusan aj kepikiran
If optButton(1).value = False _
And optButton(2).value = False _
And optButton(3).value = False _
And optButton(4).value = False _
And optButton(5).value = False _
And optButton(6).value = False _
And optButton(7).value = False _
And optButton(8).value = False _
Then
MsgBox "Silahkan Pilih Opsi Terlebih Dahulu", vbCritical, "PERHATIAN"
End If
Suryo <[EMAIL PROTECTED] <mailto:suryo%40smalplus.com> com> wrote:
di beri index trus di counter dan di check 1 per 1 berdasarkan indexnya mas
----- Original Message -----
From: bambang supriadi
To: indoprog-vb@ <mailto:indoprog-vb%40yahoogroups.com> yahoogroups.com
Sent: Saturday, May 19, 2007 5:54 PM
Subject: [indoprog-vb] menampilkan pesa error saat tidak ada salah satu
option button yang dipilih?
Mohon maaf pertanyaannya mungkin sangat mudah sekali tapi aku udah nyoba kok
tetep ga bisa. Mohon petunuknya dari sesepuh-sesepuh semuanya. Makasih ya
---------------------------------
Don't get soaked. Take a quick peak at the forecast
with theYahoo! Search weather shortcut.
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
---------------------------------
Give spam the boot. Take control with tough spam protection
in the all-new Yahoo! Mail Beta.
[Non-text portions of this message have been removed]
__________ NOD32 2276 (20070518) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
[Non-text portions of this message have been removed]
