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