AccessTr.neT

sayın Çevik,

kodlarda herhangi bir sorun söz konusu değildir.

aksine,önceki mesajlarda da dikkat çekildiği üzere,
denetim ve alan adları tanımlarınızda BOŞLUK olması nedeni ile bu hata olmakta.

Hizmet_Tarihi adlı alan ve denetim adında BOŞLUK mevcut.

eğer Hizmet_Tarihi gibi değiştirip kullanırsanız sorun olmayacaktır.

kodları,sizin yazdığınız halde bıraktım ki,akabinde bunu düzelterek yeniden yazarsınız diye.

bilginize...iyi çalışmalar,saygılar.

Hocam cok cok tesekkurler sımdı tamam ancak yazdrmadan vazgecınce resımdekı gıbı bı hata alıyorum!

Sayın Çevik,

Eklediğiniz hata resmine dair aşağıdaki açıklamanın yapılması uygun görülmüştür.

DoCmd.RunCommand acCmdPrint

Kod satırı kullanımlarında,hata kapanları yazılıp da kullanılmak istendiğinde dahi aynı hatayı vermeye devam etmekte olduğu görülmektedir.

Aslında bu kod yerine,eklediğiniz resimde görülen YAZDIR adlı butonun içeriğine direkt olarak,

DoCmd.OpenReport "rapor1", acViewPreview

Kod satırını yazmak sureti ile ilgili raporu çalıştırmanız ve eğer bu rapor açıkken yazdırma işleminden vazgeçecek olursanız,çıkış butonuna (çarpı işaretine) basıp işlemi iptal etmeniz daha sağlıklı olacaktır kanısındayım.

lendi adıma,her zaman bu kodu kullanarak raporların yazdırma işlemlerini sağlamaktayım.

Bilginize…iyi çalışmalar,saygılar.

Örnekte Rapor olmadığından sanırım form yazdırılmak isteniyor.

Butonun tıklandığında olayındaki kodda

Docmd.runcommand....... kodunu silin, yerine aşağıdaki kodu ekleyiniz.

    Dim stDocName As String

    Dim MyForm As Form



    stDocName = "HİZMET FORMU"

    Set MyForm = Screen.ActiveForm

    DoCmd.SelectObject acForm, stDocName, True

    DoCmd.PrintOut

    DoCmd.SelectObject acForm, MyForm.Name, False

Ozan bey ve atoz bey cok cok tesekkurler ilgi ve alakanızdan dolayı