Private Sub Komut232_Click()
If MsgBox("YAZDIRILSIN MI?", _
vbYesNo) = vbYes Then
DoCmd.OpenReport "IKITARIH", acViewPreview, "", , acNormal
Cancel = True
Me.Undo
End If
End Sub
raporlama makrosu yerine olay yordamı olarak bunu yazın deneyin
Sn.C*e*l*o*y*c*e. kodumu aldım işyerine geçiyorum.Teşekkür ediyorum.
Muhtemelen konu çözülmüştür.accesman '' konunun son halini ekler misiniz'' demeden eklerim.