AccessTr.neT

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