MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Formulário Genérico

    Compartilhe
    avatar
    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, 16: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"?
    avatar
    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, 10:06

    A falta de conhecimento traz o sofrimento!

    Consegui resolver essa parte de acordo a explicação do post [Você precisa estar registrado e conectado para ver este link.], 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: Qui 23 Nov 2017, 13:04