formlar arası geçiş hk.yardım

[MURATT]

merhaba bir konuda yardım rica edicem.
combobox'lı yaptığım bir form var ben diğer formlara geçerken ana formun kapanıp diğer formların açılmasını istiyorum.

kodu şu şekilde yazdım ama sorun yaşıyorum.yardımcı olabilirmisiniz?
Teşekürler.

Private Sub Combo1_Change()
If Combo1.Value = "formtest1" Then
DoCmd.OpenForm "form test1"
DoCmd.Close acForm, "anaform"
End If
If Combo1.Value = "formtest2" Then
DoCmd.OpenForm "form test2"
DoCmd.Close acForm, "anaform"
End If
End Sub

 

[modalı]

Sayın MURATT

Kodlarınızı şu şekilde değiştirirseniz herhalde istediğiniz gerçekleşir.

Ana Form1 in kod sayfasına

Private Sub Açılan_Kutu0_AfterUpdate()
Dim strFormName As String
    strFormName = Me.Açılan_Kutu0.Value
    DoCmd.OpenForm strFormName
End Sub

Açılan formun kod sayfasına ise:

Private Sub Form_Load()
Dim strDoc As String
    strDoc = "Form1"
    DoCmd.Close acForm, strDoc
End Sub

Sizde oluşan terslik form aç dedikten sonra fokus yeni formun üstüne geliyor ve form kapat dediğiniz de ise yani form kapanıyordu.

İyi çalışmalar:hey:

 

[MURATT]

aşağıda yazdığınız kodu tam olarak anlayamadım.iki adet value var formtest1 ve formtest2 burada nasıl yazacağım biraz daha açıklayabilirmisiniz?

Private Sub Açılan_Kutu0_AfterUpdate()
Dim strFormName As String
strFormName = Me.Açılan_Kutu0.Value
DoCmd.OpenForm strFormName
End Sub

 

[modalı]

Sayın MURATT,

strFormName = Me.Açılan_Kutu0.Value

satırı işi hallediyor zaten. Açılır kutu açıldığında bazı değerleri kapsıyor onlardan biri seçilince açılan kutunun değerini oluşturuyor o da strFormName e eşitleniyor.

Kısacası hangi form adını seçmiş iseniz o form açılıyor.

Ancak ikinci verdiğim kodları açılan tüm formlara yazmanız gerekiyor.

 

[MURATT]

sorunu çözdüm çok teşekkürler.