11/03/2009, 14:58
altangüven
Hocam süpersin verdiğin kod çalıştı. Teşekkürler.
kodların bu raporum için şöyle oldu;
açıldığında:
Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.OpenForm "DSİRAPOR", , , , , acDialog, "Dönem"
If Not IsLoaded("DSİRAPOR") Then
Cancel = True
End If
End Sub
kapandığında:
Private Sub Report_Close()
DoCmd.Close acForm, "DSİRAPOR"
End Sub
veri yokken:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Rapor, veri olmadığından iptal ediliyor."
Cancel = -1
End Sub
mükemmelsiniz..
kodların bu raporum için şöyle oldu;
açıldığında:
Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.OpenForm "DSİRAPOR", , , , , acDialog, "Dönem"
If Not IsLoaded("DSİRAPOR") Then
Cancel = True
End If
End Sub
kapandığında:
Private Sub Report_Close()
DoCmd.Close acForm, "DSİRAPOR"
End Sub
veri yokken:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Rapor, veri olmadığından iptal ediliyor."
Cancel = -1
End Sub
mükemmelsiniz..