[belajar-access] Re: Option Group (radio button) - menangkap bilainya?

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, December 01, 2009 10:50 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 <widwid79@...> wrote:
>
>
> From: sri widayati <widwid79@...>
> 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 <widwid79@yahoo. com> wrote:
>
>
> From: sri widayati <widwid79@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
>
>