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]Montar nome de arquivo com base em valores dos campos

    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Montar nome de arquivo com base em valores dos campos Empty [Resolvido]Montar nome de arquivo com base em valores dos campos

    Mensagem  Marceff@bol.com.br 23/4/2017, 03:39

    Boa Note!!!
    A todos

    Tenho uma situação referente a automação na montagem do nome de arquivo baseado nos dados dos campos no formulário notas e após preenchidos esses campos qdo selecionado o campo Tipo de nota, o evento após atualizar desse campo deve avaliar 6 critérios diferentes devendo montar o nome do arquivo, porém não esta ocorrendo para todos os critérios, talvez seja a forma como criei a condição "if" ou a lógica esteja errada.

    Aqueles que puderem me ajudar, desde já agradeço.

    Deixo o link do aplicativo para melhor compreensão do que preciso - Descompactar na unidade C:\
    https://drive.google.com/file/d/0B3KeEwYJy2bnZENHbjhURnZYNjQ/view?usp=sharing

    Abaixo os Critérios

    'Critério 1
    'Se TipoNota = Nota de Conserto ou Nota de Transferência + campo Identificação vazio, então o nome do arquivo será montado com as opções definidas mas sem o numero de identificação

    'Critério 2
    Se TipoNota = Nota de Conserto ou Nota de Transferência + campo Identificação preenchido, então o nome do arquivo será montado com as opções definidas e com o numero de identificação

    'Critério 3
    Se TipoNota = Nota de Retorno de Conserto + campo Identificação vazio, então o nome do arquivo será montado com as opções definidas mas sem o numero de identificação

    'Critério 4
    Se TipoNota = Nota de Retorno de Conserto + campo Identificação preenchido, então o nome do arquivo será montado com as opções definidas e com o numero de identificação

    'Critério 5
    Se TipoNota = opções pré-definidas + campo Identificação vazio, então o nome do arquivo será montado com as opções definidas mas sem o numero de identificação

    'Critério 6
    Se TipoNota = opções pré-definidas + campo Identificação preenchido, então o nome do arquivo será montado com as opções definidas e com o numero de identificação

    Att. Marcelino
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Montar nome de arquivo com base em valores dos campos Empty Re: [Resolvido]Montar nome de arquivo com base em valores dos campos

    Mensagem  CassioFabre 25/4/2017, 18:08

    Bom dia,

    Eu pensaria em uma função da seguinte maneira (aqui coloquei incompleta, você deve acrescentar os critérios e campos que são necessários):
    Código:
    Private Function nomeArquivo()
        Dim nomeArquivo As String
        
        If Not IsNull(Me.TipoNota) = True Then
            nomeArquivo = Me.IDOS & " - " & Me.TipoNota
            
            If Not IsNull(Me.NDoc) = True Then
                nomeArquivo = nomeArquivo & " nº " & Me.NDoc
            End If
            
            If Not IsNull(Me.Equipamento) = True Then
                nomeArquivo = nomeArquivo & ""
            End If
            
            Me.NotaNomeArquivo = nomeArquivo
        Else
            MsgBox "Informe o tipo de nota!", vbCritical, "Erro"
            Me.NotaNomeArquivo = Null
            nomeArquivo = ""
        End If
    End Function

    Basta chamar a função no evento "Após Atualizar" da combo e de todos os campos que possam alterar o nome do arquivo.

    Edit: apesar de não ser o mesmo problema da sua dúvida, dê uma olhada em como montei o filtro neste tópico https://www.maximoaccess.com/t28228-resolvidodesempenho-de-filtro-composto-em-sub-formulario-folha-de-dados
    Abraço.
    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Montar nome de arquivo com base em valores dos campos Empty Re: [Resolvido]Montar nome de arquivo com base em valores dos campos

    Mensagem  Marceff@bol.com.br 1/5/2017, 16:04

    Obrigado CassioFabre, vou testar aqui e retorno em breve.
    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Montar nome de arquivo com base em valores dos campos Empty Re: [Resolvido]Montar nome de arquivo com base em valores dos campos

    Mensagem  Marceff@bol.com.br 12/5/2017, 00:48

    Boa Noite!!!

    Mais uma vez, obrigado CassioFabre pela sua orientação, testei conforme minha necessidade porém ocorre o mesmo comportamento como da forma que eu vinha fazendo, acredito que devido a quantidade de critérios a serem avaliados acabou que deixei complexo e então não consegui passar disso, mas então deixei a obrigatoriedade no formulário de preencher todos os campos para a formação do nome do arquivo assim ficou mais fácil e o código andou.

    Mas obrigado mesmo assim por sua disposição e ao fórum também, pois aqui consegui praticamente caminhar sozinho com as orientações, inúmeras dicas e exemplos disponibilizados que eu aplico em meu hobby.

    Abraço a todos.
    Att. marceff

    Conteúdo patrocinado


    [Resolvido]Montar nome de arquivo com base em valores dos campos Empty Re: [Resolvido]Montar nome de arquivo com base em valores dos campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:18