Etiketleri Yan Yana Hizalama

27/06/2017, 19:00

aydın3838

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  





28/06/2017, 09:03

ozanakkaya

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
28/06/2017, 09:19

aydın3838

sayın ozan bey
teşekkürler
tamam gibi duruyor testleri yapıp olumlu yada olumsuz dönerim
29/06/2017, 08:52

aydın3838

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