yazdırma uyarısı

[nafri37]

Selam arkadaşlar
benim sorum access'te bir raporu yazdırınca (eğer daha önce yazıcıdan döküm alındıysa) uyarı vermesi.
Örneğin x raporum var bu raporu ekranda görünteldiğinde bir uyarı olmayacak ancak x raporu yazıcıdan alınmak istendiğinde daha önce yazıcıdan alındıysa "ilişkili tablo kısmında kaç defa döktürüldüğü otomatik yazmalı" "Bu Rapor ... defa yazdırılmıştır.Tekrar Yazdırmak istediğinizden emin misiniz?" diye uyarı vedikten sonra evet-hayır tuşları ile ile devam edilmesi eğer evet dersek yazdırma sayısını otomaik olarak arttırmalı

ilgilenen arkadaşlara çok teşekkür ederim. (bilsem sormazdım ve buraya da örnek koyardım)

 

[Taruz]

Merhaba..

İçerisinde rapor olan basit bir örnek ekleyebilirseniz amacınıza uygun bir prosedür hazırlayabilirim..

 

[nafri37]

Teşekür

Ek 'li dosyayı hazırladım.

Rapor yazıcıdan çıkınca Tablo1 deki yazdırma sayısı otomatik olarak artmalı. Ekranda görüntülenince işlem yapmamalı.

 

[Taruz]

Merhaba..

dosyanıza bir form ilave ettim buradan seçeceğiniz irsaliye daha önce yazdırılmamışsa direkt yazdırılır.. Yazdırılmışsa saysını verir ve tekrar yazdırmak isteyip istemediğinizi sorar..

Prosedür bu şekilde..:

Sub yaz()
    With DoCmd
        .SetWarnings 0
        .RunSQL "update Tablo1 set Tablo1.[yazdırma sayısı] = [yazdırma sayısı]+1 " _
                & "where irsaliye=[Formlar]![Form1]![irs]"
        .OpenReport "Tablo1", acNormal
        .SetWarnings -1

    End With
End Sub
Private Sub Komut3_Click()
    On Error GoTo Err_Komut3_Click

    Dim stDocName, krt As String
    krt = irs
    trz = DLookup("[yazdırma sayısı]", "tablo1", "irsaliye= '" & krt & "' ")

    stDocName = "Tablo1"
    If IsNull(irs) Then
        MsgBox "İrsaliye seçiniz"
    Else

        If trz = 0 Then
            yaz
        Else
            If MsgBox(irs & " nolu irsaliye daha önce " _
                      & trz & " defa yazdırılmış. " & Chr(10) & _
                      " Tekrar yazdırmak istiyormusunuz?", vbYesNo, "Başlık") = vbYes Then
                yaz
            End If

        End If
    End If
Exit_Komut3_Click:
    Exit Sub

Err_Komut3_Click:
    MsgBox Err.Description
    Resume Exit_Komut3_Click

End Sub