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

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?

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.

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]

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

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.

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

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ğ

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.

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.