Skip to main content

AccessTr.neT


Etiketleri Yan Yana Hizalama

Etiketleri Yan Yana Hizalama

Çözüldü #1
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  

[Resim: do.php?imgf=149857906792861.png]


[Resim: do.php?imgf=149857915973431.png]
.rar ayapi_cambalkon24102015_2017-06-27.rar (Dosya Boyutu: 24,25 KB | İndirme Sayısı: 12)
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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
Cevapla
#3
sayın ozan bey
teşekkürler
tamam gibi duruyor testleri yapıp olumlu yada olumsuz dönerim
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
konu çözülmüştür teşekkür ederim
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da