Private Sub P2_Click()
Me.P1.Value = Me.P2.Value
Me.P1.SetFocus
End Sub

Private Sub P1_GotFoCus()
Me.P2.Visible = False
End Sub

Private Sub PB1_Click()
s = "%" & Me.P1.Value & "%"
s2 = "*" & Me.P1.Value & "*"
strSQL = "SELECT Count([T1].[Код]) FROM [T1] WHERE ((([T1].[Продукция]) LIKE """ + s + """));"
r = CurrentProject.Connection.Execute(strSQL).Fields( 0 )
Me.P2.Visible = True
Me.P2.Height =  290  * r
strSQL2 = "SELECT [T1].[Продукция] FROM [T1] WHERE ((([T1].[Продукция]) LIKE """ + s2 + """));"
Me.P2.RowSource = strSQL2
Me.P2.Requery
End Sub