[Resolvido]Tecla TAB em um formulario

Bom dia a todos.
Gostaria de saber se existe a possibilidade da tecla tab funcionar como tabulação somente em um campo memorando de um formulário.

Olá! Uma forma de se conseguir isso, pode ser usando o evento "Ao apertar tecla" do seu campo memorando. A propriedade "Comportamento da tecla Enter", na aba "Outra", convem estar definida como "Nova linha no campo" e é bom ter um outro campo para receber o foco antes de aplicar a ação, pois esse evento requer que o campo seja atualizado. Ante de mais nada, caso ainda não tenha, coloque a seguinte linha logo após a linha Option Compare Database, no módulo vba do formulário:

Option Explicit

Agora, após a linha Option Explicit, coloque mais uma linha:

Dim L As String

Essa variável, para a qual demos o nome de L, irá assumir o valor NL quando pressionarmos na tecla Enter e irá assumir LA quando pressionarmos outra tecla qualquer. Para quê isso? Porque se pressionarmos a tecla Enter, o espaço da tecla Tab terá que ficar na linha de baixo, porque queremos inserir uma nova linha. Então, na nossa instrução, quando L for NL, colocaremos vBcRlF para adicionar a linha que queremos no nosso campo. Agora, no evento "Ao apertar tecla" do seu campo memo, coloque algo assim:

If KeyCode = vbKeyTab Then ' Se a tecla pressionar for a Tab...
    Me.Campo2.SetFocus ' Manda o foco para o campo 2
    Me.CampoMemo.SetFocus ' Retorna o foco para o memo
        If L = "LA" Then ' Se L for LA...
            Me.CampoMemo = Me.CampoMemo & "       " ' adiciona 7 espaços após o cursor ("       ")
        ElseIf L = "NL" Then ' se L for NL
            Me.CampoMemo = Me.CampoMemo & vbCrLf & "       " ' passa para a linha de baixo (VBCRLF) e adiciona os espaços.
        End If
    Me.CampoMemo.SelStart = Len(Me.CampoMemo.Text) ' envia o cursos para o fim do texto.
    KeyCode = 0 ' Inibe a ação padrão de TAB
Else
End If

If KeyCode = vbKeyReturn Then ' Se tecla pressionar for Enter
    L = "NL" ' L = NL
Else ' caso contrário...
    L = "LA" ' L = LA
End If

Criquio
Primeiramente muito obrigado pela sua atenção.
Tenho dúvidas pois sou uma iniciante em Banco de dados.
- como acho o módulo vba do formulário? em propriedades?
- no evento "ao apertar tecla" vou construir código? (construtor de código).
Desculpe a minha ignorância.

Se você for no Construtor de código, já abrirá o módulo vba do formulário. Quando você clicar no campo memo, com o formulário em modo estrutura, e acessar as propriedades desse campo, verá a aba Eventos. Clicando nessa aba, você verá uma lista dos eventos disponíveis para um campo tipo texto. Quando clicar na linha "Ao apertar tecla", aparecerá um botão com reticências(...). Clicando nas reticências, abrirá uma caixa de diálogo com três opções. Ao escolher "Construtor de código", terá acesso ao módulo. Aí bastará colocar o código do evento "Ao apertar tecla" na linha do cursor e depois colocas as outras duas linhas de código logo abaixo de Option Compare Database.

Criquio
Não sei se fiz corretamente o que voce me indicou, mas ficou conforme abaixo, só que deu erro de compilação e fica selecionada a primeira linha: Private Sub...... e o erro no Me.Campo2.
Onde foi que eu errei?
Option Compare Database
Option Explicit
Dim L As String

Private Sub CORRELAÇÃO_DIAGNÓSTICA_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab Then ' Se a tecla pressionar for a Tab...
Me.Campo2.SetFocus ' Manda o foco para o campo 2
Me.CampoMemo.SetFocus ' Retorna o foco para o memo
If L = "LA" Then ' Se L for LA...
Me.CampoMemo = Me.CampoMemo & " " ' adiciona 7 espaços após o cursor (" ")
ElseIf L = "NL" Then ' se L for NL
Me.CampoMemo = Me.CampoMemo & vbCrLf & " " ' passa para a linha de baixo (VBCRLF) e adiciona os espaços.
End If
Me.CampoMemo.SelStart = Len(Me.CampoMemo.Text) ' envia o cursos para o fim do texto.
KeyCode = 0 ' Inibe a ação padrão de TAB
Else
End If

If KeyCode = vbKeyReturn Then ' Se tecla pressionar for Enter
L = "NL" ' L = NL
Else ' caso contrário...
L = "LA" ' L = LA
End If

End Sub

Você tem algum campo com o nome de Campo2 no formulário? Você precisa colocar o nome exato do campo que irá servir de intermediário na ação. Talvez tenha outro(s) campo(s) no formulário que você possa usar para essa tarefa. Basta colocar o nome correto dele.

Olha só, seu campo memo tem o nome de CORRELAÇÃO_DIAGNÓSTICA, certo? Então, você deve usar esse nome no lugar de CampoMemo. Como não sabemos os nomes dos campos dos usuários, colocamos as dicas com nomes genéricos. Você precisa alterar para os nomes corretos dos campos.

Observei que o nome do seu campo contem espaços, pois tem um underline entre os dois nomes. Não é aconselhável dar nomes com espaços para controles e elementos. Veja no meu pequeno artigo do link abaixo o porquê:

http://maximoaccess.forumeiros.com/t1162-dicas-para-iniciantes-nomear-campos-e-elementos-de-um-sistema-em-access?highlight=iniciantes

Criquio
muito obrigado, trocarei os nomes dos meus campos com voce instruiu.
Somente uma dúvida, o CampoMemo é o meu correlacaodiagnostica, e o campo2, seria o campo seguinte ao meu CampoMemo?

O segundo campo pode ser qualquer outro campo ou mesmo um botão para onde o foco será enviado para depois voltar para o campo memo. Isso porque o procedimento que é executado para colocar a tabulação no campo é executado depois que o campo é atualizado. E para ele ser atualizado, precisa perder o foco.

Criquio
Deu certo.
Muito obrigado pela sua atenção, realmente voces são o maximo do access.
Até a minha próxima dúvida.

Obrigado pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez eu clico.