Masquer l'icône de la Loupe sur les Foreign Keys sur un Active Form

Sub HidePrimaryForeignKeySearchButton(segment, field)

 On Error Resume Next

 Dim searchButton

 Set searchButton = UIMaster.RUICenter.GetForeignField(segment, field).InputElement.parentElement.nextSibling

 If Err.Number <> 0 Then
  UIMaster.ShowErrorMessage "Search button was not removed for field '" & field & "'" & vbCrLf & Err.Description
  Exit Sub
 End If

 HideForeignKeySearchButton searchButton

 ' Extend the input field to cover button space.
 UIMaster.RUICenter.GetForeignField(segment, field).InputElement.Style.Width = "15EM"
End Sub

Sub HideForeignKeySearchButton(searchButtonHTMLElement)
 If Not IsEmpty(searchButtonHTMLElement) And Not (searchButtonHTMLElement Is Nothing) Then
  ' Hide the button element
  If searchButtonHTMLElement.className = "ForeignFieldSrchBtn" Then
   searchButtonHTMLElement.removeNode(True)
  End If
 End If
End Sub