[Resolvido] Fonte de Registro de Subform baseado em consulta SQL

[fa.b.io 0]

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 0]

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.