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

    Concatenar durante Select Case

    Kebao10
    Kebao10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 15/07/2011

    Concatenar durante Select Case Empty Concatenar durante Select Case

    Mensagem  Kebao10 Dom maio 22, 2016 8:02 pm

    Boa noite gente boa gostaria de uma ajuda para saber onde esta o erro no meu raciocínio, tentei criar um código onde verifico várias caixa de seleção e as que estiverem como true será adicionado ao nome do arquivo de exportação mas só está recebendo da primeira selecionada bom segue o código abaixo:
    Código:
    Dim nomeArquivo As String
    nomeArquivo = DLookup("Cpf", "tbl_funcionario", "Cod_funcionario=" & getFuncionarioAtual) & ":_"
    Select Case True
        Case Me.slCartaoBanco
        nomeArquivo = nomeArquivo & "Cartao_"
        Case Me.slCnh
        nomeArquivo = nomeArquivo & "CNH_"
        Case Me.slCpf
        nomeArquivo = nomeArquivo & "CPF_"
    End Select
    MsgBox nomeArquivo, vbCritical, "teste"


    esse é só o começo do código serão várias caixa de seleção.
    Kebao10
    Kebao10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 15/07/2011

    Concatenar durante Select Case Empty Re: Concatenar durante Select Case

    Mensagem  Kebao10 Qua maio 25, 2016 8:17 am

    Ninguém? Crying or Very sad
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    Concatenar durante Select Case Empty Re: Concatenar durante Select Case

    Mensagem  =>Nois Qua maio 25, 2016 8:38 am

    voce ja testou se apenas o dlookup esta funcionando?


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    Concatenar durante Select Case Empty Re: Concatenar durante Select Case

    Mensagem  =>Nois Qua maio 25, 2016 8:44 am

    utilizo este select em um quadro

    Select Case Quadro271

    Case 1

    DoCmd.OpenForm "frm_OS_Historico"
    DoCmd.OpenForm "producao_princ", , , , , acHidden

    Case 2

    DoCmd.OpenReport "rtl_Estoque_cad", acViewReport

    Case 3

    DoCmd.OpenReport "rtl_fornecedores", acViewReport

    Case 4

    DoCmd.OpenReport "rtl_transportadora", acViewReport

    Case 5

    'DoCmd.OpenReport "rtl_Estoque_TipoMaterial", acViewReport

    Case 6

    'DoCmd.OpenReport "rtl_Estoque_TipoMaterial", acViewReport

    Case 7

    DoCmd.OpenReport "rtl_MO", acViewReport

    Case 8

    DoCmd.OpenReport "rtl_ServicosPrestados", acViewReport

    Case 9

    DoCmd.OpenReport "rtl_TempoPermanencia", acViewReport


    End Select


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Concatenar durante Select Case Empty Re: Concatenar durante Select Case

    Mensagem  Alexandre Neves Qui Jun 09, 2016 6:37 am

    Bom dia
    Não entendi a 1ª linha: Select Case True
    Substitua True pela expressão a ser avaliada


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Concatenar durante Select Case Empty Re: Concatenar durante Select Case

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex Nov 22, 2024 11:44 am