[Resolvido]Procedimento Copiar Primeiro Nome

Bom dia!

Pessoal surgiu uma dúvida aqui: No meu BD tenho uma tabela de cadastro de funcionários. Criei recentimente um novo campo chamado de "CRACHA" este campo está sem dados. como são muitos dados preciso de um processo para copiar automáticamente o primeiro nome do funcionário que está no campo "NOME" para o meu novo campo.

exempro: JOSE ROBERTO DOS SANTOS no campo "NOME" copia JOSE para o campo "CRACHA"

Desde já agradeço a atenção de todos.

Você quer fazer isso na tabela ou no formulário/relatório? Se for na tabela, aconselho a mudar o conceito, uma vez que já existe o nome no outro campo da tabela, não sendo necessário repeti-lo, até porque isso vai aumentar o tamanho do seu banco sem necessidade.

Uma vez que você tem o nome completo na tabela, o qual acredito será repetido no formulário ou relatório, você pode utilizar a função Split para separar o campo através dos espaços entre nome e sobrenome e então pegar apenas o primeiro nome. Dê uma pesquisada no fórum e/ou no help do VBA do Access por essa função. Se for para preencher um subformulário, poderá criar uma função e utilizar o Split nessa função e então usá-la na origem do campo no subformulário.

Então você quer preencher com o primeiro nome mas sendo que o usuário poderá alterar depois, é isso? Se for isso, ainda assim pode utilizar a função Split. Basta para isso declarar um Recordset e então editar os dados pegando o primeiro nome:

Código:

Dim rs As Recordset, S As Variant

Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
    S = Split(rs!NomeCampo, " ")
    rs.Edit

    rs!CampoNovo = S(0)
    rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Teste em uma cópia do banco para o caso de der algum problema você não perder os dados originais.

OK! Muito obrigado pela atenção. Já havia resolvido através de outro procedimento: importei os dados dos dois campos para o excel e usei a fórmula =ESQUERDA(A2;PROCURAR(" ";A2;1)-1)... depois importei para o campo da minha base.