A pesquisa encontrou 1992 resultados

por Avelino Sampaio
21 Set 2017, 20:10
Fórum: Módulos VBA
Tópico: Importar TXT via VBA
Respostas: 3
Exibições: 5

Re: Importar TXT via VBA

lep, se cada registro está em uma linha, basta utilizar o seguinte código: Dim strLinha as String Dim k Dim StrSql$ OPEN "c:\MinhaPasta\meuArquivo.txt" FOR Input AS #1 Do while not eof(1) 'percorre todas as linhas do arquivo texto Line Input #1, strLinha 'passa o conteúdo d...
por Avelino Sampaio
21 Set 2017, 19:00
Fórum: Módulos VBA
Tópico: Importar TXT via VBA
Respostas: 3
Exibições: 5

Re: Importar TXT via VBA

Lep, preciso saber como o arquivo texto está organizado. E linha corrida ou cada registro consta numa linha ? Assim ? 1,-28.918343,-49.974716,01/09/2017 10:57:59,0,R4S45699987, 55,-11.928281,-34.95093,23/08/2017 17:03:23,9123456789,R4S45699988,AC010199 Ou assim? 1,-28.918343,-49.974716,01/09/2017 10...
por Avelino Sampaio
21 Set 2017, 17:51
Fórum: Consultas
Tópico: Exibir jornada inicio ou fim
Respostas: 4
Exibições: 28

Re: Exibir jornada inicio ou fim

Silva,

abra o formulário frmTeste e clique no botão. Confira detalhadamente e veja se está de acordo com o pretendido.

Aguardamos
por Avelino Sampaio
21 Set 2017, 15:17
Fórum: Ribbons
Tópico: [resolvido] Bloqueio por login dos botões Monta Ribbons
Respostas: 8
Exibições: 76

Re: Bloqueio por login dos botões Monta Ribbons

Carvalho recebi aqui o seu projeto. 1- troque o comando objRibbon.invalidateControl por objRibbon.invalidate , lá no formulário de login. 2- Acrescente o NZ() na função abaixo: Public Sub fncGetVisible(control As IRibbonControl, ByRef visible) On Error GoTo trataerro Select Case control.Id C...
por Avelino Sampaio
21 Set 2017, 13:48
Fórum: Consultas
Tópico: Exibir jornada inicio ou fim
Respostas: 4
Exibições: 28

Re: Exibir jornada inicio ou fim

silva,

acho que ficaria melhor se gravássemos o resultado na tabela. Vou elaborar um exemplo e posto aqui

Aguarde
por Avelino Sampaio
21 Set 2017, 13:43
Fórum: Ribbons
Tópico: [resolvido] Bloqueio por login dos botões Monta Ribbons
Respostas: 8
Exibições: 76

Re: Bloqueio por login dos botões Monta Ribbons

Carvalho, lembrando que ao realizar a troca do usuario, tem que disparar o invalidate objRibbon.invalidate Acrescente as partes em vermelho, rode o aplicativo e informe os valores das caixas Public Sub fncGetEnabled(control As IRibbonControl, ByRef enabled) Select Case control.id Case "...
por Avelino Sampaio
21 Set 2017, 13:28
Fórum: Formulários
Tópico: Contar códigos de barra
Respostas: 6
Exibições: 56

Re: Contar códigos de barra

