çarpraz sorgu olduğu ve raporda il stunlarını yanyana istediğiniz için her seferinde create eden bir kod yazmanız gerekir.


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()

intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100

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



DoCmd.OpenReport "Rapor1", acViewDesign

For Each fld In rst.Fields


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

Set ctlLabel = CreateReportControl("Rapor1", acLabel, acPageHeader, , fld.Name, intDataX, intDataY)

Next fld
DoCmd.Restore

DoCmd.OpenReport "Rapor1", acViewPreview


End Sub


Private Sub Komut10_Click()
Call yenicontroller

End Sub

create edilen denetimler raporda hizalaması ayarlanmadı koda bak işine yararsa onuda hallederiz