A pesquisa encontrou 2002 resultados

por Avelino Sampaio
22 Set 2017, 20:52
Fórum: Módulos VBA
Tópico: Procurar Intervalos em campos Numérico
Respostas: 3
Exibições: 10

Re: Procurar Intervalos em campos Numérico

Sidney experimente algo assim: Dim seq$ Dim rs as DAO.Recordset Dim j& set rs = currentdb.OpenRecordset("SELECT Num FROM tblNomeTabela ORDER BY num;") j=1 Do While Not rs.eof if rs!num <> j then seq = seq & "," & j else rs.moveNext end if j = j + 1 loop rs.clo...
por Avelino Sampaio
22 Set 2017, 20:14
Fórum: Módulos VBA
Tópico: Procurar Intervalos em campos Numérico
Respostas: 3
Exibições: 10

Re: Procurar Intervalos em campos Numérico

Sidney

quer que apresente a primeira faltante ou a sequência ?

1
2
3
4
6
8
11

Quer apresentar assim? 5, 7, 9, 10

Aguardamos
por Avelino Sampaio
22 Set 2017, 16:30
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 33
Exibições: 211

Re: Backup - Maestro

Mauricio

tire as caixas de mensagem e teste.

Aguardamos
por Avelino Sampaio
22 Set 2017, 13:19
Fórum: Formulários
Tópico: [resolvido] Filtro em form contínuo
Respostas: 2
Exibições: 6

Re: Filtro em form contínuo

defidalgo, acrecente o tratamento de erro (parte vermelha) e veja se atende: Public Function fncFiltrar(NomeCampoFoco As String) Dim x As String, filtro As String, strSplit As String Dim f(3) As String, cp(3) As Variant Dim k As Variant, p As Byte Dim booFiltro As Boolean, bo...
por Avelino Sampaio
22 Set 2017, 13:04
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 33
Exibições: 211

Re: Backup - Maestro

Mauricio

Por que o nome da sua pasta ONEDRIVE continua tendo o TRAÇO (-) ? Já te pedi para vc tirar este traço, pois vai dar zebra, já que a função abaixo substitui o traço(-) por -c

DestinoNovo = Replace(Me!txDestino, "-", "-c").

Aguardamos
por Avelino Sampaio
22 Set 2017, 12:53
Fórum: Consultas
Tópico: Exibir jornada inicio ou fim
Respostas: 9
Exibições: 48

Re: Exibir jornada inicio ou fim

silva

então, se finalizou as 00:45 do dia seguinte , como temos a data do dia 2. A data não teria que estar no dia 3 ? Qual vai ser a mágica em saber que 00:45, que está como dia 2, é na verdade o dia 3 ?

Aguardamos
por Avelino Sampaio
22 Set 2017, 11:39
Fórum: Formulários
Tópico: Filtro combo em subform
Respostas: 1
Exibições: 15

Re: Filtro combo em subform

kklo, veja se este meu artigo, que mostra como visualizar o calculo de subformulário, no formulário principal: http://www.usandoaccess.com.br/tutoriais/exibir-valor-total-no-formulario-principal.asp?id=1#inicio Neste meu outro artigo, sobre filtragens em subformulário: http://www.usandoaccess.com.br...
por Avelino Sampaio
22 Set 2017, 09:22
Fórum: Formulários
Tópico: A clicar na função form de permissão desaparece
Respostas: 2
Exibições: 31

Re: A clicar na função form de permissão desaparece

Vanderlei,

descobriu a causa ?

Aguardamos
por Avelino Sampaio
22 Set 2017, 09:21
Fórum: Formulários
Tópico: Backup - Maestro
Respostas: 33
Exibições: 211

Re: Backup - Maestro

Mauricio, não faz sentido. mandei vc colar a caixa abaixo de DestinoNovo ( exemplo azul) e vc apresentou o valor. Ai mando vc colocar acima de DestinoNovo (exemplo vermelho) e vc está me dizendo que não tem valor ? Não faz sentido. msgbox Me!txDestino DestinoNovo = Replace(Me!txDestino, "-&...
por Avelino Sampaio
22 Set 2017, 09:07
Fórum: Consultas
Tópico: Exibir jornada inicio ou fim
Respostas: 9
Exibições: 48

Re: Exibir jornada inicio ou fim

silva,

explique melhor esses valores pois para mim não está fazendo muito sentido.

Qual é a data da hora 17:00 ?
Qual é a data da hora 00:30 ?
Qual a matrícula que contem esses números, no exemplo ?

Aguardamos
por Avelino Sampaio
21 Set 2017, 20:10
Fórum: Módulos VBA
Tópico: [resolvido] Importar TXT via VBA
Respostas: 4
Exibições: 11

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: [resolvido] Importar TXT via VBA
Respostas: 4
Exibições: 11

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: 9
Exibições: 48

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

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: 9
Exibições: 48

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

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

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

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: 33
Exibições: 211

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: 33
Exibições: 211

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: 33
Exibições: 211

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: 33
Exibições: 211

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: 33
Exibições: 211

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

Pesquisa avançada