Paulo, experimente o uso do REPLACE(substituir) aninhados =SeImed(ÉNulo([TxtIIS]);0;Compr(Substituir(Substituir([TxtIIS];" ";"");chr(13) & chr(10);"")))\24 no VBA Replace(Replace(Me!TxtIIS, " "...
por Avelino Sampaio
21 Set 2017, 11:01
Fórum: Formulários
Tópico: Contar códigos de barra
Respostas: 6
Exibições: 56

Re: Contar códigos de barra

Paulo na questão 1, altera txtContador para =SeImed(ÉNulo([TxtIIS]);0;Compr(Substituir([TxtIIS];" ";"")))\24 As outras duas questões ainda ficaram confusas para mim. Vc aqui me disse que lança os códigos um abaixo do outro mas lá na sua explicação ...
por Avelino Sampaio
20 Set 2017, 18:20
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Mauricio coloca a caixa nesta posição e informe o que é exibido msgbox Me!txDestino DestinoNovo = Replace(Me!txDestino, "-", "-c") booResultado = Application.CompactRepair(Me!txDestino, DestinoNovo, True) '------------------------------------------------------...
por Avelino Sampaio
20 Set 2017, 17:51
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Mauricio

tira este traço(-) lá da pasta OneDrive-MBS. passe para OneDriveMBS

1ª MsgBox (C:\Users\mauricio\OneDrive - MBS\Documentos\Maurício\Projetos\Projetos BD\Backup\Projetos BD_BE20092017 - 111400.accdb)

Aguardamos
por Avelino Sampaio
20 Set 2017, 16:23
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Mauricio

não percebeu aonde esta o erro ? veja nesta caixa, o endereço montado errado:

2ª MsgBox (C:\Users\mauricio.bruno\Documentos -c\Maurício Bruno\Projetos\Projetos BD\backup\Projetos BD_BE20092017 - 130900.accdb)

Aguardamos
por Avelino Sampaio
20 Set 2017, 15:57
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Ok reposicione as caixas DestinoNovo = Replace(Me!txDestino, "-", "-c") msgbox booResultado msgbox Me!txDestino msgbox DestinoNovo booResultado = Application.CompactRepair(Me!txDestino, DestinoNovo, True) '------------------------------------------------------...
por Avelino Sampaio
20 Set 2017, 15:22
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Mauricio ponha uma caixa de texto na posição indicada DestinoNovo = Replace(Me!txDestino, "-", "-c") booResultado = Application.CompactRepair(Me!txDestino, DestinoNovo, True) '----------------------------------------------------------------------------- 'O...
por Avelino Sampaio
20 Set 2017, 14:42
Fórum: Formulários
Tópico: [Resolvido] Filtro
Respostas: 8
Exibições: 49

Re: Filtro

Assis,

reveja o código, pois ao tirar "*" do final, o gasoleo não pode aparecer.

Aguardamos
por Avelino Sampaio
20 Set 2017, 14:36
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 27
Exibições: 188

Re: Backup - Maestro

Mauricio,

o exemplo que forneceu vai normal aqui. Chega aos 70%, que é a posição aonde dá inicio a compactação. Usando o exemplo que vc forneceu, até que ponto o código prossegue ?

Aguardamos
por Avelino Sampaio
20 Set 2017, 14:26
Fórum: Ribbons
Tópico: [resolvido] Bloqueio por login dos botões Monta Ribbons
Respostas: 8
Exibições: 76

Re: Bloqueio por login dos botões Monta Ribbons

ok mais algumas dicas: - Supondo que vc tenha um botão de acesso ao cadastro de fornecedores na ribbon: <button id = "btFornecedores" imageMso = "DistributionListSelectMembers" label = "Fornecedores" getVisible = "fncGetEnabled" onAction = "fncOnAction&qu...
por Avelino Sampaio
20 Set 2017, 12:11
Fórum: Ribbons
Tópico: [resolvido] Bloqueio por login dos botões Monta Ribbons
Respostas: 8
Exibições: 76

Re: Bloqueio por login dos botões Monta Ribbons

carvalho, vc deve aprender a fazer uso dos atributos Get's (getVisible, GetEnabled, ...). Leia primeiro este meu artigo: http://www.usandoaccess.com.br/tutoriais/video-criar-ribbons-access-getvisible-getimage.asp?id=1#inicio E depois assista a vídeo-aula de número 3 do MontaRibbons. Após estudo, ten...
por Avelino Sampaio
19 Set 2017, 13:17
Fórum: Formulários
Tópico: [resolvido] Cronômetro regressivo
Respostas: 4
Exibições: 36

Re: Cronômetro regressivo

Jose

segue um exemplo para testar.

Aguardamos
por Avelino Sampaio
19 Set 2017, 09:22
Fórum: Consultas
Tópico: Concatenar função e texto em consulta
Respostas: 1
Exibições: 22

Re: Concatenar função e texto em consulta

João cadê o anexo ? Acho que ficaria mais enxuto usando uma função para retornar o cálculo dos dias. Algo assim: DiasUteis: SeImed(ÉNulo([DataRetornoADM]);” OS aberta a “ & fncDiasUteis([DataRetornoADM]) & “dias”;fncDiasUteis([DataRetornoADM])) Outra questão é que vc não está levando em cont...
por Avelino Sampaio
19 Set 2017, 09:03
Fórum: Módulos VBA
Tópico: [resolvido] Calculo para Adicional Noturno
Respostas: 17
Exibições: 128

Re: Calculo para Adicional Noturno

Claudio segue mais uma modificação. O resultado da função retorna o valor em MINUTOS. Function totalHoraNoturna(Hora_ent As Date, Hora_sai As Date) Dim intHoraInicio Dim intHoraFim Dim he, ment Dim hs, msai Dim m& he = Split(Hora_ent, ":") hs = Split(Hora_sai, "...
por Avelino Sampaio
18 Set 2017, 20:44
Fórum: Módulos VBA
Tópico: [resolvido] Calculo para Adicional Noturno
Respostas: 17
Exibições: 128

Re: Calculo para Adicional Noturno

Claudio utilizando o meu exemplo, altere a função para: Function totalHoraNoturna(Hora_ent As Date, Hora_sai As Date) Dim intHoraInicio Dim intHoraFim Dim he Dim hs Dim m& he = Split(Hora_ent, ":") hs = Split(Hora_sai, ":") intHoraInicio = IIf((...
por Avelino Sampaio
18 Set 2017, 18:10
Fórum: Formulários
Tópico: [Resolvido] Filtro
Respostas: 8
Exibições: 49

Re: Filtro

Assis

ao digitar a palavra "gas", sem espaço, não filtra ? No exemplo aqui do Maestro filtra, veja na imagem. Mas nesta condição proposta, só filtra depois de digitar a palavra inteira.

Aguardamos

Pesquisa avançada