access 2003 te yapmıs oldugum vardıya defterı kayıt programında makine park numarası seçilerek acıklama yazılmıs bir formum var bu formda aylık bakımı yapıldı ,haftalık bakımı yapıldı , 3 aylık bakımı yapıldı seceneklerı mevcut.check box olarak bu kutucukların herhangi biri işaretlendiğinde excelde hazırlanmıs olan bakım föyünü yazdırmak ıstıyor musunuz ?sorusu ve evet cevabı verıldıgınde mevcut formun yazdırılmasını ıstıyorum mumkun mudur ?

mumkun degıl sanırım

forumda bılgı veren bır yer varsa bılen bır arkadasımız lnkı atar ıse sevınırım

Hafta için;
hafta onay kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

 Dim stDocName As String

 Dim MyForm As Form

 Dim mesaj As Integer



If Me.hafta = "-1" Then



 mesaj = MsgBox("excelde hazırlanmıs olan bakım föyünü yazdırmak ıstıyor musunuz ?", vbYesNo)

 If mesaj = vbYes Then

 stDocName = "vardefteri"

 Set MyForm = Screen.ActiveForm

 DoCmd.SelectObject acForm, stDocName, True

 DoCmd.PrintOut

 DoCmd.SelectObject acForm, MyForm.Name, False

 End If

End If

İstediğiniz bu ise tabi.

dosya yolunu belırtmem gerekmeyecek mı ??

(15/03/2012, 21:39)disa2006 yazdı: dosya yolunu belırtmem gerekmeyecek mı ??

"mevcut formun yazdırılmasını ıstıyorum" diye yazdığınız için mevcut formu yani "vardefteri" formunu yazdıracak kod ekledim.

Siz ne yapılmasını istiyorsunuz ?