her iki modülde harika olmuş çalışıyor tam istediğim gibi ellerinize sağlık
eğer müsaade ederseniz bir sıkıntım daha var
ekteki resimde de görülebilir
alttaki resimdeki gibi her sıra çizime (kırmızı olanlar)
yeni 2 adet label ekleyip(mavi olanlar)
1.üstte 2.sağ yana yaslamam gerekli
labeli ekliyorum ama yönlendirmeyi çözemedim
Kod:
Option Compare Database
Option Explicit
Public Sub erya()
Dim pozsayi As Integer
Dim sayi As Integer
Dim olcu As String
Dim i, a, b 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
Set frm = CreateForm ' yeni form olustur
Set devirsorgu = Application.CurrentDb.OpenRecordset("SELECT * FROM tablohareket")
devirsorgu.MoveLast: devirsorgu.MoveFirst
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
If a = 1 Then
.Move (i * 1000 - 800), (80), 1000, 1600
Else
.Move ((i * 1000) - 800), ((a - 1) * 1600 + 80), 1000, 1600
End If
End With
Next
For b = 1 To devirsorgu.RecordCount
Set ctllabel = CreateControl(frm.Name, acLabel, , , IIf(b = 1, devirsorgu!genislik, devirsorgu!yukseklik))
ctllabel.Name = IIf(b = 1, "Genişlik-" & a & b, "Yükseklik-" & a & b) 'etiket adlarını sırala
With ctllabel
.TextAlign = 2
If b = 1 Then
' left top width height
.Move (i * 10) + (i) * 50, (10 * i), i * (750) + (250), 250
Else
' left top width height
.Move (i * 1000 - 800) + (i) * 50, ((a - 1) * 1600 + 170) + (500), 250, 1600
.Vertical = True
End If
End With
Next
devirsorgu.MoveNext
Next
Loop Until devirsorgu.EOF
devirsorgu.Close
Set devirsorgu = Nothing
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ı
DoCmd.Close acForm, frm.Name, acSaveYes
DoCmd.OpenForm "form1", acDesign
End Sub