MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Filtro Multipla seleção criado pelo ChatGPT Não funcionou

    avatar
    JIR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 138
    Registrado : 28/08/2016

    Filtro Multipla seleção criado pelo ChatGPT Não funcionou Empty Filtro Multipla seleção criado pelo ChatGPT Não funcionou

    Mensagem  JIR 16/4/2023, 18:38

    Olá

    Tentei que o ChatGPT ajudasse a criar o código o mais simples possivel para um filtro de multipla seleção, mas não funcionou

    Tenho um Formulário “frmSaidasConsulta” que contém uma caixa de listagem desvinculada “ListaSelecao”, na origem de linha tenho uma tabela “tb000MtvMd” com um campo “CodMtvMd” com os seguintes registos 00 01 02 03 04 05 10 11 Neste mesmo Formulário “frmSaidasConsulta”, tenho uma ListaSaidas baseada numa consulta “qrySaidas” e essa consulta contem um campo “CodMtvMd” com vários registos do tipo 00 01 02 03 04 05 10 11 Então quero escolher na caixa de listagem os códigos “ListaSelecao” 00 05 10 E a ListaSaidas baseada na consulta “qrySaidas” me devolva todos os registos do tipo 00 05 10

    O ChatGPT criou este, que não funcionou ou seja filtra mas apenas um código de cada vez e eu quero que filtre vários códigos aleatoriamente
    que estarei a fazer de errado ou será que o ChatGPT não interpretou corretamente

    Private Sub ListaSelecao_AfterUpdate()
       'Variáveis para armazenar os valores selecionados e o filtro criado
       Dim varItensSelecionados As Variant
       Dim strSQL As String
       Dim strFiltro As String
       Dim i As Long
       
        Me.ListaSelecao = Me.ListaSelecao.Column(0)
       ' Verifica se há itens selecionados na lista de seleção
       If Not IsNull(Me.ListaSelecao.Value) Then
           ' Armazena os valores selecionados na caixa de combinação na variável varItensSelecionados
           varItensSelecionados = Split(Me.ListaSelecao.Value, ",")
       Else
           ' Define a variável varItensSelecionados como vazia
           varItensSelecionados = Empty
       End If
       
       'Verifica se há valores na variável varItensSelecionados
       If Not IsEmpty(varItensSelecionados) Then
           'Cria uma string de filtro baseada nos valores selecionados
           For i = LBound(varItensSelecionados) To UBound(varItensSelecionados)
               strFiltro = strFiltro & "CodMtvMd='" & varItensSelecionados(i) & "' OR "
           Next i
           
           'Remove o último "OU" da string de filtro
           strFiltro = Left(strFiltro, Len(strFiltro) - 4)
           
           'Atualiza a origem de linha da ListaSaidas com base na nova consulta filtrada
           Me.ListaSaidas.RowSource = "SELECT * FROM qrySaidas WHERE " & strFiltro
       Else
           'Se nenhum item estiver selecionado, exibe todos os registros da consulta original
           Me.ListaSaidas.RowSource = "SELECT * FROM qrySaidas"
       End If
       
       ' Força a atualização da lista de saídas
       Me.Refresh
       
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Filtro Multipla seleção criado pelo ChatGPT Não funcionou Empty Re: Filtro Multipla seleção criado pelo ChatGPT Não funcionou

    Mensagem  JPaulo 18/4/2023, 17:01

    Tem de reclamar com o ChatGPT, esse site não é parceiro do nosso.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Filtro Multipla seleção criado pelo ChatGPT Não funcionou Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Filtro Multipla seleção criado pelo ChatGPT Não funcionou Folder_announce_new 102 Códigos VBA Gratuitos...
    Filtro Multipla seleção criado pelo ChatGPT Não funcionou Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 25/4/2024, 03:30