A pesquisa encontrou 1895 resultados

por Avelino Sampaio
04 Dez 2018, 07:41
Fórum: Consultas
Tópico: [resolvido] Consulta por Período, forma ordenada feita manualmente
Respostas: 2
Exibições: 351

Re: Consulta por Período, forma ordenada feita manualmente

Silva, tire o Ponto e Virgula da linha em vermelho: SELECT TDocente.Docente, TCurso.Curso, TPeriodo.Periodo FROM (TDocente INNER JOIN TCurso ON TDocente.IDDocente = TCurso.IDDocente) INNER JOIN TPeriodo ON TDocente.IDDocente = TPeriodo.IDDocente; ORDER BY switch ([Periodo]="Manhã",1,[Perio...
por Avelino Sampaio
04 Dez 2018, 07:40
Fórum: Consultas
Tópico: [resolvido] Extrair primeiro dia de cada mês
Respostas: 6
Exibições: 537

Re: Extrair primeiro dia de cada mês

Fernando.

Tente assim:

Código:
DataLimite = DateSerial(Year(Date), Month(Date), Me!cboDia)
If (DataLimite = Date) Or (DataLimite = Date-1) Then
MsgBox"Alerta, é necessário enviar a listagem à companhia, vbInformation, "Aviso"
End If


Aguardamos
por Avelino Sampaio
03 Dez 2018, 07:33
Fórum: Consultas
Tópico: [resolvido] Extrair primeiro dia de cada mês
Respostas: 6
Exibições: 537

Re: Extrair primeiro dia de cada mês

Fernando,

utilize a função DateSerial(ano,mês,dia), para construir a data com o seu dia selecionado da caixa de combinação. Algo assim:

Código:
DataLimite = DateSerial(year(date) ,month(date), me!NomeCaixaCombinação)


Aguardamos
por Avelino Sampaio
23 Nov 2018, 12:34
Fórum: Módulos VBA
Tópico: [resolvido] INSERT INTO Somente dados exlusivo.
Respostas: 5
Exibições: 372

Re: INSERT INTO Somente dados exlusivo.

Sidney algo assim: Dim strSql As String Dim intNFamSisNovo As Integer strSql = "INSERT INTO tab_CasosNotaveisAtual ( N_FAM_SIS ) " strsql = strsql & "SELECT Tab_Principal.CodFamSis FROM Tab_Principal " strsql = strsql & "WHERE Tab_Principal.CodFamSis NOT IN &...
por Avelino Sampaio
14 Nov 2018, 08:17
Fórum: Macros
Tópico: [resolvido] Erro no OPEN
Respostas: 6
Exibições: 551

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: 375

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: 375

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: 794

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: 794

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: 398

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: 794

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: 281

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: 513

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
08 Out 2018, 08:29
Fórum: Consultas
Tópico: [resolvido] Arredondamento com duas casas decimais
Respostas: 6
Exibições: 641

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: 3757

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: 927

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: 464

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: [resolvido] Substituir texto na tabela
Respostas: 6
Exibições: 860

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: 927

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: 448

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: 570

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: 601

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...

Pesquisa avançada