[Resolvido]Abrir formulario que é chamado por um subformulário.

Amigos,

Tenho o formulário chamado frmCriaregistro, dentro deste possui o subformúlario (AAAfrmCriaRegistroSubFormAtual), que no evento ao clicar do subformulário ele deveria abrir o form no registro que eu preciso.

Usei o critério abaixo para abrir o formulário, mas falta algo que ligue ao form principali, pois quando faço o teste somente com subformulario o registro abre corretamente.

SELECT tblRecursoRegistros.CódGuia, tblRecursoRegistros.JustificarAcato FROM tblRecursoRegistros WHERE (((tblRecursoRegistros.CódGuia)=[Forms]![AAAfrmCriaRegistroSubFormAtual]![Texto27]));

Alguém tem uma dica?

Up.

Se o subform está dentro do form, também o tem de referenciar;

Para engradecer os seus conhecimentos;

http://dl.dropboxusercontent.com/u/771097/Referenciar_aos_Subforms.doc

Forms!frmCriaregistro!AAAfrmCriaRegistroSubFormAtual.Form!Texto27

Tentei implementar o código assim:

SELECT tblRecursoRegistros.CódGuia, tblRecursoRegistros.JustificarAcato, tblRecursoRegistros.CódServiço
FROM tblRecursoRegistros
WHERE (((tblRecursoRegistros.CódGuia)=[Forms]![frmCriaRecursosRealizados]![AAAfrmCriaRecursoSubFormJustificativaAcatado].[Form]![Texto27]));


Porém, da erro e abre a janela para Inserir Valor do Parâmetro.

Quer anexar parte do seu banco ?

Segue link de parte do banco.

Abra o form (frmCriaRecursosRealizados), clique duas vezes no campo (ValorAtual que está em vermelho), e veja que não abre o form filtrado.

https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0

Grato,

Primeiramente retire todos os criterios e as instruções que você tem;

Faça o simples;

No duplo click do campo acatado;

Código:

DoCmd.RunCommand acCmdSave
DoCmd.OpenForm "frmRecursoJustificativaAcato", OpenArgs:=Nz(Me.CódGuia,0)

No open do form "frmRecursoJustificativaAcato";

Código:

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me.Filter = "CódGuia='" & OpenArgs & "'"
    Me.FilterOn = True
Else
MsgBox "Sem dados...", vbCritical
Cancel = True
End If
End Sub


http://dl.dropboxusercontent.com/u/771097/Banco%20de%20Dados1_OLD.zip

De acordo amigo,

Funcionou, mas se eu quiser incluir o segundo critério (CódServiço) como ficaria o código?

Grato,

Somente curiosidade mesmo, pois minha dúvida já está sanada.

Fico feliz pelo seu interesse em querer crescer em conhecimentos;

Nesse caso, vamos concatenar os dois criterios com um pipe e usar a função interna Split no open do segundo form, lembrando que existem mil maneiras de fazer nestum;

Código:

DoCmd.RunCommand acCmdSave
DoCmd.OpenForm "frmRecursoJustificativaAcato", OpenArgs:=Nz(Me.CódGuia, 0) & "|" & Nz(Me.CódServiço, 0)

No open do form "frmRecursoJustificativaAcato";

Código:

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me.Filter = "CódGuia='" & Split(Me.OpenArgs, "|")(0) & "' AND CódServiço=" & Split(Me.OpenArgs, "|")(1) & ""
    Me.FilterOn = True
Else
MsgBox "Sem dados...", vbCritical
Cancel = True
End If
End Sub


Perfeito amigo,

Muito obrigado por compartilhar um pouco do seu conhecimento!

Fico feliz por si.

Obrigado pelo retorno o forum agradece.