sayın karaayhan rapor create edilirken bütün alanlar üstüste geldiğinden siz tek bir alan varmış gibi görüyorsunuz resimdeki gibi tutar kenara çekerseniz bütün alanların eklendiğini görürsünüz burdaki kutuların ve etiketlerişn raporda nereye hagi uzaklık ve boşluğa yerleşeceiği +10 veya + 100 gibi bir her alan eklenmesinde aratarak giderse düzelir

Option Compare Database

Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field




Sub yenicontroller()


intLabelY = 0

intDataY = 0

rst.Open "Tablo1_Çapraz", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



DoCmd.OpenReport "Rapor1", acViewDesign

For Each fld In rst.Fields

intLabelY = intLabelY + 1700

intDataY = intDataY + 1700

Set ctlText = CreateReportControl("Rapor1", acTextBox, , fld.Name, fld.Name, _
intDataY, 0)

Set ctlLabel = CreateReportControl("Rapor1", acLabel, acPageHeader, , fld.Name, intLabelY, 0, 5, 5)

Next fld
DoCmd.Restore

DoCmd.OpenReport "Rapor1", acViewPreview


End Sub


bu şekilde bir miktar daha düzeltilmiş hali diğer metin kutularının vs vs çizgilerinin görünmesi metin kutularının içindeki verilerin sola yaslanması işi rapor açıldıktan sonra rapordaki bütün kontrolleri bul ve sola yasla şeklinde olacak sana gönderdiğim örneğin modülünü bununla değiştir.