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ı...
AltformAc_sld_2.rar
(Dosya Boyutu: 32,01 KB | İndirme Sayısı: 7)
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