Перемещение кнопок на форме

Option Compare Database
Option Explicit
 
Dim S0
Public FocusSet, FocusTip
 
Sub ФильтрПоиска()
  Dim s1, s2
  Me.Refresh
  s1 = "True "
 
s2 = "" & Me.ПоискМестаУстановкиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and МестоУстановки like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискСредыИзмОб
  If Len(s2) > 0 Then
    s1 = s1 & " and СредаИзмерения like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискВидаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ВидОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискТипаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ТипОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискМаркиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and МаркаОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискЗав№Об
  If Len(s2) > 0 Then
    s1 = s1 & " and Зав№Об like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискПределаИзмеренияОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ПределИзмеренияОб like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискЕдИзмОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ЕдИзмерения like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискКлассаТочностиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and КлассТочности like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискДатыПоверкиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ДатаПоверки like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискПримечанияОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ПримечанияОб like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискСтатусаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and СтатусОборудования like '*" & s2 & "*'"
  End If
 
  Me.Filter = s1
  Me.FilterOn = True
End Sub
 
Private Sub Form_Current()
    DoCmd.RunCommand acCmdRefresh
End Sub
 
'Private Sub МестоУстановки_GotFocus()
'    GetFocusFld
'End Sub
Private Sub ПоискМестаУстановкиОб_Change()
  S0 = "" & Me.[ПоискМестаУстановкиОб]
    Call ФильтрПоиска
  Me.[ПоискМестаУстановкиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискСредыИзмОб_Change()
  S0 = "" & Me.[ПоискСредыИзмОб]
    Call ФильтрПоиска
  Me.[ПоискСредыИзмОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискВидаОб_Change()
  S0 = "" & Me.[ПоискВидаОб]
    Call ФильтрПоиска
  Me.[ПоискВидаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискТипаОб_Change()
  S0 = "" & Me.[ПоискТипаОб]
    Call ФильтрПоиска
  Me.[ПоискТипаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискМаркиОб_Change()
  S0 = "" & Me.[ПоискМаркиОб]
    Call ФильтрПоиска
  Me.[ПоискМаркиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискЗав№Об_Change()
  S0 = "" & Me.[ПоискЗав№Об]
    Call ФильтрПоиска
  Me.[ПоискЗав№Об].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискПределаИзмеренияОб_Change()
  S0 = "" & Me.[ПоискПределаИзмеренияОб]
    Call ФильтрПоиска
  Me.[ПоискПределаИзмеренияОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискЕдИзмОб_Change()
  S0 = "" & Me.[ПоискЕдИзмОб]
    Call ФильтрПоиска
  Me.[ПоискЕдИзмОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискКлассаТочностиОб_Change()
  S0 = "" & Me.[ПоискКлассаТочностиО]
    Call ФильтрПоиска
  Me.[ПоискКлассаТочностиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискДатыПоверкиОб_Change()
  S0 = "" & Me.[ПоискДатыПоверкиОб]
    Call ФильтрПоиска
  Me.[ПоискДатыПоверкиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискПримечанияОб_Change()
  S0 = "" & Me.[ПоискПримечанияОб]
    Call ФильтрПоиска
  Me.[ПоискПримечанияОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискСтатусаОб_Change()
  S0 = "" & Me.[ПоискСтатусаОб]
    Call ФильтрПоиска
  Me.[ПоискСтатусаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub КнОчисткаФильтра_Click()
  DoCmd.RunCommand acCmdRemoveFilterSort ' так работает, а если без неё нет
Me.[ПоискМестаУстановкиОб] = ""
Me.[ПоискСредыИзмОб] = ""
Me.[ПоискВидаОб] = ""
Me.[ПоискТипаОб] = ""
Me.[ПоискМаркиОб] = ""
Me.[ПоискЗав№Об] = ""
Me.[ПоискПределаИзмеренияОб] = ""
Me.[ПоискЕдИзмОб] = ""
Me.[ПоискКлассаТочностиОб] = ""
Me.[ПоискДатыПоверкиОб] = ""
Me.[ПоискПримечанияОб] = ""
Me.[ПоискСтатусаОб] = ""
  Me.Filter = ""
  Me.FilterOn = True
End Sub
 
Private Sub btnUp_Click()
    If Len(FocusSet & "") = 0 Then Exit Sub
    Me.OrderBy = "[" & FocusSet & "]"
    Me.OrderByOn = True
End Sub
 
Private Sub btnDown_Click()
    If Len(FocusSet & "") = 0 Then Exit Sub
    Me.OrderBy = "[" & FocusSet & "] desc"
    Me.OrderByOn = True
End Sub
 
Public Function GetFocusFld()
    Dim ac
    ac = Me.ActiveControl.Name
      If Me.ActiveControl.Name Like "ww*" Then
        FocusSet = Replace(ac, "ww", "")
        FocusTip = "Free"
        Me.btnUp.Left = Me(ac).Left
        Me.btnUp.Top = Me(ac).Top - Me.btnUp.Height - 440
        Me.btnDown.Left = Me(ac).Left + Me.btnUp.Width
        Me.btnDown.Top = Me(ac).Top - Me.btnDown.Height - 440
      Else
        FocusSet = ac
        FocusTip = "Field"
'        ac = "ww" & ac
        Me.btnUp.Left = Me(ac).Left
'        Me.btnUp.Top = Me(ac).Top - Me.btnUp.Height - 440
        Me.btnDown.Left = Me(ac).Left + Me.btnUp.Width
'        Me.btnDown.Top = Me(ac).Top - Me.btnDown.Height - 440
      End If
End Function