A pesquisa encontrou 1895 resultados

por Avelino Sampaio
14 Nov 2018, 08:17
Fórum: Macros
Tópico: [resolvido] Erro no OPEN
Respostas: 6
Exibições: 97

Re: Erro no OPEN

Manuel,

se for gerar o ACCDE do seu aplicativo, para distribuição, terá problemas como afirma o amigo Damasceno. Instale a versão de 32 bits do Access 2013 e atualize com o pacote SP1 da Microsoft. Segue o link do Sp1:

https://support.microsoft.com/pt-br/kb/2817430

Aguardamos
por Avelino Sampaio
13 Nov 2018, 19:20
Fórum: Módulos VBA
Tópico: [resolvido] Verificar Data dentro Mês Atual
Respostas: 4
Exibições: 50

Re: Verificar Data dentro Mês Atual

Sideney,

assim:

Código:
...Format([paif_DtInicio],'yyyymm')=Format(Date(),'yyyymm')...


Aguardamos
por Avelino Sampaio
13 Nov 2018, 17:49
Fórum: Módulos VBA
Tópico: [resolvido] Verificar Data dentro Mês Atual
Respostas: 4
Exibições: 50

Re: Verificar Data dentro Mês Atual

Sidney

algo assim:

Código:
...Format([paif_DtInicio],"yyyymm")=Format(Date(),"yyyymm")...


Aguardamos
por Avelino Sampaio
06 Nov 2018, 12:07
Fórum: Formulários
Tópico: [resolvido] Tecla Num Lock desativando sozinha
Respostas: 7
Exibições: 180

Re: Tecla Num Lock desativando sozinha

Isso, substitua por:

Código:
Private Sub txtPesquisa_Change()
Me.Recalc
Me.txtPesquisa.SetFocus
CreateObject("Wscript.shell").SendKeys "{f2}"
end sub


Aguardamos
por Avelino Sampaio
05 Nov 2018, 15:43
Fórum: Formulários
Tópico: [resolvido] Tecla Num Lock desativando sozinha
Respostas: 7
Exibições: 180

Re: Tecla Num Lock desativando sozinha

Dias,

primeiro identifique no seu código VBA aonde foi utilizado o comando Sendkeys.

Aguardamos
por Avelino Sampaio
27 Out 2018, 07:49
Fórum: Tabelas
Tópico: Calculo no Access
Respostas: 1
Exibições: 56

Re: Calculo no Access

