selam
tüm forum üyelerimizin ramazan bayramı mübarek olsun

arkadaşlar içinden çıkamadığım durum

yeni bir form oluşturup bu forma veri tabanındaki verilere göre etiket (label) ekleyip bunları yan yana dizmek örnekte de görüleceği gibi 

form oluşuyor 
veri tabanında ki cam sayısına göre camlar oluşuyor
oluşan form un soluna 1.sıra etiketler sıralanıyor
veri tabanında ki 2 ve 3.kolondaki cam sayısına göre oluşan etiketleri altına hizalıyor
benim istediğim ise yan yana gelmesi

saygılarımla  

Modülü aşağıdaki ile değiştirerek deneyiniz.

Function erya()



Dim pozsayi As Integer

Dim sayi As Integer

Dim olcu As String

Dim i As Integer

Dim a As Integer

Dim s As Integer

Dim g As Integer

Dim sorgu As String

Dim sorgusayi As Long

Dim devirsorgu As Recordset

Dim frm As Form

Dim ctllabel, ctlline As Control

''''''''''''''''''''''''''''''''''''''''''''''''her yeni formda eski form silinecek

DoCmd.Close acForm, "form1", acSaveYes

DoCmd.DeleteObject acForm, "form1"

Set frm = CreateForm ' yeni form olustur

Set devirsorgu = Application.CurrentDb.OpenRecordset("SELECT * FROM tablohareket")

devirsorgu.MoveLast: devirsorgu.MoveFirst



s = 1

g = 1



Do

    For a = 1 To devirsorgu.RecordCount

        For i = 1 To devirsorgu!camsayi

            Set ctllabel = CreateControl(frm.Name, acLabel, , , " poz " & devirsorgu!poz & "-" & i)

            ctllabel.Name = "poz" & a & "-" & i

                With ctllabel

                    .FontSize = 12

                    .BorderColor = vbRed

                    .BorderStyle = 1

                    

                    .Move (s * 1000 - 800) + (g * 500), 80, 1000, 1600

                

                End With

            s = s + 1

        Next

    g = g + 1

    devirsorgu.MoveNext

    Next

Loop Until devirsorgu.EOF



Forms(frm.Name).Caption = "aydın"

Forms(frm.Name).NavigationButtons = False  'gezinti dügmeleri kapalı

Forms(frm.Name).RecordSelectors = False    'kayıt seçici kapalı

Forms(frm.Name).DividingLines = False      'kayıt bölücü kapalı

Forms(frm.Name).Ayrıntı.BackColor = vbWhite '16764057

DoCmd.Close acForm, "form1", acSaveYes

DoCmd.OpenForm "form1", acNormal

devirsorgu.Close

Set devirsorgu = Nothing



End Function

sayın ozan bey
teşekkürler
tamam gibi duruyor testleri yapıp olumlu yada olumsuz dönerim

konu çözülmüştür teşekkür ederim