Skip to main content

AccessTr.neT


Öğrenci Bilgileri Hazır Sınav Kağıdı Oluşturma

Öğrenci Bilgileri Hazır Sınav Kağıdı Oluşturma

#7
(24/12/2015, 23:45)ozanakkaya yazdı: Liste kutusundaki amaç seçim yapma olayı değil. Sadece Yazdırma işlemi yapılacak öğrencilerin listesinin görünmesi için. Seçim yapılsa da yapılmasa da liste kutusundaki tüm öğrencilere ait veriyi yazdıracak.

Anladım Sayın ozanakkaya. Tekrardan çok teşekkür ederim emeğiniz için. İyi geceler.
Cevapla
#8
(24/12/2015, 23:51)matkap yazdı:
(24/12/2015, 23:45)ozanakkaya yazdı: Liste kutusundaki amaç seçim yapma olayı değil. Sadece Yazdırma işlemi yapılacak öğrencilerin listesinin görünmesi için. Seçim yapılsa da yapılmasa da liste kutusundaki tüm öğrencilere ait veriyi yazdıracak.

Anladım Sayın ozanakkaya. Tekrardan çok teşekkür ederim emeğiniz için. İyi geceler.

Sayın ozanakkaya,
Öncelikle dün yapmış olduğunuz yardımınızdan dolayı tekrar teşekkür ederim. Bu çalışmaya yazdır komutu verdikten sonra her öğrenci için ayrı ayrı onay vermek zorundayız. Bu ise 600 öğrencisi olan bir okul için oldukça fazla zaman alacaktır. Forumda sınıfı seçip yazdır dedikten sonra onay istemeden tüm sınıf için sınav kağıdı yazdırma şansımız olabilir mi?
Cevapla
#9
Sayın matkap,

Sayın ozan bey’in hoşgörüsü ve izni ile talebinize ilk etapta yardımcı olmak üzere bilgilendirmede bulunmak adına,

Alıntı:...yazdır komutu verdikten sonra her öğrenci için ayrı ayrı onay vermek zorundayız...

Alıntı:...sınıfı seçip yazdır dedikten sonra onay istemeden tüm sınıf için sınav kağıdı yazdırma şansımız olabilir mi?...

ifadeniz ile kast ettiğiniz talep;
sanırım,butonun tıklandığında olay yordamındaki yazdırma mesajının çıkmaksızın direkt baskı işleminin gerçekleştirilmesi ise,yapmanız gereken aşağıdaki kod ifadeleri ile mevcut olan kodları değiştirmenizdir.
Kod:
Private Sub Komut10_Click()
    Dim objWordApp As Object
    Dim objWordDoc As Object
    Dim strBMName, BelgeYolu  As String
    Dim objBMRange As Object
    Dim i As Integer

    BelgeYolu = CurrentProject.Path & "\" & Me.acl_sinifi & ".doc"
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDoc = objWordApp.Documents.Open(BelgeYolu)
    objWordApp.Visible = False

For i = 0 To Me.Liste5.ListCount - 1
    strBMName = "OgrenciBilgileri"
    Set objBMRange = objWordDoc.Bookmarks(strBMName).Range
    objBMRange.Text = Me.Liste5.Column(2, i) & "," & Me.Liste5.Column(1, i) & "," & Me.Liste5.Column(3, i)
    objWordDoc.Bookmarks.Add Name:=strBMName, Range:=objBMRange
    Set objBMRange = Nothing


'        If MsgBox(Me.Liste5.Column(1, i) & " isimli öğrencinin belgesi yazdırılsın mı?", vbYesNo, "yazdırma işlemi.") = vbYes Then
            objWordApp.PrintOut Background:=False
'        End If

Next i
    objWordApp.Quit False
    Set objWordDoc = Nothing
    Set objWordApp = Nothing
End Sub

yapılan işlem;SADECE mesajın gösterilmesinin iptal edilmesidir.bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#10
Sayın atoz112 değerli yardımınız için çok teşekkür ederim. Evet istediğim tam olarak sizin bahsettiğiniz mesajın çıkmamasıydı.
Cevapla
#11
Sayın ozanakkaya ve Sayın atoz112,
Bilgileri filtre edilmiş liste kutusu yerine,filtre edilmiş alt formdan gönderip aynı işlemleri yaptırabilir miyiz? Yani sınav kağıtlarına yazacağı bilgileri liste kutusundan değilde, alt formda filtre uyguladıktan sonra kalan kayıtlardan alabilir mi?
İlgi ve yardımlarınız için şimdiden teşekkür ederim.
Cevapla
#12
sayın matkap,


Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.

bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakınmasını ve incelemesini de sağlamış olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da