A pesquisa encontrou 1871 resultados

por Avelino Sampaio
17 Jul 2018, 09:08
Fórum: Módulos VBA
Tópico: Envio de dados para Página Web
Respostas: 2
Exibições: 4

Re: Envio de dados para Página Web

Eduardo

procure no google. sobre:

Document.all
Document.form

Aguardamos
por Avelino Sampaio
12 Jul 2018, 20:35
Fórum: Formulários
Tópico: Retornar DNS e GATEWAY
Respostas: 3
Exibições: 28

Re: Retornar DNS e GATEWAY

junior,

experimente usando a função Split() , usando como referências os dois pontos (:). Algo assim.

Código:
...
k = Split(strResultado, ":")
fncMAC = Trim(Left(k(12), 14))
...


Aguardamos
por Avelino Sampaio
08 Jul 2018, 14:23
Fórum: Formulários
Tópico: [resolvido] Gerar ID para grupo pelo form
Respostas: 4
Exibições: 65

Re: Gerar ID para grupo pelo form

Carvalho, veja se o exemplo que fiz atende. utilizei o seguinte código no botão: Private Sub Comando0_Click() Dim rs As DAO.Recordset Dim strSql$ Dim uid& Dim cod$ 'retorna com o recordset, somente dos registros sem o ID strSql = "SELECT Codigo,ID FROM tblTeste WHERE id =0 ORDER...
por Avelino Sampaio
08 Jul 2018, 12:52
Fórum: Formulários
Tópico: [resolvido] Gerar ID para grupo pelo form
Respostas: 4
Exibições: 65

Re: Gerar ID para grupo pelo form

Carvalho

creio que vc possa executar esta tarefa, usando programação direto no relatório. Vc que é meu assinante, assista a vídeo-aula deste meu artigo:

http://www.usandoaccess.com.br/tutoriais/video-programacao-de-relatorios.asp?id=1#inicio

Aguardamos
por Avelino Sampaio
08 Jul 2018, 09:23
Fórum: Módulos VBA
Tópico: [resolvido] importar txt com delimitadores
Respostas: 5
Exibições: 64

Re: importar txt com delimitadores

percoski mais um split() ... For j = 1 To UBound(item) k = Split(item(j), ",") i = Split(k(0), ":"): Debug.Print i(1) i = Split(k(1), ":"): Debug.Print i(1) i = Split(k(2), ":"...
por Avelino Sampaio
07 Jul 2018, 07:18
Fórum: Módulos VBA
Tópico: [resolvido] importar txt com delimitadores
Respostas: 5
Exibições: 64

Re: importar txt com delimitadores

percoski, o que percebi é que os itens estão limitados pelos Colchetes [ ] e que cada item está limitado pelas Chaves { } . Tente algo assim: ... itens = Split(tx, "[") item = Split(itens(1), "{") For j = 1 To UBound(item) k = Split(item(j&...
por Avelino Sampaio
29 Jun 2018, 16:23
Fórum: Formulários
Tópico: Retornar DNS e GATEWAY
Respostas: 3
Exibições: 28

Re: Retornar DNS e GATEWAY

Junior,

tente utilizando o código deste meu artigo:

http://www.usandoaccess.com.br/dicas/obtendo-mac-placa-de-rede.asp

Dica: Chame o IPConfig na função Shell.

Código:
...
objShell.Run "cmd /c IPconfig >" & objTempFile, 0, True
...


Aguardamos
por Avelino Sampaio
29 Jun 2018, 08:37
Fórum: Módulos VBA
Tópico: [resolvido] Erro no na formação de txt
Respostas: 4
Exibições: 42

Re: Erro no na formação de txt

Percoski, experimente assim: Print #1, "[" Do While Not rs.EOF strPalavra = rs!idusuario strLinha = " {" 'rs!idusuario & Do While strPalavra = rs!idusuario strLinha = strLinha & Chr(34) & "ID" & Chr(34) & ":" & Chr&#...
por Avelino Sampaio
28 Jun 2018, 15:05
Fórum: Módulos VBA
Tópico: [resolvido] Erro no na formação de txt
Respostas: 4
Exibições: 42

Re: Erro no na formação de txt

Percoski,

veja se atende:

http://www.usandoaccess.com.br/dicas/transferir-recordset-para-txt-dao.asp

Nota: Observe que CHR(34) é a introdução das ASPAS no txt.

Aguardamos
por Avelino Sampaio
26 Jun 2018, 16:22
Fórum: Formulários
Tópico: [resolvido] Exportar informações de um formulário em foco para arquivo txt
Respostas: 4
Exibições: 63

Re: Exportar informações de um formulário em foco para arquivo txt

Macieira,

utilize o RecordsetClone para capturar os dados atuais de um subformulário e insira na instrução OPEN. Estude os exemplos sobre RecordsetClone, no link abaixo:

http://redeaccess.com.br/search.php?keywords=recordsetclone

Aguardamos
por Avelino Sampaio
25 Jun 2018, 11:34
Fórum: Formulários
Tópico: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar
Respostas: 12
Exibições: 223

Re: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

Rodrigo

fiz novas modificações no seu projeto exemplo. Teste e me diga se funciona.

Aguardamos
por Avelino Sampaio
23 Jun 2018, 10:49
Fórum: Formulários
Tópico: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar
Respostas: 12
Exibições: 223

Re: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

Rodrigo,

por um acaso está usando uma combinação de teclas para usar o PrintCreen ? Está usando um Notebook ?

Aguardamos
por Avelino Sampaio
22 Jun 2018, 13:25
Fórum: Formulários
Tópico: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar
Respostas: 12
Exibições: 223

Re: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

Rodrigo,

tira o PtrSafe pois só funciona para o 2010 em diante.

Aguardamos
por Avelino Sampaio
20 Jun 2018, 08:30
Fórum: Formulários
Tópico: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar
Respostas: 12
Exibições: 223

Re: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

Rodrigo aqui está funcionando direitinho ( Windows 7/64bits + Access 2016/32bits ). Acrescente o PtrSafe na API e realize novo teste. Public Declare PtrSafe Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Nota...
por Avelino Sampaio
19 Jun 2018, 09:38
Fórum: Formulários
Tópico: botão para localizar arquivos de imagens jpg ou videos mp4
Respostas: 6
Exibições: 180

Re: botão para localizar arquivos de imagens jpg ou videos mp4

Rodrigo

para inserir imagens no campo tipo anexo, via programação, terá que aprender sobre o LoadFromFile. O Link te traz a vara de pescar.

Bom estudo!
por Avelino Sampaio
19 Jun 2018, 09:26
Fórum: Formulários
Tópico: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar
Respostas: 12
Exibições: 223

Re: desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

Rodrigo, utilize a seguinte API: Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long E no evento "Ao abrir" do formulário, coloque: Private Sub Form_Open(Cancel As Integer) Call Re...
por Avelino Sampaio
18 Jun 2018, 18:27
Fórum: Formulários
Tópico: botão para localizar arquivos de imagens jpg ou videos mp4
Respostas: 6
Exibições: 180

Re: botão para localizar arquivos de imagens jpg ou videos mp4

Rodrigo

no final do artigo diz que vc para isso deverá usar os métodos LoadFromFile e SaveToFile. Veja nos artigos abaixo:

https://msdn.microsoft.com/pt-br/library/office/ff191852.aspx

e

https://msdn.microsoft.com/pt-br/library/office/ff197396.aspx

Bom estudo!
por Avelino Sampaio
22 Abr 2018, 16:46
Fórum: Ribbons
Tópico: Login Simples com Ribbon não funciona.
Respostas: 7
Exibições: 570

Re: Login Simples com Ribbon não funciona.

pcmilk

- abra o VBA
- no menu DEPURAR > clique em COMPILAR. Se houver erro corrija

Aguardamos
por Avelino Sampaio
22 Abr 2018, 07:43
Fórum: Ribbons
Tópico: Login Simples com Ribbon não funciona.
Respostas: 7
Exibições: 570

Re: Login Simples com Ribbon não funciona.

pcmilk,

verifique se a seguinte referência está marcada:

MICROSOFT OFFICE 16.0 OBJECT LIBRARY (VERSÃO 2016)

Ou

MICROSOFT OFFICE 15.0 OBJECT LIBRARY (VERSÃO 2013)

O meu arquivo exemplo funciona, sem as suas alterações ?

Aguardamos

Pesquisa avançada