Skip to main content

AccessTr.neT


Etiketler
Yazar: ertuğrul2022 - Cevaplar: 5 - İzleme: 304
Satırları Birleştirerek Bir Metin Kutusunda Yazdırma
Hayırlı günler

Acceste Aşağıdaki kod ile tablodaki satırları bir metin kutusunda birleştiriyorum ama satır kaynağı tablo yerine sorgu yapınca kod çalışmıyor bu konuda bana yardım edebilirmisiniz.

Private Sub Komut9_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim birlik As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from T_SIPARİŞ")
birlik = ""
With rst
Do While Not .EOF
birlik = birlik + !SiparişNu & ", "
.MoveNext
Loop
End With
Me.SraYaz = birlik
End Sub
Yazar: access_delisi - Cevaplar: 1 - İzleme: 305
Access Soyadı Büyük Harf, Adı İlk Harf Büyük Yazdırma
Herkese kolay gelsin, metin kutusuna yazdığım ad soyad verisini, ad ilk harf büyük, soyad ise tümü büyük nasıl yazdırabilirim?
Yazar: ertuğrul2022 - Cevaplar: 2 - İzleme: 223
Tablo2'den Tablo1'e Veri Yazdırma
Hayırlı günler.
Acceste MUAYENE ve GELEN_KONTROL adında iki tablom var ve KARŞILAŞTIR sorgusu ile SİPARİŞ_NU'ları karlaştırıp aynı olanları görüntülüyorum ama benim sorunum sorguda GELEN_KONTROL tablosundaki DOYA_NU sütununu  MUAYENE tablosundaki  DOYA_NU tablosuna yazdırmak istiyorum. Bu konuda bana yardımcı olurmusunuz. Saygılar sunuyorum.
Yazar: ankaram - Cevaplar: 0 - İzleme: 199
Raporu Resim Olarak Yazdırma Kod Hatası
Slm ;raporu Resim yazdır butonuyla Resim olarak yazdırmak istiyorum. Ama kod da bir sorun var çözemedim. Bu konuda yardım istiyorum.
Kod şu Şekilde;

Private Sub Komut132_Click()
DoCmd.OutputTo acOutputReport, "ÜrünGiris1", acFormatPNG, "C:\Users\Lenovo\OneDrive\Masaüstü\ÜrünGiris1.png", True
End Sub


[Resim: https://resim.accesstr.net/do.php?img=15211]
Yazar: hnakis - Cevaplar: 1 - İzleme: 198
Açılan Raporda Mouse Sağ Tuşla Yazdırma
sayın arkadaşlar. çalışmamda Access penceresi gizleme kodu kullanıyorum. formda listeden seçtiğim kaydın raporunu açıyorum. ancak mouse sağ click açılmadığı için yazıcıya gönderemiyorum. kullandığım kodlar aşağıda. nerde hata yapıyorum acaba.


Kodlar;
Private Sub Komut41_Click()

If Liste2.ItemsSelected.Count = 0 Then: MsgBox "MsgBox "Lütfen raporu çıkarılacak kayıt seçin...", vbInformation, " ": Exit Sub

1. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Col
Yazar: hnakis - Cevaplar: 8 - İzleme: 508
Butonla Metin Kutusuna Sayı Yazdırma
Sayın arkadaşlar. yapmaya çalıtığım şey hesap makinesi gibi butonla metin kutusuna sayı yazdırma. amcak örneğimde butonla metin kutusuna eklenen sayıların arasına imleçle seçip rakam ekleyebilmek. tüm hesap makinesi çalışmalarında da araya ekleme yapılmıyor.

örneğin;
metin kutusuna sırayla 12356 yazdığımızı varsayalım imleci 3 ile 5 in arasına seçip 4 yazabilmek. eklediğim ernekte 4 butonuna basınca sayıların sonuna (123564) yazılıyor.

saygılar.
Yazar: Acemi54 - Cevaplar: 2 - İzleme: 236
Bir Tablonun Sutunundaki Veriyi Diğer Tablonun Sutununa Yazdırma
Herkese hayırlı akşamlar.
Benim T_ANA_SAYFA ve FATURA adında 2 tane tablom var ve bunları S_SORGU adında sorgu ile düşey ara yaptırıyorum. 
Yani FATURA tablosundaki "SİPARİŞ_NU" sutunundaki verilerle  T_ANA_SAYFA tablosundaki  "SİPARİŞ_NU" sütunundaki verileri karşılaştırıp aynılarını buluyorum. 
Bu bulma işleminden sonra  S_SORGU sorgusunda  FATURA tablosundaki "FATURA_SIRA" verilerini T_ANA_SAYFA tablosunda  "FATURA_SIRA" sutununa yazdırmak istiyorum.
Bu konuda bana yardımcı olursanız çok
Yazar: SeferŞANLI - Cevaplar: 7 - İzleme: 669
Raporda Toplu Yazdırma
Arkadaşlar eklediğim dosyada şöyle bir yazdırma işlemini yapmak istiyorum. Yardımcı olabilir misiniz?
* Frm_anaformdan işi seçip (örneğin 9-c) raporlar sayfasına ulaşınca frm_raporlar formunda açılan kutu ya da liste kutusunda o çalışmadaki tüm kişiler için "rpr_stajdosyasi2" raporunu önlü arkalı, "rpr_stajdosyasi8" raporunu tek yüz yazıcıya nasıl gönderebilirim?

Ayrıca "rpr_stajdosyasi8" raporunda baskı önizle yazdı komutunda müdür ve müdür yardımcısı ismi çıkarken direk yazıcıya gönderdiğ
Yazar: Acemi54 - Cevaplar: 3 - İzleme: 431
Acces Metin Kutusunda Alt Satıra Veri Yazdırma
Benim uygulamamda Metinkutusu1 ve  Metinkutusu2 var.  Örneğin Metinkutusu1'de "Türkiye" yazıyor.  Metinkutusu2'de ise "Sakarya" yazıyor. Butona bastığım zaman  Metinkutusu2'deki "Sakarya" yazısı  Metinkutusu1'de "Türkiye" yazısının altında yani ikinci satırında yazsın istiyorum.
Metinkutusu1 boş ise Sakarya 1. satıra yazsın.
Örnek  Metinkutusu1'de  " Türkiye
                                     Sayarya " yazmasını istiyorum. 

Herkese ilginiz için çok teşekkür eder hayırlı akşamlar dilerim.
Yazar: kral8596 - Cevaplar: 6 - İzleme: 1380
Pdf Dosyası Yazdırma
Merhaba;

"D:\Hesap\mayıs ayı.pdf" dosyasını Access Vba ile dosyayı açmadan yazdırmak veya açılıp yazdırılarak kapanmasını sağlayacak bir koda ihtiyaç duymaktayım. 
Kolay gelsin.
Task