AccessTr.neT

Sayın Berdus,

sorunum çözüldü teşekkürler.

birde " uretım_gırıs_yc " görünür olanların gizli olanların yerine sıralanmasını sağlaya bilir miyiz? ekli resimdekiler sabit kalacak şekilde yardımcı olabilir misiniz?[img=10x18][/img]
Dosya : https://accesstr.net/attachment.php?aid=31028

öncelikle uretım_gırıs_yc formunda yer alan kaydırılacak metin/etiket/açılan kutuların gruplama özelliğini bozun

önce uretım_gırıs_yc formuna aşağıdaki sub ekleyip

Public Sub Kaydir()

Dim x, y, z As Long

x = 2160

y = 2160

z = 2160

'hy 1. Sütun_____________________________________

If Me.Operatör.Visible = False Then x = x Else x = x + 330

Me.Makina_kodu.Top = x

Salkım__Sayısı_Etiket.Top = x



If Me.Makina_kodu.Visible = False Then x = x Else x = x + 330

Me.mum_türü.Top = x

Şarj__No_Etiket.Top = x



If Me.mum_türü.Visible = False Then x = x Else x = x + 330

Me.Şarj__No.Top = x

Etiket1304.Top = x



If Me.Şarj__No.Visible = False Then x = x Else x = x + 330

Me.Salkım__Sayısı.Top = x

Etiket1062.Top = x



If Me.Salkım__Sayısı.Visible = False Then x = x Else x = x + 330

Me.[Üretim__/__Salkım__adedi].Top = x

Etiket1063.Top = x



If Me.[Üretim__/__Salkım__adedi].Visible = False Then x = x Else x = x + 330

Me.Kat__Sayısı.Top = x

Etiket1072.Top = x



'hy 2. Sütun_____________________________________

If Me.Vardiya.Visible = False Then y = y Else y = y + 330

Me.Montaj__Tarihi.Top = y

Etiket1578.Top = y



If Me.Montaj__Tarihi.Visible = False Then y = y Else y = y + 330

Me.Fire__Adedi.Top = y

Etiket1310.Top = y



If Me.Fire__Adedi.Visible = False Then y = y Else y = y + 330

Me.malzeme.Top = y

Etiket1312.Top = y



'hy 3. Sütun__________________________________________

    If Me.[FDağılımı__-__Çökme].Visible = False Then z = z Else z = z + 330

Me.[FDağılımı__-__Hava__Kabarcığı].Top = z

Etiket1066.Top = z



If Me.[FDağılımı__-__Hava__Kabarcığı].Visible = False Then z = z Else z = z + 330

Me.[FDağılımı__-__Eksik].Top = z

Etiket1067.Top = z



If Me.[FDağılımı__-__Eksik].Visible = False Then z = z Else z = z + 330

Me.[FDağılımı__-__Kırık].Top = z

Etiket1070.Top = z



If Me.[FDağılımı__-__Kırık].Visible = False Then z = z Else z = z + 330

Me.[FDağılımı__-__Şişme].Top = z

Etiket1068.Top = z



If Me.[FDağılımı__-__Şişme].Visible = False Then z = z Else z = z + 330

Me.[FDağılımı__-__Çatlak].Top = z

Etiket1069.Top = z



End Sub

sonra da Sipariş__No çift tıklama olayının en sonuna aşağıdaki kodu eklemeyi dener misiniz?
sadece ilk satırını diğeri end sub zaten var.

Form_uretım_gırıs_yc.Kaydir '<--eklenecek satır

End Sub '<--bu satır zaten var, eklemeyin

Sayın Berdsuş

ne kadar teşekkür etsem az kalır. emeğinize sağlık çok teşekkürler.

Saygılarımla

Iyi calismalar)

Not: aslında nesne ve nesneye ait etiketle işlem yaparken doğrudan etiketin adını yazmak yerine nesneye atıfta bulunabiliriz
mesela
Me.mum_türü --> nesne
Me.mum_türü.Controls(0) --> nesneye bağlı etiket
Me.mum_türü.Top =x '--> nesne
Me.mum_türü.Controls(0).top=x '-->
"mum_türü"nin etiketi olan "Şarj__No_Etiket.top=x" yerine

Me.mum_türü.Controls(0).top=x 

yazılabilir

Sayın Berduş,

Emeğinize sağlık çok teşekkür ederim.

Saygılarımla