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]LIVRO DIGITAL

    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 6/1/2016, 19:31

    Senhores,boa tarde.
    Nunca mexi com Access e me deram a missão de criar um livro digital de ocorrências. Passei vários dias apanhando, mas estou quase finalizando este arquivo. Apesar de simples, ele me deu muito trabalho e eu queria a ajuda de vocês em alguns ponto.

    1- Existe um campo chamado EQUIPE DE SERVIÇO, nesse campo eu criei uma lista suspensa do pessoal cadastrado, os dados desse campo se referem ao NOME DE GUERRA do operador. Porém, existe um outro campo nessa mesma tabela que se chama NOME COMPLETO. Esse campo se refere ao nome completo da pessoa do campo EQUIPE DE SERVIÇO. Como eu faço para AO SELECIONAR O nome no campo EQUIPE DE SERVIÇO, saia automaticamente o NOME COMPLETO DESSA PESSOA. Eu criei vínculos com os horários dos turnos de serviço, ou seja, ao selecionar o turno, os campos de horários já são preenchidos, por conta disso, eu não consegui fazer a vinculação EQUIPE DE SERVIÇO ao NOME COMPLETO.

    2- Como eu coloco a DATA, que está por extenso, toda MAIÚSCULA??

    3- Todos os registros do formulário serão impressos e arquivados num fichário, então preciso que seja gerado um número, COMO POSSO GERAR UMA NUMERAÇÃO DE PÁGINA AUTOMATICAMENTE?

    4- Existe 4 campos destinados ao lançamento das ocorrências, eu criei uma caixa de texto e observei que se o número de caracteres exceder o campo da caixa, esses caracteres ficarão invisíveis, EXISTE ALGUMA FORMA DE AUTO EXPANSÃO DA CAIXA DE TEXTO??

    5- Eu observo que os trabalhos concluídos no ACCESS possuem um layout de preenchimento que não corresponde ao layout que possuímos quando estamos desenvolvendo no banco de dados, como é possível???

     Desculpem por tantas perguntas, pode parecer preguiça, mas não é?? A única coisa que eu não pesquisei ainda foi como colocar a data em maiúscula, o resto eu não sei nem pra onde vai, já tô há vários dias "apanhando" Sad . Desde já agradeço qualquer ajuda. Abraço!!!!

    Segue em anexo o arquivo do livro. Se alguém se prontificar em fazer os ajustes, eu agradeço, pois pretendo me aperfeiçoar nesse aplicativo e a modificação me servirá de ensino a futuros trabalhos. Muito obrigado!
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (91 Kb) Baixado 58 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 6/1/2016, 20:52

    Amigo, Veja bem....

    O Formulário é para você lançar os dados... Para impressão você deve organizar um relatório... aee fica mais fácil e esteticamente melhor...
    Mude seu formulário para apenas serem inserido os dados, e crie um relatório NO FORMATO que lhe agradar... Na hora da impressão basta filtrar pelo Código que gera automático no campo Código da Tabela Campos. dessa forma já vai ter a numeração de página bonitinho como você precisa.
    Outra dica é Retire Acentos, e ":" dos nomes dos seus campos. Evite campos com o nome "DATA" pois exitem funções com esse nome...

    Para você digitar mais que 255 caracteres em uma campo, mude ele na tabela para: Texto Longo ou Memorando, dependendo da versão access.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 6/1/2016, 22:30

    Item 1º: Bom para esse Item você deve colocar esse código no campo Equipe de serviço.

    vá nas propriedades do campo II – EQUIPE DE SERVIÇO: na guia "eventos" Apos atualizar, vc seleciona: [Procedimento do evento], clica nos três pontinhos do lado, na tela que abrir cole este código:
    Código:
    'Coloca o Nome completo do Guerreiro no campo P_G_NOME_COMPLETO
    Me.P_G_NOME_COMPLETO = Me.II_–_EQUIPE_DE_SERVIÇO_.Column(2)

    Que fiara assim:
    Código:
    Private Sub II_–_EQUIPE_DE_SERVIÇO__AfterUpdate()
    'Coloca o Nome completo do Guerreiro no campo P_G_NOME_COMPLETO
    Me.P_G_NOME_COMPLETO = Me.II_–_EQUIPE_DE_SERVIÇO_.Column(2)
    End Sub

    Salve, feche a tela.

    Na guia Dados Origem da Linha tem algo assim:
    Código:
    SELECT [CADASTRO DE OPERADORES].CÓDIGO, [CADASTRO DE OPERADORES].[P/G NOME GUERRA] FROM [CADASTRO DE OPERADORES];

    Troque por este:

    Código:
    SELECT [CADASTRO DE OPERADORES].CÓDIGO, [CADASTRO DE OPERADORES].[P/G NOME GUERRA], [CADASTRO DE OPERADORES].[P/G NOME COMPLETO] FROM [CADASTRO DE OPERADORES];

    Salve e Faça Um teste.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 7/1/2016, 12:22

    Bom dia,

    fabiopaes, muito obrigado, o código deu certinho, vou agora procurar um material relativo a criação de relatório, abraço camarada e por favor não feche o tópico, vlw!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 7/1/2016, 14:23

    Na duvida pode perguntar!
    Dica: No caso, como seus campos são de Tamanho Muito Grande pelo que percebi, você pode utilizar o controle de guia... Onde cada guia você coloca um campo. Assim o usuário vai digitar e ver o que foi digitado. Logo mais posto um exemplo pra você
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 7/1/2016, 15:22

    Um modelo Básico, pra você dar uma olhada... Criei um formulário com Guias, e um relatório que imprime o registro atual com todos os campos do formulário. botoes de Navegação... da uma olhada...
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital-FORULARIO E RELATORIO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (249 Kb) Baixado 94 vez(es)
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 7/1/2016, 17:41

    Meu brother, você é o cara, pqp, ficou show, vou adequar ao nosso modelo padonizado e acrescentar umas coisas, mas ficou ótimo, muito obrigado!!!!!!!
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 8/1/2016, 03:58

    fabiopaes e a todos do fórum, bom dia,

    meu velho, eu tô tentando aqui com aquele jeito que você ensinou de vincular o nome de guerra ao nome completo, sendo que com OS TURNOS DE SERVIÇO. Os turnos possuem horário de INICIO, de TERMINO, de RECEBIMENTO e de PASSAGEM. No formulário, eu queria que ao selecionar um turno, os campos fossem preenchidos com os dados de turno na tabela TURNOS. Não sei se fui claro, mas tentarei explcar melhor.

    Existe a tabela TURNOS. Lá tem os horários de INICIO, de TERMINO, de RECEBIMENTO e de PASSAGEM.
    No formulário, eu queria selecionar o TURNO CORRESPONDENTE e automaticamente os CAMPOS DO FOMULÁRIO fosse preenchidos trazendo os dados da TABELA TURNOS.  Eu coloquei um retângulo com os campos dos quais estou falando, se você ou algum puder ajudar, abraços.
    PS. O formulário tá meio desorganizado, mas vou seguir o seu arquivo que você mandou pra mim pra organizar posteriormente, vlw.
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 9 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 8/1/2016, 12:55

    Nesse preenchimento, e da mesma forma como ele faz com o nome completo.
    Da uma olhada nesse que você vai entender... Olha na Origem da Linha do campo Turno, clica la nos três pontinhos... e veja no evento apos atualizar...

    Apos atualizar cada campo recebe o valor da cboTurnos, que estão dispostos por coluna 0, 1, 2... então basta dizer que apos atualizar o campo me.txtHoraInicio = Me.cboTurnos.column(2) pois os dados da hora de inicio estão na coluna 2. e assim por diante.

    Use esse exemplo, mas monte um do zero você mesmo... se não conseguir em alguma parte posta aqui que te falo onde ta errado.
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1-Corrigido.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 65 vez(es)
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 10/1/2016, 13:18

    Vou olhar agora fabiopaes, tive que me mudar da minha casa de última hora e o tempo pra mim está sendo ouro, tô todo desorganizado, mas obrigado pela atenção. Assim que puder, retornarei.


    Última edição por bomba5 em 10/1/2016, 14:08, editado 1 vez(es)
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 10/1/2016, 14:07

    Fábio, partindo da ideia do que você me ensinou no início relativo aos operadores, no VBA NÃO vinha CBO e nem TX antes dos campos correspondentes. Também observei que nas PROPRIEDADES, ORIGEM Da LINHA, alguns trechos vêm com CHAVES
    e outros NÃO, isso também interfere? Você saberia, se não for muito incômodo, me dizer onde encontro a teoria desse assunto (pra não ficar te incomodando muito).

    Eu fiz daquele jeito que você que você ensinou, ou seja, sem CBO e TX, e não funcionou!!

    Obrigado!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 11/1/2016, 19:02

    Da uma Olhada nesse Vídeo que fiz...
    https://www.youtube.com/watch?v=2M17fp8C7gM
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 12/1/2016, 16:50

    Vou olhar fabiopaes, já adianto meus agradecimentos a atenção dada, como falei ainda tô me organizando na nova casa, mas sempre que puder, estarei vindo aqui.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 19/1/2016, 02:48

    Bom dia fabiopaes, cara , não sei o que aconteceu, mas não consigo nenhum preenchimento automático de campos. Tentei até com os arquivos anteriores que você postou aqui e nada, será que meu access tá com alguma pane?? vou mandar aqui e se você puder ver o que aconteceu, abraço.
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.004.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (211 Kb) Baixado 13 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 19/1/2016, 11:30

    Bom dia Meu amigo, aqui esta funcionando perfeitamente.!

    Provavelmente é o Access que está Bloqueando as Macros. Quando você abre um arquivo que contem macros, o access bloqueia e coloca um aviso amarelo logo em cima. se não liberar não funonara corretamente o aplicativo.

    veja a imagem:
    [Resolvido]LIVRO DIGITAL 344utyd

    Caso não esteja aparecendo isso quando você abrir o aplicativo faça o seguinte:

    Renomeie o Plicativo para QualquerNome.accdb , Fecha e abre o aplicativo, quando exibir o alerta você clica la em habilitar Conteúdo!


    Aconselho pra que não haja problemas do tipo, quando você terminar o desenvolvimento do aplicativo e for realmente colocar para o uso... na pasta que você for colocar o aplicativo, aconselho adicionar a pasta aos LOCAIS CONFIÁVEIS do access, para evitar esse problema. Ja que toda vez que voce mudar o nome ou mudar o aplicativo de lugar ele ira bloquear.

    Para adicionar uma Pasta aos Locais confiaveis:

    Clique em Arquivos(ou no icone do Access dependendo da versão)>Opçoes>Central de Confiabilidade>Configuraçoes da central de confiabilidade> Locais Confiaveis. Aqui localize a pasta onde ficará o Aplicativo e adicione ela. dessa forma o Access vai ignorar essa pasta e nao mais barrar as Macros e Codigos.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 19/1/2016, 16:17

    Cara, obrigado por mais essa, kkkkkkk, coisas de gente desligada, eu mexi nas opções de macro mesmo,muito obrigado, continuando aqui, vlw
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 26/1/2016, 12:26

    Bom dia, vindo aqui pra dar as caras, pois continuo o projeto, assim que não conseguir resolver alguma pane, eu volto. E se terminar, aviso, abraço.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 2/2/2016, 15:52

    Boa tarde pessoal,

    ainda no meu livro digital, pesquisei bastante e não vi uma forma de retirar o o formato que inclui o dia da  semana, ou seja, pesquisei e não sei como tirar, no caso de hoje, a TERÇA-FEIRA, se alguém puder ajudar
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.012.bak.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (153 Kb) Baixado 7 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 2/2/2016, 17:48

    Serve Assim? Dois de Fevereiro de Dois Mile e Dezesseis

    Se servir, basta Copiar o Modulo para seu BD, Mudar o campo Data complete para Texto Curto, Remover a Mascara do Campo Data Complete no Formulário e pronto...
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.012.bak.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (131 Kb) Baixado 19 vez(es)
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 2/2/2016, 17:59

    Grande fabiopaes,
    obrigado pela rápida resposta, mas infelizmente não, seria o normal mesmo, 02 de fevereiro de 2016.
    Isso não é invenção minha, eu sigo um manual de formatação implantado pelo comando, por isso não posso colocar da maneira que eu
    achar mais conveniente, se tiver como ser desse jeito que falei.
    Obrigado pela atenção.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 2/2/2016, 18:17

    Bom... entao sendo assim... Faça isso:


    No campo Data Completa, remova a mascara que colocou la...
    Em Valor Padrão coloque:

    =Format(Agora();"dd mmmm yyyy")

    OU assim:
    =Format(Agora();"dd") & " de " & Format(Agora();"mmmm") & " de " & Format(Agora();"yyyy")

    Para incluir o de entre o dia e o mes...

    Veja se é isso que precisa !!!
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 2/2/2016, 21:05

    Opa fabiopaes, exatamente assim, estava dando erro pq eu coloquei no formato data/hora, mas depois eu vi que era texto curto aí
    deu certo. Muito obrigado brother, vou continuar o livro e dou um feedback de conclusão ou dúvida, obrigado!!
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 4/2/2016, 03:50

    Boa madruga Pessoal, em especial ao brother fabiopaes,

    meu velho, trouxe mais uma pra perturbar.
    Estou com esse comando de botão: SALVAR EM PDF

    Pois bem, ele está configurado para salvar no mesmo diretório que o BD está, porém eu queria que ele salvasse num diretório qualquer que eu escolhesse, tipo esse aqui: C:\Users\Jn\Desktop\Backup_LD e não consegui
    Outra situação é o nome do arquivo, eu coloquei na seguinte configuração
    LD_ORGÃO_TURNO_DATAHORA

    O problema é que ele não renomeia com o nome do órgão, e sim com seu código. No turno não teria problema, pois eu faço coincidir o primeiro turno com o código 1 , o segundo com o código 2 e assim sucessivamente. existe alguma forma de se consertar isso ??

    Só pra reafirmar que eu pesquisei bastante e não achei nada que pudesse resolver esse problema.

    Agradeço desde já!
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.012.bak.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (156 Kb) Baixado 13 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 4/2/2016, 12:52

    Coloque assim:

    Código:

    Private Sub Bt_SalvPdf_Click()
    Dim nomeArquivo, strLocal As String
    nomeArquivo = "LD_" & Me.ORGAO.Column(1) & "_T-" & Me!TURNO & "_" & Format(Now, "dd.mm.yyyy.hhmm") & ".pdf"
    'salva no Local do Aplicativo, para mandar para um local especifico descomentar a linha a baixo
    'strLocal = "D:\Backup\" & nomeArquivo ' para salvar em d:\Backup\NomedoArquivo.pdf
    strLocal = CurrentProject.Path & "\" & nomeArquivo
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "RLT_CAMPOS", acFormatPDF, strLocal, False
    End Sub

    Como seu campo Orgão é uma combo, ha a necessidade de especificar de qual coluna voce quer os dados, pois caso contrario ele pega o da coluna zero.
    Para mandar pra um locar Especifico veja a instrução no código...
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 4/2/2016, 13:11

    Dei uma Melhorada amigo no Codigo, pois nao filtrava pelo registro da Tela... Exportava Todos... Entao substitua por esse que devera Exportar so o registro que tiver na tela...

    Código:
    Private Sub Bt_SalvPdf_Click()
    Dim nomeArquivo, strLocal As String
    nomeArquivo = "LD_" & Me.ORGAO.Column(1) & "_T-" & Me!TURNO & "_" & Format(Now, "dd.mm.yyyy.hhmm") & ".pdf"
    'salva no Local do Aplicativo, para mandar para um local especifico descomentar a linha a baixo
    'strLocal = "D:\Backup\" & nomeArquivo ' para salvar em d:\Backup\NomedoArquivo.pdf
    strLocal = CurrentProject.Path & "\" & nomeArquivo
    'Filtra o relatorio pelo codigo Visualizado para em seguida exportar para PDF
    DoCmd.OpenReport "RLT_CAMPOS", acViewPreview, , "[CÓDIGO] = [Forms]![FML_CAMPOS]![CÓDIGO]", acHidden
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "RLT_CAMPOS", acFormatPDF, strLocal, False
    'Fecha o relatório
    DoCmd.Close acReport, "RLT_CAMPOS"
    End Sub
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 4/2/2016, 14:14

    Pow fabiopaes, show de bola camarada, demorei a responder pq estava entendendo a lógica da coisa e também pq minha tabela original tava com outro nome aí eu tava procurando saber onde tava o erro. Outra coisa, eu havia colocado Me.ORGAO porém a proposta de continuação do código sugeria value, e quando eu colocava Column, dava erro, só não sabia que era pq eu tinha renomeado um campo no formulário.Enfim, muito obrigado brother, aprendi mais uma, vou continuar o projeto, abraço!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 4/2/2016, 14:54

    Bacana... bons estudos.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 4/2/2016, 18:53

    Um bom passatempo pra minha tarde foi descobrir pq eu não estava conseguindo salvar o pdf me utilizando da data em que o registro foi feito. formato dd/mm/yyyy, aí lembrei que era por conta da barra. Enfim, meu problema é o seguinte:

    O salvamento do arquivo estava com esse formato Format(Now, "dd.mm.yyyy.hhmm"), ou seja, atribuía o momento do salvamento e não o momento em que o registro foi realizado. como o nosso padrão é dividido por barras, eu tentei criar um campo clonado dividido por traço (-), sendo que ele também não reconhece a saída baseado nesse campo, e sim no campo da data do registro que está dividido por /.  Existe alguma forma de salvar o arquivo com a data do registro porém dividida por ponto ou traço???
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 4/2/2016, 21:45

    Coloque assim:

    Código:

    nomeArquivo = "LD_" & Me.ORGAO.Column(1) & "_T-" & Me!TURNO & "_" & Format(Me.txtdatacompleta.Value,"dd.mm.yyyy.hh.mm.ss") & ".pdf"

    Obs: o campo txtdatacompleta e um campo que coloquei no formulário pra mostrar a data e hora de registro.

    Nome Final do arquivo exportado: LD_CMM-1_T-2_01.01.2016.01.02.03.pdf 01h02min03s
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 5/2/2016, 01:31

    Boa noite, pow fabiopaes, perfeito o seu código, usei o campo data compacta mesmo pois não precisava especificar o horário do salvamento, muito obrigado mais uma vez, espero só voltar agora para dar o concluído, pois você já me ajudou demais, abraço e boa noite.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 5/2/2016, 02:29

    Opa, maravilha...
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 7/2/2016, 12:51

    Bom dia senhores,
    fabiopaes camarada, achei que ia te deixar em paz, mas.....rs
    Brother, eu criei um formulário com caixa de listagem baseado numa consulta, porém nessa consulta existem campos baseados em caixa de combinação, ou seja, no formulário só aparecem os códigos de referência desses campos. Pelo formulário comum com campos eu aprendi, graças a sua ajuda, a fazer referências com o comando Me, mas nessa caixa de listagem não consigo achar nada que possa fazer referência para mostrar o dado correto. Já pesquisei e também não achei nada com os critérios que coloquei, se puder ajudar, fico muito grato, abraço.
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.012.bak.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 4 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 7/2/2016, 16:23

    Amigao tive que mudar muita coisa no seu BD...

    Mudei muita coisa nas Tabelas, a principal mudança que verá sera a forma como e armazenado o turno e os Operadores... Ao inves de armazenar o NOME , armazenamos apenas o codigo na tabela Campo... e quando precisamos saber o nome deles buscamos na tabela Cadastro de Operadores... Mas isso só e visivel na TABELA, no formulario continua do mesmo Jeito...

    Para voce entender como funciona essa questao de como buscar o Nome dos operadores veja no Frm_COnsulta, na Lista0, guia dados, origem da linha, clique nos tres pontinhos e veja como ficou a consulta...

    Como mudei muita coisa, aconselho usar essa nova versao e caso tenha dados lançados na versao anterior lanceos manualmente...


    Teste tudo antes de colocar em funcionamento, para ver se esta nos padroes de voces...
    Anexos
    [Resolvido]LIVRO DIGITAL Attachmentlivro digital_V1.2.bak.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 42 vez(es)
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 7/2/2016, 17:28

    Opa Fábio, na verdade esse não é o meu BD versão final, mas sim parte mais simples dele e eu posto dessa forma até para facilitar o que eu quero dizer nas minhas perguntas, muito obrigado pela atenção e eu vou atualizar tudo na minha versão final. Essa versão final eu não queria publicar aqui (poderia até mandar pra você, isso não seria problema), por isso faço dessa forma, muito obrigado mais uma vez e vou estudar sua maneira, pois eu vim pro access sem saber absolutamente nada, tanto que eu nem sabia o que era relatório, vlw irmão!!
    Também formatei o computador e tô reinstalando tudo novamente e posso demorar um pouco a voltar aqui, mas nõ finalizarei sem dar um feedback aquo, abraço!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 7/2/2016, 20:25

    Opa tranquilo... Nao esqueca de Observar o Relacionamento e a integridade entre as Tabelas, Campos, Turnos e Equipe...
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 10/2/2016, 23:14

    Boa noite,
    fabiopaes camarada, apanhei muito tentando fazer a alteração no BD que você propôs e não estava conseguindo fazer a relação de jeito nenhum, enfim, fiquei bem empenhado e nada de conseguir, quando do nada , eu consegui fazer a relação sem alterar o BD, usando os próprios dados e as relações existentes. Quando já estava dando por finalizado, percebi que o arqui em pdf que é salvo em diretório específico (no qual você me ajudou) não está salvando unicamente o relatório do formulário que está aberto, e sim todos os relatórios. Pois bem , tentei usar um código de variáveis que eu já tinha no comando imprimir relatório do formulário que está aberto e não consegui de jeito nenhum, coloquei inclusive um outro nome de váriável para não ficar igual ao do comando imprimir e nada, enfim, o comando seria esse:


    Dim strArquivo As String
    Dim strLocal As String
    Dim strFilter2 As String
    strArquivo = "LD_" & Me.ttx_ORGAO.Column(1) & "_T" & Me!TURNO & "_" & Format(Now, "dd.mm.yyyy.hhmm") & ".pdf"
    'strLocal = "D:\Backup\" & nomeArquivo ' para salvar em d:\Backup\NomedoArquivo.pdf
    strLocal = "C:\Users\jeanb\Desktop\Backup_LD\" & strArquivo
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    strFilter2 = "CÓDIGO=Forms!FML_CAMPOS!CÓDIGO"
    DoCmd.OutputTo acOutputReport, "RLT_CAMPOS", acFormatPDF, strLocal
    End Sub

    o que está em negrito foi o que eu implementei na tentativa de salvar um único relatório, muito obrigado!!


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 11/2/2016, 00:17

    Código:

    Dim nomeArquivo, strLocal As String
    'Nome do arquivo: LD_ValordaComboORGAOColuna1_T-ValorComboTurno_DIA.MES.hhmm.pdf
    nomeArquivo = "LD_" & Me.ORGAO.Column(1) & "_T-" & Me!TURNO & "_" & Format(Now, "dd.mm.yyyy.hhmm") & ".pdf"

    'salva no Local do Aplicativo, para mandar para um local especifico descomentar a linha a baixo
    'strLocal = "D:\Backup\" & nomeArquivo ' para salvar em d:\Backup\NomedoArquivo.pdf
    strLocal = CurrentProject.Path & "\" & nomeArquivo

    'Filtra o relatorio pelo codigo Visualizado para em seguida exportar para PDF
    DoCmd.OpenReport "RLT_CAMPOS", acViewPreview, , "[CÓDIGO] = [Forms]![FML_CAMPOS]![CÓDIGO]", acHidden

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "RLT_CAMPOS", acFormatPDF, strLocal, False

    'Fecha o relatório
    DoCmd.Close acReport, "RLT_CAMPOS"
    End Sub
    Este é o comando correto do Botao Exportar para PDF. Veja que nessa Linha (DoCmd.OpenReport "RLT_CAMPOS", acViewPreview, , "[CÓDIGO] = [Forms]![FML_CAMPOS]![CÓDIGO]", acHidden ) ocorre a filtragem do registro, pelo campo CÓDIGO que esta no seu formulario, entao verifica se esse Campo Código nao foi mudado o nome na tabela ou ate mesmo no formulario se ele tiver la...
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 11/2/2016, 01:48

    Show de bola fabiopaes, como sempre deu certo.
    uma coisa que observei também, não sei se estou certo, é que o formulário precisa estar aberto para imprimir individualmente, não sei se foi impressão, mas enfim, muito obrigado por mais uma cara, vou continuar, e lembrando que voltarei aqui para o feedback, abraço e boa noite!!!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 11/2/2016, 12:48

    Sim, o relatório precisa estar aberto pois quando vc Manda exportar pro PDF ele Busca o Codigo do Registro que esta sendo Visualizado no FORMULÁRIO.

    Naquele Botao com a Impressora, pra filtrar tambem pelo registro do Formulario deve Colocar esse Codigo:

    DoCmd.OpenReport "RLT_CAMPOS", acViewPreview, "", "[Código]=[forms]![FML_CAMPOS]![Código]", acNormal

    Assim ao clicar na impressora ele também imprimirá somente o registro visualizado.
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 13/2/2016, 15:39

    Show fabiopaes, muito bom mesmo, eu estou pra finalizar e tenho a última dúvida, se puder responder. Eu queria saber como eu faço para implementar atualizações no projeto e ao chegar com uma nova versão desse trabalho e eu aproveitar o bd já gravado do antigo projeto e "importá-lo". Em que lugar eu busco essa informação? Desde já muito obrigado!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 13/2/2016, 20:12

    Você pode dividir seu BD em dois. Sendo que em um ficarao apenas as tabelas (onde serao armazenado os dados) e no outro ficarao o restante, a parte grafica que geralmente é mudada... Dessa forma se a nova versão nao houver mudança nas tabelas basta substituir o Front-End.

    Veja nas aulas 26, 27 e 28 que lhe ajudara muito. https://www.youtube.com/watch?v=REf8B4Jcd6c

    Alem do mais voce pode somente apos as alteraçoes Copiar as tabelas com os dados para a nova Versão... Com o Ctrl+C e Ctrl+V... teste e veja o que melhor lhe agrada.

    Aqui nos repositórios tem alguns exemplos que ajuda na Vinculação das tabelas com o banco dividido... de uma olhada la caso lhe interesse...
    avatar
    bomba5
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/12/2015

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  bomba5 15/2/2016, 16:14

    Boa tarde a todos,
    venho aqui agradecer a boa vontade do meu brother fabiopaes que me ajudou muito na construção do meu projeto, agradeço pela atenção e paciência que teve nessas semanas e também agradeço a existência desse fórum que ajudou muto nas demais questões do meu trabalho. Enfim, obrigado mais uma vez pela última resposta fabiopaes, desejo muita saúde e sucesso pra você e família, no mais, dou como RESOLVIDO o meu Livro DIgital, abraço a todos!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  FabioPaes 15/2/2016, 16:27

    Bacana meu amigo, Fico feliz que deu certo. Ate o proximo Projeto!!!

    Conteúdo patrocinado


    [Resolvido]LIVRO DIGITAL Empty Re: [Resolvido]LIVRO DIGITAL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:06