[Resolvido]Colocar mensagem apos clicar em salvar

erickafram 2/8/2011, 20:39

erickafram: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 44
Registrado : 03/06/2011

Mensagem nº1

Colocar mensagem apos clicar em salvar

Mensagem erickafram 2/8/2011, 20:39

como faço para colocar uma mensagem apos clicar em salvar,tipo seus dados foram salvo.
E como faço para quando salvar ele voltar para a primeira aba do controle de guia.
Obrigado

criquio 2/8/2011, 20:57

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Colocar mensagem apos clicar em salvar

Mensagem criquio 2/8/2011, 20:57

Você está usando macro ou vba no botão?

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

erickafram 2/8/2011, 21:09

erickafram

erickafram: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 44
Registrado : 03/06/2011

Mensagem nº3

Re: [Resolvido]Colocar mensagem apos clicar em salvar

Mensagem erickafram 2/8/2011, 21:09

Não estou usando

**vieirasoft** 2/8/2011, 21:33

vieirasoft

vieirasoft: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010

Mensagem nº4

Re: [Resolvido]Colocar mensagem apos clicar em salvar

Mensagem vieirasoft 2/8/2011, 21:33

Para VBA:
Coloque um botão de comando e no evento click:

Dim Msg, Style, Title
Msg = "Deseja gravar os dados?"
Style = "vbYesNo"
Title = "Gravar"
Msg = MsgBox(Msg, vbYesNo, Title)
If Msg = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Cancel = True
End If