Skip to main content

AccessTr.neT


Görünmeyen Nesnenin Yerine Görünen Nesnenin Kaydırılması.

Görünmeyen Nesnenin Yerine Görünen Nesnenin Kaydırılması.

Çözüldü #1
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][Resim: do.php?img=9391][/img]
Dosya : https://accesstr.net/attachment.php?aid=31028
mehmet8x, 15-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
öncelikle uretım_gırıs_yc formunda yer alan kaydırılacak metin/etiket/açılan kutuların gruplama özelliğini bozun
[Resim: do.php?img=9393]
önce uretım_gırıs_yc formuna aşağıdaki sub ekleyip
Visual Basic Code
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.
Visual Basic Code
Form_uretım_gırıs_yc.Kaydir '<--eklenecek satır
End Sub '<--bu satır zaten var, eklemeyin
Cevapla
#3
Sayın Berdsuş

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

Saygılarımla
Cevapla
#4
Iyi calismalar)
Cevapla
#5
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
Visual Basic Code
Me.mum_türü.Controls(0).top=x 
yazılabilir
Cevapla
#6
Sayın Berduş,

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

Saygılarımla
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da