Olá pessoal, estou com uma duvida, como consigo filtrar um subformulário com tabelas não vonculadas?
Hoje uso essa função para salvar na tabela (BackEnd).
Faço a instancia no form assim:
Dim dbBanco As DAO.Database, rsFavorecido As Recordset
Dim strPath As String, SenhaBd As Variant
Depois:
Public Function fncAbreConexao()
SenhaBd = DecryptData(DLookup("Senha", "tblCaminhoBE"))
strPath = DLookup("[Path_0]", "tblCaminhoBe")
Set dbBanco = OpenDatabase(strPath, False, False, "MS Access;PWD=" & SenhaBd)
Set rsFavorecido = dbBanco.OpenRecordset("TblFavorecido")
End Function
Public Function fncFechaConexao()
dbBanco.Close
Set dbBanco = Nothing
End Function
E no botão salvar chamo a função para salvar na tabela:
On Error GoTo Erro
fncAbreConexao
Me.BtTxt.SetFocus
rsFavorecido.AddNew
rsFavorecido("Favorecido_Nome") = Me.TxtNome
rsFavorecido("Favorecido_Contato") = Me.TxtContato
rsFavorecido("Favorecido_Telefone") = Me.TxtTelefone
rsFavorecido("Favorecido_Observacao") = Me.TxtObservacao
' Atualizando a tabela
rsFavorecido.Update
'Mensagem de confirmação
Call Confirma("Confirmação de dados!", "* " & TxtNome & "", "Registro adicionado com sucesso.", _
"CAD_Favorecido")
Me.TxtNome.SetFocus
MakeTransparent Me.hWnd, 100
fncFechaConexao
Sai:
Exit Sub
Erro:
MsgBox " Erro ocorrido: " & Err.Number & Err.Description
Resume Sai:
Mas agora vem o problema, tenho um subformulário "CAD_FavorecidoDet" dentro do form "CAD_FavorecidoLista"
No "CAD_FavorecidoLista" tem um campo chamado "TxtBuscar" que ao digitar iria filtrando so subformulário "CAD_FavorecidoDet"
Com tabelas vinculadas funciona facil, agora nesse modelo de transição ele não funciona
Alguem teria alguma ideia ?
Hoje uso essa função para salvar na tabela (BackEnd).
Faço a instancia no form assim:
Dim dbBanco As DAO.Database, rsFavorecido As Recordset
Dim strPath As String, SenhaBd As Variant
Depois:
Public Function fncAbreConexao()
SenhaBd = DecryptData(DLookup("Senha", "tblCaminhoBE"))
strPath = DLookup("[Path_0]", "tblCaminhoBe")
Set dbBanco = OpenDatabase(strPath, False, False, "MS Access;PWD=" & SenhaBd)
Set rsFavorecido = dbBanco.OpenRecordset("TblFavorecido")
End Function
Public Function fncFechaConexao()
dbBanco.Close
Set dbBanco = Nothing
End Function
E no botão salvar chamo a função para salvar na tabela:
On Error GoTo Erro
fncAbreConexao
Me.BtTxt.SetFocus
rsFavorecido.AddNew
rsFavorecido("Favorecido_Nome") = Me.TxtNome
rsFavorecido("Favorecido_Contato") = Me.TxtContato
rsFavorecido("Favorecido_Telefone") = Me.TxtTelefone
rsFavorecido("Favorecido_Observacao") = Me.TxtObservacao
' Atualizando a tabela
rsFavorecido.Update
'Mensagem de confirmação
Call Confirma("Confirmação de dados!", "* " & TxtNome & "", "Registro adicionado com sucesso.", _
"CAD_Favorecido")
Me.TxtNome.SetFocus
MakeTransparent Me.hWnd, 100
fncFechaConexao
Sai:
Exit Sub
Erro:
MsgBox " Erro ocorrido: " & Err.Number & Err.Description
Resume Sai:
Mas agora vem o problema, tenho um subformulário "CAD_FavorecidoDet" dentro do form "CAD_FavorecidoLista"
No "CAD_FavorecidoLista" tem um campo chamado "TxtBuscar" que ao digitar iria filtrando so subformulário "CAD_FavorecidoDet"
Com tabelas vinculadas funciona facil, agora nesse modelo de transição ele não funciona
Alguem teria alguma ideia ?