[FORM] Alt Form
#1
Merhaba,,

Ana form üzerinde 4 adet komut ve 4 adet de alt form var.
Sorum: form açıldığında alt formlar gözükmesin komut1'e tıklandığında alt1 forum gözüksün, komut2'e tıklandığında alt1 formu gizlenip alt2 formu gözükür olsun. Diğer komut ve altformlar içinde aynı olay geçerli.
Saygılarımla.



  Alıntı
Bu mesajı beğenenler:
#2
Aşağıdaki kod parçasını yükleyin...
Visual Basic
  1. Private Sub Form_Load()
  2. Me.alt1.Visible = False
  3. Me.alt2.Visible = False
  4. Me.alt3.Visible = False
  5. Me.alt4.Visible = False
  6. End Sub
  7.  
  8. Private Sub Komut1_Click()
  9. Me.alt1.Visible = True
  10. Me.alt2.Visible = False
  11. Me.alt3.Visible = False
  12. Me.alt4.Visible = False
  13. End Sub
  14.  
  15. Private Sub Komut2_Click()
  16. Me.alt1.Visible = False
  17. Me.alt2.Visible = True
  18. Me.alt3.Visible = False
  19. Me.alt4.Visible = False
  20. End Sub
  21.  
  22. Private Sub Komut3_Click()
  23. Me.alt1.Visible = False
  24. Me.alt2.Visible = False
  25. Me.alt3.Visible = True
  26. Me.alt4.Visible = False
  27. End Sub
  28.  
  29. Private Sub Komut4_Click()
  30. Me.alt1.Visible = False
  31. Me.alt2.Visible = False
  32. Me.alt3.Visible = False
  33. Me.alt4.Visible = True
  34. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
Sayın adnan, benim formlarımda kullandığım bir yöntem var onu paylaşmak istedim. Size uyarlamaya çalıştım hatalıysa üstadlar müdahale edeceklerdir..Bu şekilde ilaveler yapabiliyorum. Belki işinize yarar.

Önce modül oluşturun,

Option Explicit

Public Sub form_gizle(FormAdi As String)
Dim dntm As Control

For Each dntm In Forms(FormAdi).Controls
With dntm
Select Case .ControlType
Case acSubForm
If .Visible = True Then .Visible = False
Case Else
End Select
End With
Next dntm

End Sub

Public Sub form_goster(FormAdi As String)
Dim dntm As Control

For Each dntm In Forms(FormAdi).Controls
With dntm
Select Case .ControlType
Case acSubForm
If .Visible = False Then .Visible = True
Case Else
End Select
End With
Next dntm

End Sub

Form load olayına aşağıdaki kod,

form_gizle ("ana formunuz")
Me.alt form1.Visible = False
Me.alt form2.Visible = False
Me.alt form3.Visible = False
Me.alt form4.Visible = False

Button1 click olayına aşağıdaki kodu,

form_goster ("ana formunuz")
Me.alt form1.Visible = True
Me.alt form2.Visible = False
Me.alt form3.Visible = False
Me.alt form4.Visible = False

Bu kodu diğer buttonlara da uyarlayınız.

Bu yöntemle istediğiniz nesneyi ekleyebilirsiniz. Umarım işinize yarar.Kolay gelsin.



  Alıntı
Bu mesajı beğenenler:
#4
merhaba,,
Sayın Onur Can hocam elinize sağlık, teşekkürederim kodlar çaşışıyor,

Sayın EminA, size de teşekkürederim sizin kodları uyarlıyamadım dosyayı ekledim.


Eklenti Dosyaları
.zip   Ust_menu.zip (Boyut: 50,74 KB / İndirilme: 40)



  Alıntı
Bu mesajı beğenenler:
#5
Visual Basic
  1. Private Sub Form_Load()
  2. Call GosterGizle("Tumu")
  3. End Sub
  4. Private Sub Komut10_Click()
  5. Call GosterGizle("f-alt1")
  6. End Sub
  7. Private Sub Komut11_Click()
  8. Call GosterGizle("f-alt2")
  9. End Sub
  10. Private Sub Komut8_Click()
  11. Call GosterGizle("f-alt3")
  12. End Sub
  13. Private Sub Komut9_Click()
  14. Call GosterGizle("f-alt4")
  15. End Sub
  16.  
  17. Function GosterGizle(FormAdi As String)
  18. Dim dntm As Control
  19. Forms("f-menu").Controls("Komut8").SetFocus
  20. For Each dntm In Forms("f-menu").Controls
  21. If dntm.ControlType = acSubform Then
  22. Forms("f-menu").Controls(dntm.Name).Form.Visible = IIf(dntm.Name = FormAdi, True, False)
  23. End If
  24. Next dntm
  25. End Function



ile de yapilabilir.



  Alıntı
Bu mesajı beğenenler:
#6
Sezgin hocam, elinize sağlık kısa ve net olmuş çok teşekkürederim.
Saygılarımla



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası OGUZTURKYILMAZ 3 233 13-04-2023, 23:39
Son Mesaj: OGUZTURKYILMAZ
  [FORM] form açıp form gizleme sorunu hersey 4 1.911 28-03-2018, 00:14
Son Mesaj: hersey
  [FORM] Tek Form üzerinden birden fazla form açmak. m_demir 2 1.527 27-01-2018, 21:07
Son Mesaj: m_demir
  [FORM] Form içinde iki farklı alana göre arama ve sonucu form kaydında gösterme volger 1 1.548 30-03-2017, 11:38
Son Mesaj: volger
  [FORM] access form da numlock çok sorunlu form sayfasında herzaman açık nasıl yapabilirim obaysal42 3 1.802 24-02-2017, 10:54
Son Mesaj: husem
  [FORM] sürekli form içine başka bir form eklemek hedefkaya 3 2.091 17-10-2016, 00:28
Son Mesaj: dsezgin
  [FORM] Form'da Kayıt Girişi Yada Düzenlemesini Popup Form İle Yapmak sanaldoctor 2 3.083 15-06-2015, 13:16
Son Mesaj: sanaldoctor
  [FORM] Form üzerinden 3 yada 4 kriter ile alt form filtreleme conquerora 1 2.451 22-06-2014, 14:43
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi