Início![[Resolvido]Filtrar Formulario com 4 subformularios Empty](https://2img.net/i/empty.gif)
matutano 1/2/2018, 21:22boa noite,
alguém disponível para ajudar a filtrar um formulário com subformulários
Obrigado
alguém disponível para ajudar a filtrar um formulário com subformulários
Obrigado
2 participantes
[Resolvido]Filtrar Formulario com 4 subformularios
matutano- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 358
Registrado : 16/05/2011
FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
Olá, Nas próximas dúvidas seja mais claro, indique onde está o problema, o que pretende, em qual objeto está o problema, se ocorre erro informe o numero se possivel com print de da linha do erro...
Acredito (Chute) que o que precisa seja isso:
Private Sub TXEDOC_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NEdoc] = '" & Me![TXEDOC] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub
Acredito (Chute) que o que precisa seja isso:
Private Sub TXEDOC_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NEdoc] = '" & Me![TXEDOC] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!
matutano- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 358
Registrado : 16/05/2011
Peço desculpa pela falta de informação daquilo que pretendia, as a sua solução resolveu Muito Obrigado,
FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
Grato pelo retorno e até a Próxima se Deus quiser!
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!
Conteúdo patrocinado