MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Problemas com formulário contínuo

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    [Resolvido]Problemas com formulário contínuo

    Mensagem  Mylton em Qua 24 Ago 2016, 18:26

    Boa tarde.
    Estou quebrando a cabeça numa coisa simples que não consigo resolver há alguns dias.
    Alguém poderia ajudar-me a resolver essa questão?
    Nesse exemplo temos 3 tabelas 2 forms
    O form EscolhaFarmaco (continuo) funciona como sub do exame físico.
    Suas combos estão funcionado certo.
    Acontece que quando gero um cadastro no form principal o form continuo não permite cadastrar mais do que 1 registro, e quando salvamos suas caixas não ficam vazias.
    Como resolvo?
    Obrigado.
    Anexos
    Teste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 3 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Problemas com formulário contínuo

    Mensagem  JPaulo em Qui 25 Ago 2016, 13:45

    Ola;

    Antes de mais, tem de vincular as suas combos a cada campo da tabela, senão não vai saír do 1º registro.

    Para limpar as combos, basta usar o, no seu botão Salvar:

    Forms!FrmExameFisico!FrmEscolhaFarmaco.Form.Requery

    Teste1.zip

    Código:
    Private Sub ComandoSalvar_Click()
    Me.Caption = "REGISTRO SENDO SALVO..."
    If MsgBox(" deseja salvar esse exame ?", vbOKCancel + vbDefaultButton1 + vbInformation, "AVISO SISTEMA !!") = vbOK Then
    DoCmd.Save ' salva o registro
    DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
    'refresca o subform
    Forms!FrmExameFisico!FrmEscolhaFarmaco.Form.Requery
    MsgBox " Exame salvo com sucesso !", vbOKOnly, " AVISO SISTEMA !!"
    DoCmd.GoToRecord , , acNewRec  ' vai para um novo registro, travando os campos novamente.
    With Me
      '  .IdExameFisico.Enabled = False
        .Lista1.Enabled = False
    '***deixa apenas esses botões habilitados e o da foto desabilitado
    .ComandoNovo.Enabled = True
    .ComandoSalvar.Enabled = True
    End With
    Me.Refresh
    Else ' se o usuario cancelar a operação, surge essa mensagem
    MsgBox " Ação cancelada por você, exameo não foi salvo !", vbInformation, " AVISO SISTEMA !!"
    End If
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Problemas com formulário contínuo

    Mensagem  Mylton em Sex 26 Ago 2016, 14:44

    Muito Obrigado JPaulo.
    Funcionou.
    Gde abs

      Data/hora atual: Dom 04 Dez 2016, 14:12