+- 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ığı: Alt Form İçinde Alt Form + İşaretinin Açılması (/konu-alt-form-icinde-alt-form-isaretinin-acilmasi.html)
Cvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ielmacilar - 29/08/2018
Hocam Ben yaptığınızdan bir şey anlamadım.
Ben formda yaptığım arama ile alt tabloyu bağladım alt tablodakileri bulabiliyorum. İstediğim ParçaAdı araması sonrası Tablo2 alt formu da açılan (+) Tablo3 alt formunun, Tablo2 alt form satırına geldiğim de o satırın (+) sının otomatik açılması...Saygılar
Cvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ozanakkaya - 30/08/2018
Merhaba, önceki mesaja eklediğim örnek uygulamayı hazırladığım pc dışında 4 farklı pcde denedim. 5 pcnin 2sinde çalışıyor, 3ünde çalışmıyor. Sendkeys ile ilgili bir sıkıntı var.
Cvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ozanakkaya - 30/08/2018
Son hali ektedir, inceleyip olumlu/olumsuz bildirimde bulununuz.
Cvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ielmacilar - 30/08/2018
Hocam windows 7 Access 2003 sendkeys yaşanan problemler için şöyle bir kod buldum size sormadan kullanmayayım dedim zaten nerede kullanacağımı anlamadım.
Kod:
If Nz(sQueryParams, "") <> "" Then
MyParameters = Split(sQueryParams, "|", -1, vbTextCompare)
If MyParameters(0) = "*UseQueryDef*" Then
Else
For nParameter = 0 To UBound(MyParameters)
If Not init Then
If IsDevEnv() Then
IsIDEUnderVista = (OsVersion() >= 6)
If IsIDEUnderVista Then Set WshShell = CreateObject("WScript.Shell")
End If
init = True
End If
If Not IsIDEUnderVista Then
VBA.SendKeys MyParameters(nParameter) & "{Enter}"
Else
WshShell.SendKeys MyParameters(nParameter) & "{Enter}"
' SendKeys MyParameters(nParameter) & "{Enter}"
Next
End If
End If
'send some CR's if requested
'Kris 20100823 - Send Keys fix
For nLoop = 1 To nEnters
'SendKeys "{Enter}", False
If Not init Then
If IsDevEnv() Then
IsIDEUnderVista = (OsVersion() >= 6)
If IsIDEUnderVista Then Set WshShell = CreateObject("WScript.Shell")
End If
init = True
End If
If Not IsIDEUnderVista Then
VBA.SendKeys "{Enter}", False
Else
WshShell.SendKeys "{Enter}", False
End If
Next
Private Function IsDevEnv() As Boolean
Dim x As Long
Debug.Assert Not TestIDE(x)
IsDevEnv = x = 1
End Function
Private Function TestIDE(x As Long) As Boolean
x = 1
End FunctionCvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ielmacilar - 30/08/2018
Hocan son örnek iyi çalışıyor fakat form1'i açtığımızda arama yaptıktan sonra Tablo2 alt formda ilk satırlarda noa otomatik sayıda focus var o focus yüzünden olsa gerek satırı açmıyor. Alttaki satırlara tab yada enterladığımız da hepsini açıyor. ilk satırları açmıyor.
Cvp: Alt Form İçinde Alt Form + İşaretinin Açılması - ozanakkaya - 16/09/2018
Merhaba, 15 gün geçmiş. Ben düzenlediğim örneği tekrar inceledim. Herhangi bir sorun yok. Tıkladığınız alanı genişletiyor.