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

3 participantes

    [Resolvido]Select case em VBA

    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 34
    Registrado : 18/09/2016

    [Resolvido]Select case em VBA Empty [Resolvido]Select case em VBA

    Mensagem  onfire 21/10/2022, 11:52

    Grandes mestres
    Tenho um report que gostaria de aplicar o select case.
    Aqui no portal encontrei para aplicação em forms mas não encontrei nada em reports.
    Pelas tentativas que fiz apenas assume o primeiro campo e repete as linhas seguintes.


    Código:
    Private Sub Alteracao()

    '[TipoOperação] é o campo que carrega no detalhe do relatório
    '[Texto11] é o campo desvinculado para cálculo no relatorio ao carregar

    Select Case [TipoOperação]
    Case Is = 0
    [Texto11] = "Inclusão"
    Case Is = 1
    [Texto11] = "Alteração"
    Case Is = 2
    [Texto11] = "Exclusão"

    End Select


    End Sub

    Private Sub Report_Load()
    Call Alteracao
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    Registrado : 15/03/2013

    [Resolvido]Select case em VBA Empty Re: [Resolvido]Select case em VBA

    Mensagem  Alvaro Teixeira 21/10/2022, 12:06

    Olá Nelio,

    Já tentou a "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja se não é isto (No Relatorio, só deve chamar a função no evento ao formatar.):  
    https://www.maximoaccess.com/t3447-resolvidocalendario-em-relatorio

    Abraço
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 332
    Registrado : 17/09/2010

    [Resolvido]Select case em VBA Empty Re: [Resolvido]Select case em VBA

    Mensagem  Pablo Neruda 21/10/2022, 12:24

    Para se afetar os registros no detalhe, o select case deve estar na "Private Sub Detalhe_Format" que todas as vezes que ele for formatar a linha com os dados será efetuada a verificação do select.


    Private Sub Detalhe_Format()
    Call Alteracao
    End Sub


    .................................................................................
    [Resolvido]Select case em VBA Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg

    onfire gosta desta mensagem

    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 34
    Registrado : 18/09/2016

    [Resolvido]Select case em VBA Empty Re: [Resolvido]Select case em VBA

    Mensagem  onfire 23/10/2022, 19:10

    Aprendo mais aqui que em qualquer vídeo de formação.
    Obrigado.

    Pablo Neruda gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    Registrado : 15/03/2013

    [Resolvido]Select case em VBA Empty Re: [Resolvido]Select case em VBA

    Mensagem  Alvaro Teixeira 24/10/2022, 00:31

    Olá a todos,

    Nelio, obrigado pelo feedback, o fórum agradece.

    Abraço

      Data/hora atual: 27/1/2023, 05:52