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

    [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção)

    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção) Empty [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção)

    Mensagem  L34NDR0 Qua 26 Fev 2014, 7:40 am

    pessoal,

    estou utilizando o código abaixo para gerar relatórios de itens selecionados em uma listbox, porém, quando não há itens selecionados, dá um erro e vai para depuração. Como faço para abrir uma caixa de mensagem quando o usuário clica no botão de comando sem selecionar o(s) item(ns) na listbox para avisá-lo que a seleção é obrigatória?

    Private Sub Comando0_Click()

    Dim sel As Variant
    Dim strWhere As String

    strWhere = "nome in ("
    For Each sel In Me.Lista0.ItemsSelected
    strWhere = strWhere & "'" & Me.Lista0.ItemData(sel) & "',"
    Next
    strWhere = strWhere & ")"

    DoCmd.OpenReport "Relatório1", acPreview, , strWhere

    End Sub


    thanks

    Leandro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3781
    Registrado : 04/04/2010

    [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção) Empty Re: [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção)

    Mensagem  Avelino Sampaio Qua 26 Fev 2014, 8:10 am

    Olá!

    Experimente a propeiedade me!lista0.ItemsSelected.count.

    Exemplo:


    Private Sub Comando0_Click()

    Dim sel As Variant
    Dim strWhere As String

    if me!lista0.ItemsSelected.count = 0 then
    msgbox "selecione um ou mais itens..."
    exit sub
    end if

    strWhere = "nome in ("
    For Each sel In Me.Lista0.ItemsSelected
    strWhere = strWhere & "'" & Me.Lista0.ItemData(sel) & "',"
    Next
    strWhere = strWhere & ")"

    DoCmd.OpenReport "Relatório1", acPreview, , strWhere

    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção) Empty Re: [Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção)

    Mensagem  L34NDR0 Qua 26 Fev 2014, 8:47 am

    valeu Avelino!

    grande mestre!!!!!!!!!!!!


      Data/hora atual: Ter 27 Set 2022, 1:52 pm