[Resolvido]Ajuda com Variável em uma Função

Boa tarde a todos no forum,

Preciso de um codigo p/ "pegar" o cód do registro ativo independente do formulário aberto p/ implementar na mensagen de registro salvo que vai em mais de um form, conf. abaixo.

' Função P/ o Botão Salvar
Public Function FunSalvar()

'Variável p/ pegar o Código do Registro ativo do Form aberto
Dim Campo As String
Campo = "?" ' -> eis onde preciso do código

DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh

MsgBox "Registro Salvo com Sucesso: " & vbCrLf & vbCrLf & "Código: " & Campo, vbInformation, "AVISO!!!"

End Function

Ja pesquisei muito mais não consegui resolver, alguem pode me dar uma dica?

Boa noite, Silvanio
Não entendi a questão

Boa noite,

è o seguinte:

Preciso criar uma variável que pegue o nº do registro atual p/ incluir na MensageBox, o numero "100" seria o registro que estou salvando que iria p/ a variavel, pois a função que criei p/ salvar funcionara em todos os formulários.

ja criei a variavel "Campo" só falta o comando p/ pegar o nº do registro atual.

Quero que fique assim ma Mensagem:

--------------------------------
Registro salvo com sucesso:

Registro Nº: 100
--------------------------------

Outro detalhe que esqueci de comentar é que a função p/ salvar fica em um Modulo e não diretamente no código do formulario, por isso acho que não posso usar o "Form.etc...".

Teria que ser um comando p/ pegar o Cod do registro atual no form sem estar implementado no Modulo do form questão.

Olá

Acrescente então o argumento na função:

Public Function FunSalvar(id)

'Variável p/ pegar o Código do Registro ativo do Form aberto
Dim Campo As String
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh

MsgBox "Registro Salvo com Sucesso: " & vbCrLf & vbCrLf & "Código: " & id, vbInformation, "AVISO!!!"

End Function


Lá no seu formulário, chame pela função , informando o campo desejado

call funSalvar(me!NomeDocampoCódigo)

Sucesso!

Aqui está mais um código para enriquecer o seus acervos


Public Function FunSalvar()

'Variável p/ pegar o Código do Registro ativo do Form aberto
Dim Campo As String, id As Integer
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
id = Screen.ActiveForm!idCliente
MsgBox "Registro Salvo com Sucesso: " & vbCrLf & vbCrLf & "Código: " & id, vbInformation, "AVISO!!!"

End Function


No Fomulário:

FunSalvar ou

Call FunSalvar



Abraços

Perfeito!!!

...Muitissimo obrigado, quando eu crescer quero ser como vocês!!!


Problema Resolvido!!!!!

Faltou marcar o tópico como resolvido Silvanio!

Silvanio,

Para marcar resolvido, prima o botão na zona inferior direita do formulário.
Este já o marquei