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
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