AccessTr.neT

Bul · 21/08/2013, 19:25

Mehmet Abi,

Hata veriyor. dosyayı açıyorum yazdırılacak kayıtları ok ile seçiyorum. yazdır dediğim de 1. seferde yazdırıyor ancak; daha sonraki yazdırma denemelerinde ok alanını tiklememe rağmen sadece sayaç işliyor ve en son sayılı kayda 2 ilave boş kayıtlar ekliyor. dosyayı kapatıp tekrar açarsam yine 1. denemede yazdırıyor sonrakilerde yazdırmıyor. sonraki her yazdır butonuna tıkladığımda sadece sayıyor ve yine alta 2 şer tane boş kayıt ekliyor

Bul · 21/08/2013, 22:42

Bende hiç sorun yok. Siz hata var diye yazdıktan sonra 6-7 kez daha denedim. En küçük bir hata olmadı. Office versiyonunuz nedir?

Bul · 21/08/2013, 23:27

Merhaba
Özür dilerim Mehmet Abi,
Bir şartla hata vermiyor
Her yazdırımdan önce aktif kaydı ilk kayda aldınız mı sorun yok. ilk kayda alıp ta yazdıra tıklarsanız sistem çalışıyor ama. aktif kaydı ilke almak sorunu var şimdide. yazdırdan sonra hep son kayıtta kalıyor aktif kayıt. bu işlem ilk kayda kalsa daha iyi olmaz mı? Mehmet Abi

Bul · 22/08/2013, 02:44

Sevgili dostum. Baştan keşke herşeyi yeniden ele alsaymışım. Ben bildiğim kodlarla yaptım. Yazdır düğmesinin kodları aşağıdadır. Bu arada "ok" onayına da gerek kalmadı, onu da kaldırdım. Nerden başlatırsan başlat farketmeden işini yapan kodlar bunlar. Her türlü denedim, bir hata göremedim ama bir de sen dene. Haydi hayırlısı Img-grin

) Bu arada kodlar bayaa kısalmış da oldu.

Kod:

Private Sub yazdır_Click()

Dim x, sayac, say As Integer

DoCmd.GoToRecord , , acFirst

 On Error GoTo err_hata



say = DCount("[ÜrünSıraNo]", "Kitaplık")



For x = 1 To say





If Me.Secim_Yapınız = -1 Then





For sayac = 1 To Me.ÇıktıSayısı

If Me.okoli1 = True Then DoCmd.OpenReport "koli1", acViewNormal

If Me.okoli2 = True Then DoCmd.OpenReport "koli2", acViewNormal

If Me.okoli3 = True Then DoCmd.OpenReport "koli3", acViewNormal

Next sayac



End If



DoCmd.GoToRecord , , acNext

Next x

err_hata:



End Sub

Bul · 22/08/2013, 14:49

Mehmet Abi, çok güzel olmuş şahane bir şey. sonsuuuuuuuz teşekkürler...

Son kez şunu yapabilir miyiz? Senin için çok basittir inanıyorum. abi yazdırılacak kayıtlar için "seçim_yapınız" sütunu var ya o sütunda yazdırılacak kayıtları seçtim ama bir sonraki açılışta seçili kayıtların seçim yapınız alanındaki tikler duruyor. bunları bir defada yada yazdırırken tikler kaldırılabilir mi?
abi bunu şunun için istiyorum her gün 50 yada 60 tane sipariş geliyor ve 1000 e yakın ürün var daha da artacak bu ürünler. her gün bu tikler çoğalacak ve her gün aynı ürünlerin çıktısı alınmayacak. bu sepeble "seçim_yapınız" alanındaki tikleri kaldırmak zaman alabilir.bunları bir defada kaldırabilir miyiz yada yazdırırken silmesi olabir mi?

Bul · 22/08/2013, 17:49

Aslında daha önce ok tikleri için yaptığımız şeyin aynısı. Bu kadar ilerledikten sonra siz de yapabilirsiniz. Bizim sitenin amacı bir şeyler öğretmektir. Keşke siz yapabilseydiniz bunu.

AccessTr.neT

Formdaki bazı alanlara göre yazdırılacak raporların onay kutusu ile seçilmesi

Formdaki bazı alanlara göre yazdırılacak raporların onay kutusu ile seçilmesi

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

Giriş yap

Hesap oluştur

Konu Linkleri