[Resolvido] Gravar vários campos em um único campo

[zequi2009 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Pessoal!

Tenho uma tabela com vários campos

Entre ele tenho o campo Nome; e o Campo Data de Nascimento:

Gostaria de saber como faço para transformar esses campos em um código

quando esse código surgirá da união desses dois campos. os dados serão inseridos em um mesmo formulário, gravando em uma única tabela.

Exemplo: Nome: Paulo da Silva de Souza, Data Nascimento 19/06/2009 Código:automático

pegaria esses dois campos e transformaria em um código, onde esse código seria as iniciais dos Nomes e a data de nascimento sem as barras.

Então ficaria assim: PSS19062009, gravando esse código em um outro campo chamado código.

Por favor me ajudem.

Obrigado.

[Mário Monteiro 179]

terá que fazer isso via programação depois que inserir o registro pois automaticamente desconheço

[zequi2009 0]

por favor como faço isso via programação?

[Mário Monteiro 179]

como está inserindo os registros?

[zequi2009 0]

estou inserindo os dados desta forma:

Campo nome: José da Silva Souza

Campo data nasc: 20/06/2009

 

e gostaria que fosse gravado em outro campo o código unindo estes dois campos:

 

exemplo: Código_cliente: JSS20062009

 

onde pegaria-se as iniciais maiúsculas do campo nome e uniria-se a data de nascimento sem as barras /.

 

Entendeu Mário?

Obrigado.

[Mário Monteiro 179]

mas que leinguagem está usando

 

pois esta montagem fica mais simples se for feita na linguagem

[zequi2009 0]

estou usando access com códigos em vba

[Mário Monteiro 179]

então antes de inserir crie este codigo

 

seria simples

 

com um simples SPLIT voce cria um array com todas as palavras

 

depois com um FOR e o uso do LEFT voce pega o primeiro caracter de cada palavra

 

depois concatena o resultado com a data usando DAY MONTH e YEAR

 

duvidas? mostre como fez que o ajudamos

[zequi2009 0]

Tenho pouco conhecimento de Vba

e não sei como montar isso.

È possivel você me passar como faço isso?

Obrigado!

[Mário Monteiro 179]

ja passei como faz

[zequi2009 0]

esse négocio que você me passou pra mim é como se estivesse em grego.

não entendi nada, amigo.

 

Pô sou um quase leigo neste assunto.

Gostaria de algo mais concreto, mais explicado.

[Mário Monteiro 179]

não está não

 

farei o básico aqui mas saibas que não é padrão fazer códigos e sim ajudar a entender

 

voce diz que já consegue inserir isso

 

Campo nome: José da Silva Souza

Campo data nasc: 20/06/2009

então para inserir o outro é só adicionar o campo lai mesmo, então apenas o ajudarei a montar o código com base nestes dois campos que já tem

 

mas só para não fazer tudo ignorarei as preposições e o D do da entrará

 

Nome = "José da Silva Souza"
Data = "20/06/2009"
ArrayNomes = SPLIT(Nome, " ")
Codigo = ""
FOR I = LBOUND(ArrayNomes) TO UBOUND(ArrayNomes)
Codigo = Codigo & UCASE(LEFT(ArrayNomes(I),1))
NEXT
Codigo = Codigo & DAY(Data) & MONTH(Data) & YEAR(Data)
Response.write(Codigo)

Teste

[zequi2009 0]

Caro Mário

muito obrigo!

Resolveu meu problema

você é o Cara!!!!!

um abraço!

[Mário Monteiro 179]

que bom que resolveu

 

abraços