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

    Aplicação travando

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Aplicação travando

    Mensagem  Mylton em Sex 05 Ago 2016, 22:21

    Nessa aplicação algumas vezes quando abro o form, ele trava, não permitindo cadastrar nada.
    Como resolvo?
    Obrigado


    Última edição por Mylton em Sex 05 Ago 2016, 22:35, editado 1 vez(es)

    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 27/02/2013

    Re: Aplicação travando

    Mensagem  percoski em Sex 05 Ago 2016, 22:29

    ??? cade a aplicação???

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Aplicação travando

    Mensagem  Mylton em Sex 05 Ago 2016, 22:39

    Esqueci...
    rs
    Anexos
    Teste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 6 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Aplicação travando

    Mensagem  Mylton em Dom 07 Ago 2016, 17:09

    Boa tarde
    Refiz conforme abaixo....
    Mas não percebi o porque de ainda estar travando as vezes as escolhas nos subforms.

    Private Sub ComandoNovo_Click()
    DefinirAtivacaoSubForm
       If MsgBox(" Deseja cadastrar um novo exame físico?", vbOKCancel + vbDefaultButton1 + vbInformation, "!!!!!AVISO!!!!!") = vbOK Then
    DoCmd.GoToRecord , , acNewRec
    'Habilita controles IdExameFisico e lista1

    With Me
       .IdExameFisico.Enabled = True
       .Lista1.Enabled = True
    '   .Data.Enabled = True 'False
    '   .btn1.Enabled = True 'False
    '   .btn2.Enabled = True 'False
    '   .btn3.Enabled = True 'False
       .ComandoSalvar.Enabled = True 'False
       '*** aparece essa mensagem no topo do formulário
       .Caption = "Exame Médico sendo efetuado"
    End With
       Else ' caso não queira cadastrar, ação cancelada
    MsgBox " Ação cancelada, funcionário não cadastrado", vbInformation, " !!!!!AVISO!!!!!"
       End If
    End Sub


    Quando clico na caixa 1

    Private Sub Lista1_Click()
    'Habilita controles Data, btn1, 2 e 3 3 ComandaSalvar
       With Me
           .Data.Enabled = True
           .btn1.Enabled = True
           .btn2.Enabled = True
           .btn3.Enabled = True
           .ComandoSalvar.Enabled = True
       End With
    End Sub



    Ao salvar....

    Private Sub ComandoSalvar_Click()
    Me.Caption = "Registro sendo salvo!!!"
       If MsgBox(" Deseja salvar esse exame físico?", vbOKCancel + vbDefaultButton1 + vbInformation, "!!!!!AVISO!!!!!") = vbOK Then
    DoCmd.Save ' salva o registro
    DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
       MsgBox " Exame físico salvo com sucesso !", vbOKOnly, " !!!!!AVISO!!!!!"
    DoCmd.GoToRecord , , acNewRec
    ' vai para um novo registro, desabilitando os campos IdExameFisico, lista1, Data, ComandoSalvar, btn1, 2 e 3.
       With Me
           .IdExameFisico.Enabled = False
           .Lista1.Enabled = False
           .btn1.Enabled = False
           .btn2.Enabled = False
           .btn3.Enabled = False
           .Data.Enabled = False
           .ComandoSalvar.Enabled = False
       '***deixa apena esse comando habilitado
       .ComandoNovo.Enabled = True
       End With
    Me.Refresh
       Else
    ' se o usuario cancelar a operação, surge essa mensagem
           MsgBox " Ação cancelada por você, o exame não foi salvo !", vbInformation, " !!!!!AVISO!!!!!"
       End If
    'Atualiza imagem subformulário
    Me!SubFormulario.SourceObject = "subformulario"
    End Sub


    e quando excluo.....
    Private Sub ComandoExcluir_Click()
    'Tratamento de erro
    On Error GoTo Err_Delete
    'Declaração da variável
       Dim numRecord As Integer
    'Solicitação do id do exame físico
       numRecord = InputBox("Informe o Id do Exame Físico....:", "!!!!!AVISO!!!!!")
    'Confirmação de operação de excluir
       If MsgBox("Deseja excluir o Exame " & numRecord & "?", vbQuestion + vbYesNo, "!!!!!AVISO!!!!!") = vbYes Then
    Dim SQL As String
    'Aviso de execução
    DoCmd.SetWarnings False
    'ALTERE O NOME DA TABELA E NOME DO CAMPO tabela nome do campo
           SQL = "DELETE * FROM Tbl_ExameFisico WHERE IdExameFisico = " & numRecord
    'Executa consulta
    DoCmd.RunSQL SQL
    'Confirmação do processo
       MsgBox "Exclusão realizada com sucesso!", vbInformation, "!!!!!AVISO!!!!!"
    DoCmd.GoToRecord , , acNewRec
       Else
       MsgBox " Ação cancelada por você", vbInformation, "!!!!!AVISO!!!!!"
           Exit Sub
       End If
       DoCmd.RunCommand acCmdRefresh
       DoCmd.GoToRecord , , acNewRec
    Exit_Delete:
    Exit Sub
    Err_Delete:
       MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "!!!!!AVISO!!!!!"
    Resume Exit_Delete
    ' Desabilita os campos IdExameFisico, lista1, Data, ComandoSalvar, btn1, 2 e 3.
       With Me
           .IdExameFisico.Enabled = False
           .Lista1.Enabled = False
           .btn1.Enabled = False
           .btn2.Enabled = False
           .btn3.Enabled = False
           .Data.Enabled = False
           .ComandoSalvar.Enabled = False
       '***deixa apena esse comando habilitado
       .ComandoNovo.Enabled = True
       End With
    Me.Refresh
    End Sub

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Aplicação travando

    Mensagem  Mylton em Sab 13 Ago 2016, 18:39

    Ola....
    Alguém poderia ajudar?

      Data/hora atual: Sex 09 Dez 2016, 11:31