+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor ve Form sayfasının üstüste açılması (/konu-rapor-ve-form-sayfasinin-ustuste-acilmasi.html)
Cvp: Rapor ve Form sayfasının üstüste açılması - kenan827 - 16/02/2016
Çok teşekkürler hocam elleriniz sağlık tam istediğim gibi olmuş. Daha önceki dosyama uygulayamadım.
eklediğiniz kodu aşağıdaki kodlara nasıl uygulamam gerekiyor
DoCmd.OpenReport "tbl_kisiler", acPreview
Kod:
Private Sub Komut33_Click()
'Yacıyı seç başı
Dim strDefaultPrinter As String
' Geçerli Yazıcı
strDefaultPrinter = Application.Printer.DeviceName
' Fatura Yazıcısı Tanımla
Set Application.Printer = Application.Printers("Microsoft XPS Document Writer")
'Yacıyı seç sonu
'ATOZ:
'YAZDIRMA İÇİN MESAJ BİLDİRİMİ
'SetProp "AllowShortcutMenus", dbBoolean, False 'Kısayol menusu aktifleştirme
'EĞER FaturaID BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Me.Undo
Exit Sub
End If
'EĞER ALT FORMDAKİ Toplam ve Yekun DENETİMLERİ BOŞSA,KAYDETME İPTALİ İÇİN
If IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Toplam]) Or Forms![FaturaGiris]![FaturaDetay].Form![Toplam] = "" Or IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Yekun]) Or Forms![FaturaGiris]![FaturaDetay].Form![Yekun] = "" Then
MsgBox ("Alt formdaki" & vbCr & vbCr & "Toplam" & vbCr & "Yekun" & vbCr & vbCr & "denetimleri BOŞ olduğu için" & vbCr & "KAYIT İŞLEMİ İPTAL EDİLMİŞTİR."), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"
Cancel = True
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Else
DoCmd.OpenReport "FaturaDokum", acPreview
Set Application.Printer = Application.Printers(strDefaultPrinter) 'Varsayılan Yazıcıya Geri Dön...
End If
End SubCvp: Rapor ve Form sayfasının üstüste açılması - atoz112 - 16/02/2016
sayın kenan827,
eklediğiniz kodlar bu konunuzdaki örnek üzerinden gidilecek olursa farklı nitelikte görünüyor.
bu kodlar ile yapmak istediğiniz nedir?
tek bir olay yordamı içerisinde
1) raporu açıp
2) yazıcıyı seçip
3) tek sayfa baskı almak mı istiyorsunuz?
çünkü;bu konunuzda talebiniz;raporu açtıktan sonra ayrı bir form üzerinde yazıcı seçip sonrasında çıktı almak.
son olarak,bu eklediğiniz kodları içeren örneği görmek gerekmektedir.çünkü;düzenlemeyi, ona göre yapmak lazım,eğer ki tüm işlemi tek bir olayda halletmek istiyorsanız.
kaldı ki,fark ettiyseniz;yazıcı seçme formu,raporun AÇILDIĞINDA olay yordamına yazılmıştır.
aslında,buradaki örnekten hareketle,asıl uygulamanıza adapte edebilirsiniz,benzer işlemleri sağlamak sureti ile.
bilginize...iyi çalışmalar,saygılar.
Cvp: Rapor ve Form sayfasının üstüste açılması - kenan827 - 16/02/2016
Hocam Ayni kodları aşağıdaki programa eklerseniz sevinirim. Saygılar.
Cvp: Rapor ve Form sayfasının üstüste açılması - atoz112 - 16/02/2016
sayın kenan827,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
denemesini yapma imkanım olmadığı için,ancak siz denedikten sonra bilgilendiriniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Rapor ve Form sayfasının üstüste açılması - kenan827 - 16/02/2016
Hocam çok, çok teşekkürler ellerinize sağlık tam istediğim gibi oldu. Hocam YaziciSeç Formunu tasarım olarak küçültüyorum açıldığı zaman tekrar büyük olarak açılıyor. Nereden kaynaklandığını çözemedim.
Cvp: Rapor ve Form sayfasının üstüste açılması - atoz112 - 16/02/2016
sayın kenan827,
bahsettiğiniz formun GEÇERLİ OLDUĞUNDA olay yordamına formun genişliği ve yüksekliğini belirlemeye dair AraBoyutlandıRTEX adlı makro eklemişsiniz.bu makroyu iptal edebilirsiniz.
bilginize...iyi çalışmalar,saygılar.