Trim com Both

Sabemos que a função TRIM retira todos os branco existentes no início ou no final de uma string, porém também podemos retirar valores diferentes de brancos usando a função BOTH, no exemplo abaixo estou retirando todos os 0 (zeros) existentes no início e no final da string XPTO.

declare
  xpto varchar2(20) := '0000asdaf0000';

begin
  dbms_output.put_line('Primeiro Resultado');
  dbms_output.put_line('------------------');
  dbms_output.put_line(trim(both '0' from xpto));

  dbms_output.new_line;

  dbms_output.put_line('Segundo Resultado');
  dbms_output.put_line('------------------');
  dbms_output.put_line(trim(xpto));

end;

Resultado

Primeiro Resultado
------------------
asdaf

Segundo Resultado
------------------
0000asdaf0000

Selecionar texto em TextBox

O código abaixo faz com que o conteúdo do controle TextBox seja selecionado automaticamente ao receber o foco.

      Private Sub Text1_GotFocus()

        Call SelectMe(Me.ActiveControl)

      End Sub

      Private Sub Text2_GotFocus()

        Call SelectMe(Me.ActiveControl)

      End Sub

      Private Sub SelectMe(This As TextBox)

        This.SelStart = 0

        This.SelLength = Len(This.Text)

      End Sub

TRE - Título de eleitor

Para quem esqueceu o número do título e o local de votação basta acessar este site

http://www.tse.jus.br/eleitor/titulo-e-local-de-votacao