[Resolvido]Erro em tempo de execuçao - 2465

Boa tarde


Estou com a seguinte situação:

- Tenho uma consulta com determinadas informações apresentadas em um subformulário (continuo), com um botão de alteração que chama os dados do respectivo registro na tabela para manutenção em um outro forumulário (fomulario pop up). O formulário abre normalmente, e, caso faça qualquer alteração, e tente fechar o formulario recebo a mensagem:

Erro em tempo de execução 2465: Erro de definição de aplicativo ou de definição de objeto.



O código que uso no evento após atualizar do formulário é:



Private Sub Form_AfterUpdate()
'On Error GoTo Err_Comando3_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Agenda"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "inicio"
Me.Form.subfrm_Agendamentos.Requery

Exit_Comando3_Click:
Exit Sub

'Err_Comando3_Click:
'MsgBox Err.Description
'Resume Exit_Comando3_Click


End Sub





O erro é reclamado na linha Me.Form.subfrm_Agendamentos.Requery....., comentei o erro para ter o retorno do banco......., mas, se tirar o comentário, dá o mesmo erro.



Meu formulário prioncipal chama-se frm_agenda, tenho um subfrm_agendados onde tenho esta manutenção, com um botão alterar, abrindo um segundo formulário frm_manterconsultas.....



Uso o access 2007.



Será que alguem te alguma ideia do que possa fazer para resolver

Para fazer referencia a campos em um sub form...

Forms!NomeDoseuForm.NomeDoSeuSubForm.Form!NomedoSeuCampo

Podes tentar assim tambem:

Me.Parent.NomeDaSuaCaixaNoForm

Mas se o erro for no requery do subform... observe que os nomes estão errados:


O erro é reclamado na linha Me.Form.subfrm_Agendamentos.Requery....., comentei o erro para ter o retorno do banco......., mas, se tirar o comentário, dá o mesmo erro.



Meu formulário prioncipal chama-se frm_agenda, tenho um subfrm_agendados onde

Veja tambem nas propriedades pois o nome do objeto SubForm no Form pode estar com o nome diferente do nome original do subFOrm

Harysohn

Tentei fazer conforme me disse, mas francamente, não consegui....., disponibilizei o backup em http://www.4shared.com/file/vuIGoHHi/Clinica.html - se puder me ajudar, te agradeço.

Funciona assim:

Abre-se o frm_selecao, seleciona o profissional, faz o agendamento, ai no subformulario tem o botao alterar dados da consulta...., entrando com alteração, mudando o valor de qualquer campo e mandando gravar, dá o erro.

Fix exatamente como falou...

Escolhi o Dr. Rafael Augusto....

Em consultas agendadas alterei a situacao do paciente Anna Paula Costa....
Para cancelado

Cliquei em alterar dados da consulta...

Abriu um form: Manutencao da Agenda

Cliquei em Salvar...

Normal.. não houve erro algum

Hum.. entendi...

Percebi o erro

Porque esta colocando o código no tratamento de erro????

Esta linha esta dando erro.. ao inves de corrigi-la.. prefereiu aplicar códigos no tratamento de erro...

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Solução

Botão Gravar

Código:


Private Sub Gravar_Click()
On Error GoTo Err_Gravar_Click
    If IsNull(Me.dtData) = True Then
        MsgBox "Para agendar uma consulta é preciso informar a Data!! Preenchimento Obrigatório", vbInformation, "Atenção"
        Me.dtData.SetFocus
    ElseIf IsNull(Me.Id_Paciente) = True Then
        MsgBox "Para agendar uma consulta é preciso informar o Paciente!! Preenchimento Obrigatório", vbInformation, "Atenção"
        Me.Id_Paciente.SetFocus
    ElseIf IsNull(Me.Hora) = True Then
        MsgBox "Para agendar uma consulta é preciso informar o Horário!! Preenchimento Obrigatório", vbInformation, "Atenção"
        Me.Hora.SetFocus
    Else
        'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        MsgBox "Consulta Alterada com Sucesso!", vbInformation, "Atenção"
        Forms!Frm_Seleção.Requery
        DoCmd.Close acForm, "frm_AlteraAgenda"
    End If

Exit_Gravar_Click:
    Exit Sub

Err_Gravar_Click:

    Resume Exit_Gravar_Click
   
End Sub

Form_AfterUpdate

Código:


Private Sub Form_AfterUpdate()
    'Me.Parent.frm_agenda.SetFocus
    'DoCmd.GoToControl "frm_Agenda"
    'Me.Form![frm_agenda]![subfrm_AgendarHorários].Requery
    'Me.Parent.subfrm_Agendamentos.Requery
    'DoCmd.Close
    'DoCmd.GoToControl "AlteraDados"
On Error GoTo Err_Comando3_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Agenda"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "inicio"
   
Exit_Comando3_Click:
    Exit Sub

Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click


End Sub

Saudações

http://dl.dropbox.com/u/26441349/Vinicius%2CAnna_19_08_11.rar

Saudações

Bom dia Harysohn

Muito Obrigado, ficou perfeito!

Assim que tudo estiver pronto, vou te encaminhar para ver como ficou.

De momento, só tenho a lhe agradecer.

Att. Vinicius

Valeu.. So faltou o resolvido no tópico amigão...

Bom trabalho.

Obrigado