[Resolvido]Módulo para uso geral

Tenho este módulo abaixo e para cada formulário preciso criar um novo, entretanto o formulário alvo é o mesmo e os dados de pesquisa também, então queria subsituir o nome do formulário de pesquisa (neste caso do exemplo "Consulta pendentes dias" para uma pesquisa do formulário corrente/ativo.  dessa forma, acredito que um único módulo, vai atender todos os formulários de consulta.

Public Function abrirdias(idx As Byte)
'On Error Resume Next

If idx = 1 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=[Forms]![Pesquisa chaves]![ramo] " & _
         "AND sinistro=[Forms]![Pesquisa chaves]![sinistro] " & _
         "AND ano=[Forms]![Pesquisa chaves]![ano];"
 End If

 If idx = 2 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=746 " & _
         "AND sinistro=[Forms]!]Consulta pendentes dias]![sinistro] " & _
         "AND ano=[Forms]!]Consulta pendentes dias]![ano];"
 End If
         
[Form_Chaves form].RecordSource = strSQL
[Form_Chaves form].Requery

End Function

Obrigado
Cesar

Bom dia, poderia declarar uma variável do tipo Form, e quando chamar a função passe o formulário atual.
Ficaria mais ou menos assim sua função:

Considerando que os formulários Pesquisa chaves e Consulta pendentes dias são fixos:

Public Function abrirdias(frm As Form,idx As Byte)
'On Error Resume Next

If idx = 1 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=[Forms]![Pesquisa chaves]![ramo] " & _
        "AND sinistro=[Forms]![Pesquisa chaves]![sinistro] " & _
        "AND ano=[Forms]![Pesquisa chaves]![ano];"
End If

If idx = 2 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=746 " & _
        "AND sinistro=[Forms]![Consulta pendentes dias]![sinistro] " & _
        "AND ano=[Forms]![Consulta pendentes dias]![ano];"
End If
       
frm.RecordSource = strSQL
frm.Requery

End Function

Olá amigos!

Dando o meu pitaco

Mais uma opção.

Detalhe: Como pode-se ver, para testar tem que estar com o formulário na tela (ativo), se estiver na tela do VBA, vai dar erro.
Digitei direto esse código, não tenho como testa-lo.

Código:


Public Function abrirdias()

  Screen.ActiveForm.RecordSource = "SELECT  * FROM sinistro WHERE ramo= " & Screen.ActiveForm!ramo & "" & _
                                 "AND sinistro=" & Screen.ActiveForm!sinistro & "" & _
                                 "AND ano=" & Screen.ActiveForm!ano

  Screen.ActiveForm.Requery

End Function


{ }'s

Balem

Esse módulo que postei funciona perfeitamente!!!!!

em verde é fixo nunca muda.  em vermelho é o nome do formulário que quero deixar genérico, tenho ao menos 15 formulários com nomes e finalizades diferentes, e queria apenas um códido no "if idx = 2 then"

If idx = 1 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=[Forms]![Pesquisa chaves]![ramo] " & _
        "AND sinistro=[Forms]![Pesquisa chaves]![sinistro] " & _
        "AND ano=[Forms]![Pesquisa chaves]![ano];"
End If

""" ele pega os dados do ramo sinis e ano do formulário citado " consulta pendente dias " e abre o pesquisa chaves com esses dados, o pesquisa chaves e sempre o destino, o que muda são as origens os formulários  das diversas consultas.  preciso que ele pesquise no formulário corrente o sinistro e ano.

If idx = 2 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=746 " & _
        "AND sinistro=[Forms]!]Consulta pendentes dias]![sinistro] " & _
        "AND ano=[Forms]!]Consulta pendentes dias]![ano];"
End If
       
[Form_Chaves form].RecordSource = strSQL
[Form_Chaves form].Requery

End Function

Tentei misturar os códigos aqui, mas deu pau. de qualquer forma obrigado pela ajuda de ambos, estou funçando tentando resolver, mas vejam se consegui ser claro na necessidade.

Tente assim (mas acho que ainda não resolverá)
If idx = 2 Then
strSQL = "SELECT  * FROM sinistro WHERE ramo=746 " & _
       "AND sinistro=[Forms]!" & Screen.ActiveForm.Name & "![sinistro] " & _
       "AND ano=[Forms]!" & Screen.ActiveForm.Name & "![ano];"
End If

Não resolvendo, sugiro anexar um pequeno exemplo para entendermos a rotina de abertura dos formulários e assim sabermos qual formulário realmente estará ativo na tela e em qual deve ser buscado as informações de filtro.

Amigos

Estamos conjecturando, não adianta tentar ajudar sem a parte

do BD em questão.

Todos os algoritmos apresentados nesse tópico são  funcionais.

O que me aparece é que o autor do tópico não está sabendo como

usá-los.

Aguardemos que ele poste parte desse BD>

Balem

As opções que já foram apresentadas com certeza são mais eficientes e econômicas (em relação a linhas de código e objetos em form) da que te apresento agora, mas lá vai..

Tenho um form que pode ser aberto por 5 ou 6 outros forms diferentes, e ao fechar eu preciso que seja executada uma determinada rotina para cada um deles.
Como eu resolvi isso:
No form de origem (através do qual eu irei abrir o form final), eu coloquei no botão de abrir o outro form com o comando de, ao abrir este, já inserir num campo desacoplado o valor 1. Ao fechar o form final, se estiver como 1 neste campo, ele vai fazer determinada rotina.
Logo, se o form de origem for o 2, ele vai colocar essa informação no form final, que vai rodar a rotina necessária para este caso. E assim por diante.

Se a solução que já foi passada pelos demais senhores não funcionar, pode tentar fazer em maneira semelhante como eu fiz.

Basta colocar no form de destino uma caixa de texto que receberá o valor (não precisa usar nenhum campo na tabela, esse valor não precisa ser armazenado no banco) e adaptar seu código para seguir os caminhos diferentes que sejam necessários.

Se não tiver ficado claro ou não tenha funcionado, avise que ajudo como puder!

Obrigado!!!