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 ?
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 ?