Option Compare Database

Public Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
                    ByVal lpWindowName As String) As Long
Public Declare Function SetFocus _
        Lib "user32.dll" (ByVal hWnd As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Системный_номер_DblClick(Cancel As Integer)
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
hhh1 = SetForegroundWindow(hhh)
hhh1 = Module1.SetFocus(hhh)
SendKeys "{F3}", True
SendKeys "2", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys CStr(Me.Системный_номер), True
SendKeys "%{v}", True
End Sub

Public Const SW_NORMAL = 1
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

...
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
hhh1 = SetForegroundWindow(hhh)
hhh1 = Module1.SetFocus(hhh)
ShowWindow hhh, SW_NORMAL
...

hhh = FindWindow("Afx:00400000:8:00010003:00000000:000504E9", vbNullString)

 Public Const MaxLen = 128
 Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
 (ByVal hWnd As Long, _
 ByVal lpClassName As String, _
 ByVal nMaxCount As Long) As Long

Public Function ClassName(hWnd As Long)
Dim strBuffer As String
strBuffer = Space(MaxLen)
intCount = GetClassName(hWnd, strBuffer, MaxLen)
ClassName = Trim(strBuffer)
End Function

...
dim hhh as long
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
Debug.Print ClassName(hhh)
...

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2

Public Function Gethwnd() As Long
Dim ListItem As String
Currwnd = GetWindow(Application.hWndAccessApp, GW_HWNDFIRST)
Do While Currwnd <> 0
 Length = GetWindowTextLength(Currwnd)
 ListItem = Space(Length + 1)
 Length = GetWindowText(Currwnd, ListItem, Length + 1)
 If Length > 0 Then
    If InStr(1, ListItem, "Primer - старый формат ( малая модель )") > 0 Then Gethwnd = Currwnd
 End If
 Currwnd = GetWindow(Currwnd, GW_HWNDNEXT)
 DoEvents
Loop
End Function

...
'hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )") - комментируем строку
hhh = Gethwnd
...