[Resolvido]Variável em Módulo

Boa tarde caros amigos...
Sou novo aqui no fórum e já tenho uma questão que não estou conseguindo resolver.. conto com a ajuda dos amigos.

Tenho um formulário de cadastro de usuários.
Esse formulário executa um módulo que contem uma variável (Varcampo = login).

Minha pergunta é:

Quando a função do módulo é executado, por sinal corretamente, traz a mensagem se quero realmente cadastrar o usuário.. até ai ok.
Mas não me traz o nome do usuário, campo login do formulário que deveria vir através da variável login. Como posso resolver isso ?

Desde já agradeço os amigos.

Segue exemplo como fiz.

Public Function Gravar()

Dim varcampo As String
varcampo = login

If MsgBox("Deseja cadastrar o usuário: " & varcampo & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
DoCmd.RunCommand acCmdSaveRecord 'Função salvar
MsgBox ("Usuário cadastrado com sucesso !"), vbInformation, "Cadastro"

Else
DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"

End If

End Function

Boa tarde e bem-vindo ao fórum
Leia as regras para facilitar a vivência no fórum
Sobre a sua dúvida, será isto que pretende:

Public Function Gravar()
If MsgBox("Deseja cadastrar o usuário: " & login & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
DoCmd.RunCommand acCmdSaveRecord 'Função salvar
MsgBox "Usuário cadastrado com sucesso !", vbInformation, "Cadastro: " & login
Else
DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"
End If
End Function

Boa tarde Alexandre, como vai ?
Agradeço muito sua resposta em minha questão.

Com certeza estarei lendo sim as regras do fórum...

Realizei as alterações conforme você informou mais ainda continua da mesma forma...
Aparece a mensagem se quero gravar o usuário mais não aparece o usuário digitado no campo login do formulário.

O que posso estar deixando passar ?


Lembrando que:
Se o código estiver dentro do próprio formulário do cadastro o código funciona perfeitamente chamando a variável e aparece o nome na mensagem, mais esse código coloquei dentro de um Módulo e no formulário chamo o código através do Docmd.

Boa tarde
Não tinha entendido que se tratava de módulo independente

No módulo:
Public Sub Gravar(strLogin as string)
If MsgBox("Deseja cadastrar o usuário: " & strLogin & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
DoCmd.RunCommand acCmdSaveRecord 'Função salvar
MsgBox ("Usuário cadastrado com sucesso !"), vbInformation, "Cadastro"
Else
DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"
End If
End Sub

No formulário, passe o argumento Login:
GoSub Gravar(login)

Bom dia Alexandre.

Perfeito !
Tudo certo agora.

Agradeço.

Olá Peres!

Reforço o convite do nosso amigo Alexandre Neves, em ler as regras do fórum.

E uma delas é fechar o tópico colocando o Resolvido no título do tópico.

Para isso, edite qualquer mensagem tua e clique no botão Resolvido situado mais

abaixo, no lado direito da opção Modificar o título do fórum.

Boa sorte!

Balem

Feito