Arama Sorunu

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 belirttiğniz kodu ekledim oldu, tşk.

CTRL+alt+delete yapmadan programı nasıl açarız ? sorun nedir acaba ? Tşk.

formun çıkış kodu yok yani kapat kodu yok

Private Sub OLEİlişkisiz110_Click()
DoCmd.Close
End Sub

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.