A pesquisa encontrou 2235 resultados

por Avelino Sampaio
23 Fev 2018, 17:15
Fórum: Módulos VBA
Tópico: Criar arquivo Word com nome específico.
Respostas: 3
Exibições: 7

Re: Criar arquivo Word com nome específico.

Sidney experimente desta forma: Private Sub Bt_Sintese_Click() Dim appWord Dim doc Dim strArquivo$ strArquivo = "C:\Sistemas\Sintese\" & Forms!frm_Cad_Familia!IF & ".docx" 'veririfca se o arquivo existe If Len(Dir(strArquivo, vbArchive) & "...
por Avelino Sampaio
23 Fev 2018, 15:29
Fórum: Módulos VBA
Tópico: Criar arquivo Word com nome específico.
Respostas: 3
Exibições: 7

Re: Criar arquivo Word com nome específico.

Silvio

A variável strNovoArquivo tem que ficar fora das aspas

Código:
X = Shell(SysCmd(acSysCmdAccessDir) & "\winword.exe\" & strNovoArquivo, 1)


Aguardamos
por Avelino Sampaio
23 Fev 2018, 13:02
Fórum: Tabelas
Tópico: Separar dados do campo em linhas
Respostas: 3
Exibições: 17

Re: Separar dados do campo em linhas

humm, o código é a linha inteira. 7304.5919 - 7304.89.99 - 8304.60-87 - 3094.70.10 Nota : o traço depois do 60 (8304.60-87) na verdade e um ponto, coreto ? utilize Split() combinado com o left(). Rode esse código exemplo e veja o resultado Dim k,j k = split("7304.5919 - 7304.89.99 - 8304.60...
por Avelino Sampaio
23 Fev 2018, 07:20
Fórum: Tabelas
Tópico: Separar dados do campo em linhas
Respostas: 3
Exibições: 17

Re: Separar dados do campo em linhas

menderson, o uso do split() é uma boa opção, porém pelo seu exemplo percebo um padrão, que é ficar com os 4 primeiros dígitos. Neste caso acho mais simples você utilizar a função left() . Exemplo: Left("3094.70.10", 4 ) :::> 3094 O split() transforma uma sequência em uma matriz e n...
por Avelino Sampaio
22 Fev 2018, 12:48
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo

isso mesmo. Sucesso!
por Avelino Sampaio
22 Fev 2018, 12:16
Fórum: Módulos VBA
Tópico: Vincular apenas tabela especifica
Respostas: 1
Exibições: 14

Re: Vincular apenas tabela especifica

Cardoso, experimente assim: Public Sub fncVincularTabela(NomeTabela as string, LocalBe as string, Optional SenhaBE=0) Dim be As DAO.Database 'verifica se a tabela já esta vinculada e funcionando no FE If Not fncTabelaExiste(NomeTabela) Then 'Deleta o vinculo que está quebrado...
por Avelino Sampaio
22 Fev 2018, 11:45
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo, segue as modificações no projeto exemplo, incluindo a função isTrusted . A primeira vez que rodar o aplicativo, a mensagem da Macro de Segurança será exibida. Clique em Abrir. A função para configurar a pasta, como segura, será acionada e uma mensagem informando que o aplicativo será fechado ...
por Avelino Sampaio
22 Fev 2018, 10:43
Fórum: Formulários
Tópico: APARÊNCIA PROFISSIONAL
Respostas: 2
Exibições: 134

Re: APARÊNCIA PROFISSIONAL

up
por Avelino Sampaio
21 Fev 2018, 20:17
Fórum: Relatórios
Tópico: Não Imprimir campos vazios em um relatório
Respostas: 12
Exibições: 686

Re: Não Imprimir campos vazios em um relatório

mliell,

agora terei que sair. Amanhã, pela manhã, prometo analisar com calma.
por Avelino Sampaio
21 Fev 2018, 20:00
Fórum: Relatórios
Tópico: Não Imprimir campos vazios em um relatório
Respostas: 12
Exibições: 686

Re: Não Imprimir campos vazios em um relatório

mliel

pela sua imagem o que deseja não vai ser uma tarefa facil. Não quero seu projeto inteiro. Quero apenas um BD exemplo com o relatório envolvido

Aguardamos
por Avelino Sampaio
21 Fev 2018, 19:45
Fórum: Relatórios
Tópico: Não Imprimir campos vazios em um relatório
Respostas: 12
Exibições: 686

Re: Não Imprimir campos vazios em um relatório

mliell,

anexe aqui o seu exemplo.

Aguardamos
por Avelino Sampaio
21 Fev 2018, 19:02
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo

funciona também para o 2016

Sucesso!
por Avelino Sampaio
21 Fev 2018, 18:21
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo vá em ARQUIVOS > OPÇÕES > CENTRAL DE CONFIABILIDADE > Clique no botão "CONFIGURAÇÕES DA CENTRAL DE CONFIABILIDADE" > LOCAIS CONFIÁVEIS > Clique no botão "ADICIONAR NOVO LOCAL" > Clique no botão "PROCURAR" e encontre a pasta do seu projeto > Marque "As subpast...
por Avelino Sampaio
21 Fev 2018, 18:14
Fórum: Relatórios
Tópico: Não Imprimir campos vazios em um relatório
Respostas: 12
Exibições: 686

Re: Não Imprimir campos vazios em um relatório

mliel,

teste ajustando esta linha:

Me.Detalhe.Height = (3.89 - (0.6 * (4 - p))) * 567

Para:

Me.Detalhe.Height = (7.7 - (0.6 * (10 - p))) * 567

Aguardamos
por Avelino Sampaio
21 Fev 2018, 17:55
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo,

isto não é um erro. É apenas um aviso de que sua pasta não é considerada segura para o Access. Tem então que configurar para que sua pasta se torne segura para o Access. Qual é a versão do Access ?

No aguardo
por Avelino Sampaio
21 Fev 2018, 17:52
Fórum: Relatórios
Tópico: Não Imprimir campos vazios em um relatório
Respostas: 12
Exibições: 686

Re: [resolvido] Não Imprimir campos vazios em um relatório

mliel,

desculpa, não tinha percebido sua postagem. Irei analisar a questão e te dou uma posição

Aguarde
por Avelino Sampaio
21 Fev 2018, 17:36
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo, segue modificações. - Toda vez que o aplicativo e aberto é executado automaticamente a função de vinculação. Assim os vinculos são acertados sempre que houver modificação de endereço, exclusão ou inclusão de tabelas. - A macro AutoExec se encarrega de executar a função de vinculação e de carr...
por Avelino Sampaio
21 Fev 2018, 16:46
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo

Abra o BD mantendo a tecla SHIFT pressionada. Abra o formulário que tem o botão de vincular e então clique no botão.

Aguardamos
por Avelino Sampaio
21 Fev 2018, 16:36
Fórum: Módulos VBA
Tópico: [resolvido] Fazer função verificar 04 Backs
Respostas: 24
Exibições: 206

Re: [resolvido] Fazer função verificar 04 Backs

Paulo

Todos os BE continuam na mesma pasta do FE ?

Aguardamos
por Avelino Sampaio
21 Fev 2018, 15:11
Fórum: Módulos VBA
Tópico: [resolvido] Exportar varias tabelas ao mesmo tempo
Respostas: 4
Exibições: 25

Re: Exportar varias tabelas ao mesmo tempo

Sidney, lá no meu aplicativo Maestro tem um módulo chamado mod_procurarArquivo . Neste módulo tem a função fncLocalizarPasta para selecionar uma pasta. Dim k Dim j% dim Pasta$ dim Arquivo$ 'aqui será aberto a tela para selecionar a pasta de destino Pasta = fncLocalizarPasta("Selecione a...
por Avelino Sampaio
21 Fev 2018, 07:49
Fórum: Formulários
Tópico: [Resolvido] Back End e Front End em diretorios diferentes não abre
Respostas: 6
Exibições: 54

Re: Back End e Front End em diretorios diferentes não abre

Ivan, o que precisamos saber primeiro é se o problema é do Access ou se está restrito ao seu projeto. Baixe o arquivo anexo e faça uma simulação. Caso esteja restrito ao seu projeto(BD), faça o seguinte: - faça um backup de segurança do seu BD; - crie um novo BD; - copie todos os objetos (tabelas, c...
por Avelino Sampaio
20 Fev 2018, 23:54
Fórum: Formulários
Tópico: [Resolvido] Back End e Front End em diretorios diferentes não abre
Respostas: 6
Exibições: 54

Re: Back End e Front End em diretorios diferentes não abre

Ivan,

qual é a versão do seu Access ? 2010 ?

Aguardamos
por Avelino Sampaio
20 Fev 2018, 20:53
Fórum: Formulários
Tópico: Open Junto com Inno Setup
Respostas: 6
Exibições: 47

Re: Open Junto com Inno Setup

Misson

não misture versões sobre o mesmo Windows.

Pesquisa avançada