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

    Chamar função

    Compartilhe

    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2017

    Chamar função

    Mensagem  Anderson Catarino em 3/12/2018, 12:26

    Bom dia.
    Estou com dificuldades em finalizar o formulário pesquisa.
    Quando abro o formulário não carrega a caixa de listagem e o botão procurar também não funciona.
    Se clicar no botão limpar, já carrega a caixa de listagem e o botão procurar já funciona.



    **************************************************************************
    ' AO ABRIR'
    Private Sub Form_Open(Cancel As Integer)
    Call filtraListBox
    End Sub

    'LIMPAR'
    Private Sub Limpar_Click()
    ( não coloquei o codigo mas ao fazer limpar, limpa todas as combo´s do formulário )
    Me.ListaSpmPesquisa.RowSource = " SELECT boletim, oc, projecto, acessorio, tipo, modelo, datarecepcao, fornecedor, lote,local, tamanholote, tamanhoamostra, obs, decisao FROM spm ORDER BY boletim DESC;"
    End Sub

    'PROCURAR'
    Private Sub Procurar_Click()
       Call filtraListBox
    End Sub

    'FILTRAR'
    Sub filtraListBox()
       
       Dim str, filtro As String
       
       ' combo boletim - texto
       
       If Not IsNull(Me.Boletim) = True Then
           If str <> "" Then str = str & " and "
           
           str = str & "boletim = '" & Me.Boletim.Column(0) & "'"
       End If
       
      ( Tenho varias combo´s só coloquei aqui a 1ª e ultima )
       
       'combo Decisão - texto
       
       If Not IsNull(Me.decisao) = True Then
           If str <> "" Then str = str & " and "
           
           str = str & "decisao = '" & Me.decisao.Column(0) & "'"
       End If
       
       filtro = "SELECT boletim, oc, projecto, acessorio, tipo, modelo, datarecepcao, fornecedor, lote,local, tamanholote, tamanhoamostra, obs, decisao FROM spm"
       
       If str <> "" Then filtro = filtro & " WHERE " & str

       Me.ListaSpmPesquisa.RowSource = filtro
       Me.ListaSpmPesquisa.ColumnCount = 14
       
    End Sub

    **************************************************************************
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4177
    Registrado : 20/04/2011

    Re: Chamar função

    Mensagem  Silvio em 3/12/2018, 18:56

    ' AO ABRIR'
    Private Sub Form_Open(Cancel As Integer)
    call Limpar_Click()
    Call filtraListBox
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

      Data/hora atual: 17/1/2019, 23:58