AccessTr.neT

Tam Versiyon: otomatik alt forum açma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
mrb arkadaslar yaptığım bi formda alt forum açmak istiyorum fakat bunun otomatik olmasını istiyorum. yani formda açılır kutudan örn: 1 'i tıklayınca bi alt forum açılsın 2'yi tıklayınca diğer alt forum açılsın ? mümkünmüdür
Sayın burak2444;
Bu söylediğiniz tabiki mümkündür. Siz Site Kuralları na uygun olarak örnek ekleyin yardımcı olalım.
Kolay gelsin.
Birkaç yöntemle yapabilirsiniz
1. 2 altformu ana form üstüste yerleştirirsiniz visible true/false kullanırsınız
2. önce 2 sekmesi olan bir sekme grubu koyarsınız formları ayrı ayrı sekmelere
yerleştirsiniz, seçime göre ilgili sekmeyi aktif edersiniz
3. Form üzerine tek bir subform eklersiniz. seçimizden sonra "SourceObject" özelliğiyle
bu subformun içini doldurursunuz

Kod 1
If me.acilankutu= 1 then
me.subform1.visible=True
me. subform2.visible False
Else
me.subform2.visible=True
me. subform1.visible False
End If

Kod 2 sekmelerin adı ( sekme1, sekme2 olsun )
If me.acilankutu= 1 then
me.sekme1.SetFocus
Else
me.sekme2.SetFocus
End If
(bu tercihte formların manüel olarak da görüntülenme
şansı vardır ( sekme özelliği veya sekme butonları) ,
ama istemezseniz sekme stilini " hiçbiri" olarak ayarlayın )


Kod3
If me.acilankutu= 1 then
me.subform.SourceObject="subform1"
Else
me.subform.SourceObject="subform2"
End If

Kolay gelsin

______

Moderatörümüzün uyarısını sonradan gördüm, gerekeni yaparsanız sevinirim
abi dediğini yapmaya çalıstım fakat olmadı formu ekledim ordan bakabilirseniz sevinirim.

formda musterı formu içerisinde yapılacak işlem açılan kutusunda 1 ve 2 bulunmakta 1 i seçtiğimde kıra alt formunun açılmasını 2 yı seçtiğimde satıs alt formunun açılmasını istiyorum ama olmadı
Sayın burak2444 ;
Ekteki örneği inceleyiniz.
Kolay gelsin.


Kod

Private Sub YAPTIGI_ISLEM_AfterUpdate()
If Me.YAPTIGI_ISLEM = 1 Then
Me.KIRA.SourceObject = "kIRA"
Else
Me.KIRA.SourceObject = "SATIS"
End If
End Sub


If me.acilankutu= 1 then
me.subform.SourceObject="subform1" 'Subform forumunuzdaki subformun nesne adıdır.
Else
me.subform.SourceObject="subform2"
End If
Burada ifade edilen subform formunuza eklemiş olduğunuz subformun adıdır.
Dosyanızın yeni hali ektedir
Ben belirtmediğiniz için kendi
tercihimi kullandım (SourceObject seçeneği )
Ancak sizin 2 formunuzun tasarımları ayni
sadece isimleri farklı, sanırım birinin içeriğini
düzeltmeniz gerek

Kolay gelsin
Sayfalar: 1 2