Simon, uma opção é usar um campo calculado na consulta. Observe abaixo o campo calculado, utilizando a função Selmed, para definir o valor aplicado: ValorFinal: SeImed([parcelas]=3;[valorvenda]*1,05;SeImed([parcelas]=4;[valorvenda]*1,06;SeImed([parcelas]=5;[valorvenda]*1,07;SeImed([parcelas]=6;[valo...
por Avelino Sampaio
26 Out 2018, 15:07
Fórum: Formulários
Tópico: [resolvido] Tecla Num Lock desativando sozinha
Respostas: 7
Exibições: 180

Re: Tecla Num Lock desativando sozinha

Dias

não utilize o Sendkeys do Access. Uma alternativa neste tópico:

http://redeaccess.com.br/viewtopic.php?f=6&t=816&p=3545&hilit=sendkeys#p3545

Aguardamos
por Avelino Sampaio
25 Out 2018, 19:04
Fórum: Módulos VBA
Tópico: [resolvido] Dcount com dois critérios
Respostas: 2
Exibições: 63

Re: Dcount com dois critérios

Sidney,

experimente assim:

Código: Selecionar todos

Me.txt_TT_NE = DCount("[TpDemanda]", "tab_SolicitAtend", "[TpDemanda]= 'NORTE ENERGIA' And [IF] ='" & Reports!rel_SinteticoFamiliar2!IF & "'")


Aguardamos
por Avelino Sampaio
25 Out 2018, 07:06
Fórum: Access x Outlook
Tópico: Enviar linhas de registro no corpo do email
Respostas: 1
Exibições: 87

Re: Enviar linhas de registro no corpo do email

Azevedo, utilizando o Outlook como programa padrão de envio, experimente este código: Sub fncEnvioEmail() Dim objOut As Object Dim objmail As Object Set objOut = CreateObject("Outlook.application") Set objmail = objOut.CreateItem(0) With objmail .Subject = assunto ....
por Avelino Sampaio
20 Out 2018, 08:40
Fórum: Relatórios
Tópico: Abrir Relatório Filtrado através de um Form
Respostas: 3
Exibições: 149

Re: Abrir Relatório Filtrado através de um Form

Azevedo, na verdade sua proposta não é um número e sim uma string. Sendo uma string vc tem que usar os apóstrofes ou aspas duplas. Veja se assim funciona: Private Sub Número_proposta_DblClick(Cancel As Integer) DoCmd.OpenReport "rel_itens", acViewPreview, , "[Número_proposta] ...
por Avelino Sampaio
08 Out 2018, 08:29
Fórum: Consultas
Tópico: [resolvido] Arredondamento com duas casas decimais
Respostas: 6
Exibições: 194

Re: Arredondamento com duas casas decimais

Dias,

experimente a função Roud(). Exemplo:

round(1.0358,3) ::::> 1,036

Sem arredondamento com a INt(). Exemplo:

int(1.0358 * 1000)/1000 ::::> 1,035

E ainda com o Format()

format(1.0358,"#,##0.000") ::::> 1,036

Aguardamos
por Avelino Sampaio
29 Set 2018, 15:10
Fórum: Relatórios
Tópico: [resolvido] Exportar relatório para o excel
Respostas: 13
Exibições: 3008

Re: [resolvido] Exportar relatório para o excel

Afonso,

segue novamente o arquivo.
por Avelino Sampaio
24 Set 2018, 22:17
Fórum: Módulos VBA
Tópico: Boleto Caixa - Nova norma Febraban
Respostas: 13
Exibições: 367

Re: BOLETO CAIXA - NOVA NORMA FEBRABAN

carolina,

vc tem algum conhecimento da programação VBA do Access ?

Aguardamos
por Avelino Sampaio
22 Set 2018, 13:46
Fórum: Formulários
Tópico: [resolvido] Form não abre com criteria
Respostas: 2
Exibições: 137

Re: Form não abre com criteria

Fernando, uma das opções é verificar, antes de abrir o formulário de apólices, se a tabela contém a apólice deste cliente específico. Podemos utilizar a função DCount() . Algo assim: Dim stLinkCriteria As String stLinkCriteria = "[NomeCliente]='" & Me![txtNomeCliente] & "&...
por Avelino Sampaio
22 Set 2018, 08:53
Fórum: Tabelas
Tópico: Substituir texto na tabela
Respostas: 6
Exibições: 300

Re: Substituir texto na tabela

Drigo,

estude sobre a função Replace(). Algo assim:

Código:
currentdb.execute "UPDATE NomeDaTabela SET [nomecampo] = replace([nomecampo],'uma','varios');"


Nota: Realize um backup da tabela antes do teste

Aguardamos
por Avelino Sampaio
21 Set 2018, 21:17
Fórum: Módulos VBA
Tópico: Boleto Caixa - Nova norma Febraban
Respostas: 13
Exibições: 367

Re: BOLETO CAIXA - NOVA NORMA FEBRABAN

Damasceno, a norma se encontra disponível neste link da Caixa Econômica: https://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_Leiaute_CNAB400_SIGCB.pdf Neste outro link da caixa, vá na seção downloads, e baixe o aplicativo validador, para vc testar se o arquivo remessa criado está montado corret...
por Avelino Sampaio
13 Set 2018, 07:29
Fórum: Formulários
Tópico: [resolvido] Instrução SQL
Respostas: 2
Exibições: 124

Re: Instrução SQL

Fernando,

obrigado pelo feedback!
por Avelino Sampaio
06 Set 2018, 18:18
Fórum: Ribbons
Tópico: [resolvido] Botão "atualizar Backstage" no MontaRibbons não funciona!
Respostas: 4
Exibições: 253

Re: Botão "atualizar Backstage" no MontaRibbons não funciona!

ByDevSis,

sim, a versão 2007 não possui a área Backstage. Isso foi introduzido a partir da versão 2010

Sucesso!
por Avelino Sampaio
06 Set 2018, 13:56
Fórum: Formulários
Tópico: [resolvido] Criar Pasta com Path completo
Respostas: 4
Exibições: 194

Re: Criar Pasta com Path completo

Fernando, altere conforme parte em vermelho e teste: Dim aplicativo As String Dim Arquivo As String Dim fso As Object Dim msg, Style, Title Dim Apolice$ Apolice = replace(me!txtApólice,"/","_") aplicativo = "c:\WINDOWS\explorer.exe" Arquivo = "C:\agenciaseg...
por Avelino Sampaio
05 Set 2018, 21:54
Fórum: Formulários
Tópico: [resolvido] Criar Pasta com Path completo
Respostas: 4
Exibições: 194

Re: Criar Pasta com Path completo

Fernando,

não pode ser feito desta forma ?

C:\agenciaseguros\Clientes\NomeCliente\987654_Set_2018

Aguardamos

Pesquisa avançada