[Resolvido]Controle Guia em Formulário contendo subformulário x mudar Foco

Boa tarde

Em meu formulário, no evento após atualizar do cliente estou tentando atribuir o set focus direcionando para, primeiro o controle guia e depois o subformulário de pesquisa de equipamentos, conforme imagem abaixo.



Ocorre que ao tentar fazer isto no evento após atualizar retorna-se o erro 2110....

O código que estou a usar é este:

Código:


Private Sub idCliOrdem_AfterUpdate()
'On Error GoTo trataerro
Dim un
Dim strEmpresa As String

strEmpresa = DLookup("[idEmpresa]", "qrEmpresa")

    Me!dtEntOrdem.Value = Date
    Me!idEmpOrdem.Value = strEmpresa
    Me!txtEndereco.Value = Me!idCliOrdem.Column(2)
    Me!txtRes.Value = Me!idCliOrdem.Column(7)
    Me!txtCom.Value = Me!idCliOrdem.Column(5)
    Me!txtCel.Value = Me!idCliOrdem.Column(6)
    Me.Controls!gAparelho.SetFocus
    Forms![frmOrdem]![frmFiltraEquip].SetFocus 'O erro ocorre aqui
    Forms![frmOrdem]![frmFiltraEquip].Form!tx1.SetFocus
   
    If (Me.Contador) = 0 Then
        un = Nz(DMax("Contador", "tbOrdem"), 20000) + 1
        Me!Contador = un
    Else
        DoCmd.RunCommand acCmdSaveRecord
    End If
   
Sair:
    Exit Sub
trataerro:
    Select Case Err.Number
        Case 3078
            MsgBox "Tabela não encontrada...", vbInformation, "Aviso"
        Case Else
            MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", _
            Err.HelpFile, Err.HelpContext
    End Select
    Resume Sair:

End Sub


Algum amigo tem alguma dica de como posso resolvê-lo....

Att.
Vinicius

Deve funfar acrescentando o .Form

Código:

Forms![frmOrdem]![frmFiltraEquip].Form.SetFocus

Boa tarde

Obrigado pela resposta mas não deu certo, retorna o erro 2449 - Há um método inválido em uma expressão e retorna a linha - Forms![frmOrdem]![frmFiltraEquip].Form.SetFocus

Att.
Vinicius

Ok;

Delete estas 3 linhas;

Código:

Me.Controls!gAparelho.SetFocus
Forms![frmOrdem]![frmFiltraEquip].SetFocus 'O erro ocorre aqui
Forms![frmOrdem]![frmFiltraEquip].Form!tx1.SetFocus

Cole apenas estas duas e teste por favor;

Código:

Forms.Item("frmOrdem").Controls("frmFiltraEquip").SetFocus
Forms.Item("frmOrdem").frmFiltraEquip.Controls.Item("tx1").SetFocus

Obrigado..... fiz o teste....

Com as linhas:

Forms.Item("frmOrdem").Controls("frmFiltraEquip").SetFocus
Forms.Item("frmOrdem").frmFiltraEquip.Controls.Item("tx1").SetFocus

retorna-se o erro 2110

Att.
Vinicius

Ola Vinicius,poste o bd pra gente ver.
Abç.

Os comandos que lhe passei, funcionam na perfeição.
Provavelmente os nomes não estão corretos ou o sub está bloqueado.

Boa tarde

Muito obrigado pela dica.... reescrevi e refiz os formulários e tudo funcionou conforme a dica.

Mais uma vez muito obrigado

Att.
Vinicius

Fico feliz;

Obrigado pelo retorno o forum agradece.