AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Bir altform alanında çok altform göstermek

1 2 3 4 5 6
01/12/2009, 15:34

ayhan2122

Umarım bunu istiyorsunuzdur
01/12/2009, 20:58

mehmetdemiral

Ayhan

Süper bir bilgi.. Ben de bilmiyordum SourceObject olayını. Hiç de düşünmemiştim böyle bir komutla iş görülebileceğini. Çok iyi bir bilgi oldu benim için. Teşekkürler. + 5 Rep

Ama neden bu iş için daha pratik kullanımlı olan select..case yerine ısrarla if..then kullandığını anlamadım. Aynı işi bak ne kadar daha basit bir mantıkla yapıyorsun:

Senin kodların:
Kod:
If Açılan_Kutu0 = "Form1" Then
    Alt10.SourceObject = "Form1"
Else
    If Açılan_Kutu0 = "Form2" Then
        Alt10.SourceObject = "Form2"
    Else
        If Açılan_Kutu0 = "Form3" Then
            Alt10.SourceObject = "Form3"
        Else
            If Açılan_Kutu0 = "Form4" Then
                Alt10.SourceObject = "Form4"
            Else
                Alt10.SourceObject = ""
            End If
        End If
    End If
End If

Bence:
Kod:
select case Açılan_Kutu0
case "Form1"
Altform.SourceObject = "Form1"
case "Form2"
Altform.SourceObject = "Form2"
case "Form3"
Altform.SourceObject = "Form3"
case "Form4"
Altform.SourceObject = "Form4"
end select

Sence hangisi daha kolay ve basit
01/12/2009, 23:42

hezarfen70

(01/12/2009, 15:34)ayhan2122 yazdı: Umarım bunu istiyorsunuzdur evet istediğim bu sn ayhan2122 fakat kodlarınızı programa uyarladığımda çalışmadı. Altform alanında hiçbirşey göstermiyor. Bir de bu altformların ana formla bire bir işkodu ile ilişkileri mevcut.
02/12/2009, 12:12

hezarfen70

sn admin bu eklenti sorununa bir çözüm bulsanız da bu konuyu çöpten çıkarsak
02/12/2009, 12:33

accessman

teşekkürler ayhan2122
02/12/2009, 13:47

ayhan2122

İnternet tarayıcı olarak hangi programı (ie8-mozilla) kullanıyorsunuz bilmiyorum ama tarayıcınızı kaldırıp yeniden kurmanızı tavsiye ederim.
ÜstForm ile Altformu aşağıdaki kodları kullanarak birbirine bağlayabilirsiniz.
AltFormAdı.LinkMasterFields = "ÜstFormdakiAlanAdı"
AltFormAdı.LinkChildFields = "AltFormdakiAlanAdı"
Ayrıca örnekte "if...then" yerine "Select case" kullandım, inceleyiniz.
Bir de işkodu'nu da otomatik yaptım.
1 2 3 4 5 6