Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk.

adnnfrm · 20-12-2023, 03:54

Merhaba Arkadaşlar;
Rapor üzerinde yer alan etiket ve metin kutularını rapor üzerinde sağa-sola, yukarı-aşağı konumunu değiştirebilir miyiz? Konum verilerini bir tablodan çekebilir miyiz?

Saygılarımla

dsezgin · 20-12-2023, 13:48

RapTasi.rar (Boyut: 41,34 KB / İndirilme: 19)
Örnek uygulama ihtiyacınızı karşılıyorsa, projenize uyarlayabilirsiniz.

adnnfrm · 21-12-2023, 22:37

(20-12-2023, 13:48)dsezgin demiş ki: Örnek uygulama ihtiyacınızı karşılıyorsa, projenize uyarlayabilirsiniz.

Hocam evet textbox ların x-y düzleminde hareketini sağlıyor ama ben manual tablodan bu veriyi değiştirip diretk raporu açtığımda o koordinatta açmıyor. Raporu açarken Form1 i açarak bu işlemi her seferinde yapmam gerekiyor :// Bu da çok efektif değil gibi.

dsezgin · 21-12-2023, 23:56

(21-12-2023, 22:37)adnnfrm demiş ki: Hocam evet textbox ların x-y düzleminde hareketini sağlıyor ama ben manual tablodan bu veriyi değiştirip diretk raporu açtığımda o koordinatta açmıyor. Raporu açarken Form1 i açarak bu işlemi her seferinde yapmam gerekiyor :// Bu da çok efektif değil gibi.

Rapor açıldığı olay yordamına RaporAc_Click prosedürünü taşıyıp tabloya kaydedilmiş koordinatlar raporda işletilebilir.

Visual Basic
Private Sub Report_Open(Cancel As Integer)
Dim Kyt As Recordset
Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM RapKonum WHERE Rapor='" & Me.Name & "' ORDER BY NesneAdi")
If Kyt.RecordCount = 0 Then Exit Sub
Do Until Kyt.EOF
Reports(Me.Name).Controls(Kyt!NesneAdi).Move Kyt!KonumX, Kyt!KonumY, Kyt!Gen, Kyt!Yuk
Kyt.MoveNext
Loop
Kyt.Close
End Sub

adnnfrm · 26-12-2023, 03:42

(21-12-2023, 23:56)dsezgin demiş ki:
(21-12-2023, 22:37)adnnfrm demiş ki: Hocam evet textbox ların x-y düzleminde hareketini sağlıyor ama ben manual tablodan bu veriyi değiştirip diretk raporu açtığımda o koordinatta açmıyor. Raporu açarken Form1 i açarak bu işlemi her seferinde yapmam gerekiyor :// Bu da çok efektif değil gibi.

Rapor açıldığı olay yordamına RaporAc_Click prosedürünü taşıyıp tabloya kaydedilmiş koordinatlar raporda işletilebilir.
Visual Basic
Private Sub Report_Open(Cancel As Integer) Dim Kyt As Recordset Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM RapKonum WHERE Rapor='" & Me.Name & "' ORDER BY NesneAdi") If Kyt.RecordCount = 0 Then Exit Sub Do Until Kyt.EOF Reports(Me.Name).Controls(Kyt!NesneAdi).Move Kyt!KonumX, Kyt!KonumY, Kyt!Gen, Kyt!Yuk Kyt.MoveNext Loop Kyt.Close End Sub

Hocam emeğinize sağlık,
Her iki örnekte çok faydalı oldu. Birçok arkadaşında farklı projelerde kullanacağını düşünüyorum. Tekrar teşekkürler.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Gmaile Etiket Oluşturma	Access Ziyaretçisi	32	439	23-04-2024, 14:00 Son Mesaj: halily
	[RAPOR] Rapor Alanındaki Metin Kutularının Büyümesi	kahramanselim	2	217	06-04-2024, 18:31 Son Mesaj: kahramanselim
	Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme	geneclean	5	179	13-02-2024, 15:51 Son Mesaj: dsezgin
	[FORM] access ıcon değiştirme	oosmaner	5	813	08-02-2024, 12:43 Son Mesaj: BeyTor
	Aktarım Yaparken Dosya Adını Değiştirme	zimbit	4	113	04-02-2024, 00:42 Son Mesaj: zimbit
	[RAPOR] Rapor Fontunu Değiştirme	ates2014	6	156	25-01-2024, 15:15 Son Mesaj: ates2014
	[VBA] Pc. Tarih Formatını Değiştirme	ates2014	8	219	09-01-2024, 09:18 Son Mesaj: ates2014
	Metin Kutusu Adı Değiştirme Hk.	snapper	9	232	08-11-2023, 01:12 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL