[Resolvido]Proibir espaços inicial em campo na tabela ao se digitar dados

Bom dia caros amigos...

Como colocar em um código, a proibição de, ao digitar, não ser permitido deixar um espaço no começo do texto?

Ex.:

"_Fulano de tal"

Grato

Uma ideia pode ser, no evento "Após atualizar" do campo:

If Left(Me.NomeCampo, 1) = " " Then
Me.NomeCampo = Mid(Me.NomeCampo, 2, Len(Me.NomeCampo) - 1)
Else
End If

A função acima só irá substituir o primeiro espaço. Se o usuário inserir mais de um espaço no início, só retira o primeiro. Então fica aqui uma instrução melhorada para retirar qualquer espaço no início do campo:


Do
If Left(Me.NomeCampo, 1) = " " Then
Me.NomeCampo = Mid(Me.NomeCampo, 2, Len(Me.NomeCampo) - 1)
End If
Loop While Left(Me.NomeCampo, 1) = " "

Ok Amigão.. assim que testar dou retorno

Abraços

Antes de actualizar do campo
txtCampo=LTrim(txtCampo)

Caro Alexandre, poderia só a título de conhecimento traduzir esta expressão?


Grato

LTrim quer dizer Left Trim, ou seja, retira espaços à esquerda.

Curioso eu não???

Ops.. Resolvido

Boa tarde

Estou a utilizar este comando "txtCampo=LTrim(txtCampo)" numa caixa de combinação e funciona.

Mas se esta caixa de combinação tiver esta função:

Private Sub Para_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do Access.
If MsgBox("Rubrica " & UCase(NewData) & " não Registada !" & vbCrLf _
& "Deseja Actualizar?", 32 + vbYesNo, "Nova Rubrica ?") = 6 Then
DoCmd.openForm "DespesasSubInserir", , , , acFormAdd, _
acDialog, NewData
Para = UCase(NewData) 'Transforma para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Para = Null
End If
End Sub

No campo do formulário onde introduz os dados funciona, mas na tabela "DespesasSubInserir" fica gravado mas com os espaços em branco se eles existirem.

Obrigado

E a tabela grava o dado da combo ou do campo?

Ola Criquio

Ao confirmar o "Se não estiver na lista"

Abre o Form "DespesasSubInserir", , , , acFormAdd, _



Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
Me![DespesasSub] = UCase(Me.OpenArgs)
End If
End Sub

Mas é esse segundo form que salva registro na tabela? Talvez se tentar o evento "Ao carregar" e/ou "No atual" desse segundo formulário...

Não resulta