Artigos Canal Mais DICA RAPIDA :Access com VBA
No access crie um banco de dados com a tabela abaixo:
 
cod :: auto numeração
nick:: irá receber a funçao
nome :: texto
sobrenome::texto
 
 
abra o editor do VBA e crie a função que vai gerar o código, digitando a seguinte linha de instrução:
 
Private function CodGera as string
 
CodGera = nome & "-" & sobrenome
 
' a função recebe o que foi digitado nos campos nome e sobrenome
 
end function
 
Feche o editor
 
Ative as propriedades do controle nick
 
na propriedade de origem do controle, digite a instrução de chamada da função CodGera
 
= CodGera()
 
Ao clicar um novo registro, feche a janela de propriedades e vizualize o formulário. Depois digite nome e sobrenome em um registro. O campo nick será preenchido com a função ao criar o CodGera. A função também funciona para registro que ja foram digitados por concatenar dados de dois outros controles