What event is triggered when I click on a base form? (solved)

edit

Hello,

Attach the following:

Sub GetGrid(oEvent)
    Dim oForm As Object
    Dim oColumn As Object
    Dim sValue as String
    Dim sFilter as String
    Dim sColumnName as String
    Dim iColumn as Integer
    If oEvent.Buttons = 1 and oEvent.Modifiers = 2 Then
        oForm = ThisComponent.Drawpage.Forms.getByName("YOUR_FORM_NAME")
        iColumn = oEvent.Source.CurrentColumnPosition
        oColumn = oForm.Columns.getByIndex(iColumn)
        sColumnName = oColumn.Name
        sFilter = "(" & sColumnName & " = '" & oColumn.String & "')"
        oForm.Filter = sFilter
        oForm.reload()
    End If
End Sub

to the Mouse button released event of the grid. To activate, hold down Ctrl key when left mouse clicking a cell in the grid. The selected value will be used for the filtering.

To clear the filtering, place a button on the form attached to this macro:

Sub ClearFilter
    Dim oForm As Object
    oForm = ThisComponent.Drawpage.Forms.getByName("YOUR_FORM_NAME")
    oForm.Filter = ""
    oForm.reload()
End Sub

Edit:

Please note that this wasn't tested against all field types. Has worked for integer, varchar, decimal, and boolean fields. The Ctrl key will not work if the column is a list box ( combo box seems to work). If you want to use the list box possibly change from Ctrl to Alt key (modifier = 4).

I understand you wanting this for those users not able to cope with the normal filtering, and the added key is more than just a click but just clicking will be a problem anytime a cell is selected.