MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 555
    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)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9734
    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

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

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 555
    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 17 Dez 2017, 12:10