Get selected title from the search control

    Dim selectedTitle As Common.IdName = New Common.IdName()

    If Not GetSearchAttributeValue("titleId", selectedTitle.Id, selectedTitle.Name) Then

      ' force to choose the current title

      selectedTitle = Fred.SelectTitleDlg(SystemUserOptions.Edt_NewEditionTitleId)

      If selectedTitle.Id = DBDesc.InvalidId Then

        Return 'no selected title

      End If

    End If