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

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

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.

Obrigado CassioFabre, vou testar aqui e retorno em breve.

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