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