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
Modülü aşağıdaki ile değiştirerek deneyiniz.