MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Formulário Genérico

    Compartilhe

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Formulário Genérico

    Mensagem  theand.abreu em Qua 30 Jul 2014, 20:12

    Boas Galera,

    Não sei se o que quero é possível mas lá vai.

    Para pesquisar um cadastro de Clientes,Funcionários,Fornecedores quero fazer uma tela única aonde passo os parâmetros e o formulário seja montado de acordo a estes parâmetros.

    Esbarrei na primeira situação :
    Código:
    Private Sub Form_Load()
        Select Case Me.OpenArgs
            Case "cliente"
                Me.Rótulo4.Caption = "Pesquisa de Clientes"
                Me.Rótulo1.Caption = "Digite o Nome do Cliente"
                formulario = "Cliente"
                campo = "cli_codigo"
            Case "funcionario"
                Me.Rótulo4.Caption = "Pesquisa de Funcionários"
                Me.Rótulo1.Caption = "Digite o Nome do Funcionário"
                formulario = "Empregado"
                campo = "emp_codigo"
            Case "fornecedor"
                Me.Rótulo4.Caption = "Pesquisa de Fornecedores"
                Me.Rótulo1.Caption = "Digite o Nome do Fornecedor"
                formulario = "Fornecedor"
                campo = "for_codigo"
        End Select
    End Sub

    Private Sub lstnomes_DblClick(Cancel As Integer)
        DoCmd.OpenForm formulario, , , "[" & campo & "] = " & Me.lstnomes
        DoCmd.Close acForm, "pesquisa"
    End Sub
    Como montar a váriavel formulario e campo para ser usada no "OpenForm" da "Private Sub lstnomes"?

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: Formulário Genérico

    Mensagem  theand.abreu em Sex 01 Ago 2014, 14:06

    A falta de conhecimento traz o sofrimento!

    Consegui resolver essa parte de acordo a explicação do post var entre subs, colocando uma simples instrução :
    Código:
    Public formulario As Variant
    Public campo As Variant

    Agora preciso popular uma listbox de acordo a opção.

    Código:
                strSql = "SELECT Fornecedor.for_codigo " _
                       & "     , Fornecedor.for_nome AS Fornecedor " _
                       & "     , Fornecedor.for_telefone AS Telefone " _
                       & "FROM   Fornecedor " _
                       & "WHERE  Fornecedor.for_nome Like '*" & Me.txt_nome.Text & "*'"
                Me.lstnomes.RowSource = strSql
                Me.lstnomes.Requery

    Porem me gera o seguinte erro :
    Erro em tempo de execução '2185':
    Você não pode fazer referência a uma propriedade ou a um método de
    um controle, a menos que o controle tenha o foco.
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 14:15