+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: klavyede altfomdan üstforma geçiş yapmak (/konu-klavyede-altfomdan-ustforma-gecis-yapmak.html)
Cvp: klavyede altfomdan üstforma geçiş yapmak - mehmetb84 - 12/04/2011
aynen bunu istemiştim teşekkürler.
Cvp: klavyede altfomdan üstforma geçiş yapmak - mehmetb84 - 14/04/2011
Arkadaşlar şuanda da şöyle bir sorunum var, aynı veritabanı için konuşuyorum tekrar eklememe gerek yok sanırım.
Aynı alt formu kullanan iki ana formda da aynı alt formu kullanıyorum. (örneğin hambezsiparis1 ve t_sorgu ikisi de t_ürünler alt formunu kullanıyor)
Dolayısı ile altforuma yazdığım üst forma geçiş kodu bir anaform için çalışırsa diğeri için hata veriyor. Söz gelimi hambezsiparis1 formunda çalıştığım zaman "Forms!t_sorgu!Ürünadı.SetFocus" yolunu izlemeye çalışıyor ama aslında çalıştırması gereken kod "Forms!hambezsiparis1!Hamsip_no.SetFocus.
Sanırım burada if li bir kod yazmamız gerekicek,şu formdaysan şunu uygula diğerindeysen şunu uygula gibi..
Yardımcı olabilirseniz sevinirim,Şimdiden teşekkürler.
Cvp: klavyede altfomdan üstforma geçiş yapmak - Coskun0559 - 14/04/2011
kullanılacak form aktif olmadığı için ;yani imlecin gideceği denetimimin bulunduğu form aktif olmadığı için hata verecektir.
aynı altformu kullanan 2 adet formunuz varsa örneğin son halini ekleyin ki ona göre çözüm bulalım
Cvp: klavyede altfomdan üstforma geçiş yapmak - Yandemir - 14/04/2011
parent diye bir komut vardı biraz müsade edersen araştırayım
aşağıdaki kodda işaretli komut üst formun adını veriyor. buna göre birşeyler yapabilirsiniz.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox Parent.Name
If KeyCode = 17 Then Forms!usttablo!ad.SetFocus
End Sub
Cvp: klavyede altfomdan üstforma geçiş yapmak - mehmetb84 - 14/04/2011
son örnekte zaten aynı altform kullanılıyor.
Cvp: klavyede altfomdan üstforma geçiş yapmak - Yandemir - 14/04/2011
örneğin hambezsiparis1 ve t_sorgu ikisi de t_ürünler alt formunu kullanıyor)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox Parent.Name
If KeyCode = 17 Then
if parent.name = "hambezsiparis1" then Forms!hambezsiparis1!ad.SetFocus
if parent.name = "t_sorgu" then Forms!t_sorgu!ad.SetFocus
end if
End Sub