Makasih Master Aksan :)
Saya coba berhasil

 Best regrads,
Sri Widayati




________________________________
From: aksankurdin <[email protected]>
To: [email protected]
Sent: Tue, December 1, 2009 10:50:47 AM
Subject: [belajar-access] Re: Option Group (radio button) - menangkap bilainya?

   
@mbak sri,
sebenarnya apa yang anda lakukan ?
jika pertanyaan anda mengenai option group, maka bentuk kontrolnya berupa 
sebuah frame dengan beberapa option button di dalamnya.

+--Nama Group------- ----+
|                       |
|  ( ) Option 1         |
|                       |
|  ( ) Option 2         |
|                       |
+----------- --------- ---+

Misalkan nama framenya adalah fraJenisPerawatan, nilai option value setiap 
option button adalah berturut-turut 1 dan 2 (default), maka seharusnya kode 
anda seperti:

select case fraJenisPerawatan 
case 1: rst![jenis_perawata n] = "PM"
case 2: rst![jenis_perawata n] = "PB"
case else: rst![jenis_perawata n] = ""
end select

Jadi bukan nge-trap kode di setiap option button, tetapi cukup dari frame-nya 
saja.
pergunakan event frame_on_klik.

aksan kurdin

--- In belajar-access@ yahoogroups. com, edi rosadi <edirosadie@ ...> wrote:
>
> silahkan dipelajari contoh berikut :
> Â 
> Option Compare Database
> Dim nilai As Integer
> Â 
> Private Sub Option15_GotFocus( )
> Â nilai = 1
> End Sub
> Â 
> Private Sub Option17_GotFocus( )
> Â nilai = 2
> End Sub
> Â 
> Private Sub Command9_Click( )
> Â If nilai = 1 Then
> Â  rst![jenis_perawata n] = "PM"
> Â Else
> Â  rst![jenis_perawata n] = "PB"
> Â End If
> End Sub
> 
> 
> Salam,
> 
> Edi Rosadi
> http://edirosadie. blogspot. com
> http://cilegonmap. blogspot. com
> http://cilegonan. wordpress. com
> Â 
> Â 
> Â 
> Â 
> komersilkan blog atau website anda dengan bergabung di sini atau di sini
> Â 
> 
> 
> 
> 
> --- On Tue, 1/12/09, sri widayati <widwi...@.. .> wrote:
> 
> 
> From: sri widayati <widwi...@.. .>
> Subject: Re: [belajar-access] Option Group (radio button) - menangkap 
> bilainya?
> To: belajar-access@ yahoogroups. com
> Date: Tuesday, 1 December, 2009, 9:25 AM
> 
> 
> Â  
> 
> 
> 
> 
> tengkiu Pak Edi..
> 
> tetapi saya coba blum berhasil jg... (operasi checked tidak dikenali).
> 
> Â Best regrads,
> Sri Widayati
> 
> 
> 
> 
> 
> 
> From: edi rosadi <edirosadie@ yahoo. com.sg>
> To: belajar-access@ yahoogroups. com
> Sent: Mon, November 30, 2009 4:50:37 PM
> Subject: Re: [belajar-access] Option Group (radio button) - menangkap 
> bilainya?
> 
> Â  
> 
> 
> 
> 
> 
> If (Me.Option15. checked= true) Then
> 
> 
> Salam,
> 
> Edi Rosadi
> http://edirosadie. blogspot. com
> http://cilegonmap. blogspot. com
> http://cilegonan. wordpress. com
> Â 
> Â 
> Â 
> Â 
> komersilkan blog atau website anda dengan bergabung di sini atau di sini
> Â 
> 
> 
> 
> 
> --- On Mon, 30/11/09, sri widayati <widwi...@yahoo. com> wrote:
> 
> 
> From: sri widayati <widwi...@yahoo. com>
> Subject: [belajar-access] Option Group (radio button) - menangkap bilainya?
> To: belajar-access@ yahoogroups. com
> Date: Monday, 30 November, 2009, 3:21 PM
> 
> 
> Â  
> 
> Selamat sore para master....
> 
> Saya mempunyai problem, bgmn menangkap nilai / isi dari radio button.
> Pilihan pertama PM (option15)
> dan kedua PB (option17)
> Saya menuliskan script :
> If (Me.Option15. Value = 1) Then
> rst![jenis_perawata n] = "PM"
> Else
> rst![jenis_perawata n] = "PB"
> End If
> Tetapi masih salah (Me.Option15. Value=<you entered the expression that has 
> no value>
> 
> Sebenarnya bgmn utk menangkap option value yang tidak dibound lgs.
> Terima kasih
> 
> Best regrads,
> Sri Widayati
> 
> 
> 
> 
> Yahoo! Toolbar is now powered with Search Assist.. Download it now!
>


 


      

Kirim email ke