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
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.
Son hali ektedir, inceleyip olumlu/olumsuz bildirimde bulununuz.
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 Function
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.
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.