Private Sub Command3_Click()
If Me.Frame11 = Me.Besar.OptionValue Then
DoCmd.OpenReport "RFormatBesar", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
ElseIf Me.Frame11 = Me.Kecil.OptionValue Then
DoCmd.OpenReport "RFormatKecil", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
End If
End Sub
semoga semangat
--- In belajar-access@yahoogroups.com, Sutrisno Ae <trisno_ae@...> wrote:
>
> makusud saya formatnya seperti berikut mas,
>
> saya punya format report 2.
>
> 1. RFormatBesar
> 2. RFormatKecil
>
> di formnya aku tambahkan fungsi option. jadi kalau di click option besar maka
> yang ditampilkan report Format yang besar saja,
> kalu yang di click option kecil maka yang tampil report kecil. mohon
> petunjuknya.
>
> terima kasih
>
> File mdb terlampir.
>
>
>
>
> ________________________________
> From: sudarsono jkssbma@...
> To: belajar-access@yahoogroups.com
> Sent: Mon, July 18, 2011 8:26:48 AM
> Subject: [belajar-access] Re: cetak report
>
>
> Gunakan ini di [record Source] dari Report anda :
>
> SELECT Table11.ID, Table11.contoh, Table11.tanggal
> FROM Table11
> ; WHERE (((Table11.tanggal) Between [forms]![Form1]![TextAwal] And
> [Forms]![Form1]![TextAkhir]))
> table11 dapat diganti dengan Query
> '==========
> --- In belajar-access@yahoogroups.com, "Soetrisno" trisno_ae@ wrote:
> >
> > salam rekan2 millis
> >
> > saya mau tanya gimana caranya membuat cetak report berdasarkan tanggal,
> > mohon bantuannya..
> >
> > terima kasih
> > salam,
> >
>
No comments:
Post a Comment