Access

[vicentim 0]

Em um formulário, onde foi colocado um botão fechar, e onde foi excluida a caixa de controles, como fazer para ao fechar este formulario os dados ali digitados não sejam salvosGostaria muito de poder contar com a ajuda de alguem.AbraçosSérgio Vicentim

[AinerFrasson 0]

Em um formulário, onde foi colocado um botão fechar, e onde foi excluida a caixa de controles, como fazer para ao fechar este formulario os dados ali digitados não sejam salvosGostaria muito de poder contar com a ajuda de alguem.AbraçosSérgio Vicentim

Olá:você pode criar uma macro para executar um comando de saida... Na tela de Macros em Ação, selecione a opção "Sair". Na parte inferior da tela existe "Argumentos da ação", selecione em opção o comando "sair" novamente, salve a macro... Já no formulário, acrescente o botão de comando e com o assistente mesmo aponte ele para a macro que você criou. Ela vai encerrar o aplicativo sem salver o que esta digitado no formulário...

[vicentim 0]

Em um formulário, onde foi colocado um botão fechar, e onde foi excluida a caixa de controles, como fazer para ao fechar este formulario os dados ali digitados não sejam salvosGostaria muito de poder contar com a ajuda de alguem.AbraçosSérgio Vicentim

Olá:você pode criar uma macro para executar um comando de saida... Na tela de Macros em Ação, selecione a opção "Sair". Na parte inferior da tela existe "Argumentos da ação", selecione em opção o comando "sair" novamente, salve a macro... Já no formulário, acrescente o botão de comando e com o assistente mesmo aponte ele para a macro que você criou. Ela vai encerrar o aplicativo sem salver o que esta digitado no formulário...

Olá, como vai?Infelizmente sua dica não deu certo, ou talvez eu não soube me explicar, abaixo transcrevo o código que criei.Private Sub Fechar_Click()On Error GoTo Err_Fechar_ClickDim saida As Integersaida = MsgBox("Deseja salvar este registro?", vbQuestion + vbYesNo, "Confirmar saída")If saida = vbYes Then 'se clicar em sim If Not TestaCampos Then Exit SubElse 'se clicar em não End IfDoCmd.CloseExit_Fechar_Click: Exit SubErr_Fechar_Click: MsgBox Err.Description Resume Exit_Fechar_ClickEnd SubNão sei o que colocar no else.Desde já agradeço, qualquer orientação.