Mau ikut sumbang saran..
coba pada button prev disederhanakan menjadi
Private Sub Prev_Click()
Private Sub Prev_Click()
On Error Resume Next
If Me.Frame11.Value = 1 Then 'Me.TglTerpilih Then
'DoCmd.OpenReport "RFormatBesar", acViewPreview
DoCmd.OpenReport "rformatbesar", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
Else
'If Me.Kecil = Me.TglTerpilih Then
DoCmd.OpenReport "RFormatKecil", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
' Cetak 1
'End If
End If
End Sub
Private Sub Prev_Click()
On Error Resume Next
If Me.Frame11.Value = 1 Then 'Me.TglTerpilih Then
'DoCmd.OpenReport "RFormatBesar", acViewPreview
DoCmd.OpenReport "rformatbesar", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
Else
'If Me.Kecil = Me.TglTerpilih Then
DoCmd.OpenReport "RFormatKecil", acViewPreview, , "tglpelatihan = '" & Me!TglTerpilih & "'"
' Cetak 1
'End If
End If
End Sub
semoga membantu
Dari: Sutrisno Ae <trisno_ae@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Senin, 18 Juli 2011 10:18
Judul: Re: [belajar-access] Re: cetak report [1 Attachment]
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.
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@live.com>
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]))
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,
>
'==========
--- 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,
>
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
No comments:
Post a Comment