[Resolvido]Função não trabalha quando em subformulario

Ola amigos estamos novamente por aqui

Tenho a seguinte função para preencher os dados de um formulário automaticamente, funciona redondinho. Porem quando o formulário é chamado em uma janela e fica em subformulário, não funciona.

Segue o COD

Código:

Private Sub Nome_AfterUpdate()
Dim Banco As Database, Cliente As Recordset, Sql As String
Sql = "SELECT [Produtor], [CNPJ/CPF], [Endereço], [Município], [Propriedade] " & _
"FROM Exp " & _
"WHERE Produtor='" & Me.Nome.Text & "';"

Set Banco = CurrentDb
Set Cliente = Banco.OpenRecordset(Sql)

If Not Cliente.RecordCount = 0 Then
Me.Endereço = IIf(IsNull(Cliente!Propriedade), "", Cliente!Propriedade) & " - " & IIf(IsNull(Cliente!Endereço), "", Cliente!Endereço)
Me.Município = IIf(IsNull(Cliente!Município), "", Cliente!Município)
Me.cpf = IIf(IsNull(Cliente![CNPJ/CPF]), "", Cliente![CNPJ/CPF])

Else
MsgBox "Não existem dados para o Produtor selecionado.", vbExclamation, "Erro"
End If
Set Banco = Nothing
Set Cliente = Nothing

alguém sabe como faze-lo funcionar mesmo quando o formulário entra em modo sub?

desde ja agradeço
um abraço

Mais informações

O codigo acima esta no formulario frmtf
Menu é o formulario principal
Explorações é o subformulario em Menu
frmtf está como subformulario de Explorações.

devo deixar essa consulta no formulario menu? ou ela fica no frmtf mesmo?

ta me dando dor de cabeça esse trem rsrsrs

Para subformulário, tente usar algo como:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeTabela")

Me.NomeCampo1.ControlSource = rs!NomeCampo1
Me.NomeCampo2.ControlSource = rs!NomeCampo2
Me.NomeCampo3.ControlSource = rs!NomeCampo3

rs.Close
Set rs = Nothing

Mais ou menos isso. Adapte à sua necessidade

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.