[fa.b.io]

Olá pessoal,
Gostaria de saber como alterar a fonte de registro de um subformulário via VBA usando consulta SQL.

Eu inseri o seguinte código em um Botão de comando para testar, mas aparece o erro nº 2001 (Você cancelou a operação anterior):

Private Sub CmdAltera_Click()
Dim sSql As String

sSql = "SELECT * FROM Tbl_Historico WHERE Tbl_Historico.Codigo='" & TxtDetalhe & "';"

Me.SubS.Form.RecordSource = sSql

End Sub

Obs:
TxtDetalhe=Caixa de texto onde insiro o item a ser pesquisado.
SubS= O subformulário onde quero mudar a fonte de registro.

Desde já agradeço a atenção.

Deus te abençoe.

[fa.b.io]

Oi pessoal,
Consegui resolver.

O erro estava na forma de referênciar o caixa de texto TxtDetalhe.
A mudança ficou assim:

Private Sub CmdAltera_Click()
Dim sSql As String

sSql = "SELECT * FROM Tbl_Historico WHERE Tbl_Historico.Codigo=Forms!MeuFormulario!TxtDetalhe;"

Me.SubS.Form.RecordSource = sSql

End Sub


Valeu.