A pesquisa encontrou 1861 resultados

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: 11
Exibições: 137

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: 11
Exibições: 137

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

Rodrigo,

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

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: 11
Exibições: 137

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: 11
Exibições: 137

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

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: 11
Exibições: 137

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

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

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

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
por Avelino Sampaio
21 Abr 2018, 20:36
Fórum: Formulários
Tópico: APARÊNCIA PROFISSIONAL
Respostas: 2
Exibições: 438

Re: APARÊNCIA PROFISSIONAL

up
por Avelino Sampaio
21 Abr 2018, 09:31
Fórum: Tabelas
Tópico: Criar Licenciamento
Respostas: 1
Exibições: 61

Re: Criar Licenciamento

Nelio,

sugiro que configure por limitação de registros, conforme este meu artigo:

http://www.usandoaccess.com.br/Dicas/sistema-shareware-por-limitacao-de-registros.asp?id=1#inicio

Aguardamos
por Avelino Sampaio
18 Abr 2018, 14:06
Fórum: Formulários
Tópico: [resolvido] Erro ao anexar fotos no formulário - Access 2013 64bit
Respostas: 2
Exibições: 96

Re: Erro ao anexar fotos no formulário - Access 2013 64bit

Paulo utilize esta função abaixo que é mais atual e serve bem no 64 bits: Public Function fncLocalizarArquivo() Dim fd As Office.FileDialog On Error GoTo trataErro Set fd = Application.FileDialog(msoFileDialogOpen) With fd With .Filters .Clear .Add "Banco de Dados", "*...
por Avelino Sampaio
18 Abr 2018, 13:57
Fórum: Ribbons
Tópico: [resolvido] Função Call na Ribbon
Respostas: 2
Exibições: 88

Re: Função Call na Ribbon

Sidney, utilize o TempVars Private Sub Report_Load() TempVars!strRelAtual = "rel_Funcionarios" End Sub Public Sub ExportarRelatorioExcel() Select Case TempVars!strRelAtual Case "rel_Funcionarios" DoCmd.OutputTo acOutputTable, "tab_Funcionarios", "Ex...
por Avelino Sampaio
14 Abr 2018, 09:18
Fórum: Formulários
Tópico: [resolvido] De uma Listbox a outra Listbox
Respostas: 2
Exibições: 124

Re: De uma Listbox a outra Listbox

Fabio, altere a propriedade "Tipo de origem da linha" para Lista de valores . Acrescente também o número de colunas e as suas respectivas larguras. Experimente este código, no Botão Adicionar . Private Sub btnAdicionar_Click() Dim sel For Each sel In Me!ListBox1.ItemsSelected With ...
por Avelino Sampaio
14 Abr 2018, 08:47
Fórum: Formulários
Tópico: [resolvido] Dúvida Formulário de Filtro
Respostas: 2
Exibições: 111

Re: Dúvida Formulário de Filtro

Vinicius, altere conforme a linha em vermelho. Private Sub btFiltrar_Click() Dim j As Boolean, filtro As String If IsNull(Me!cboPlaca) Then j = True If IsNull(Me!DataInicial) Then j = True If IsNull(Me!DataFinal) Then j = True If j = True Then MsgBox "Preencha to...
por Avelino Sampaio
12 Abr 2018, 14:01
Fórum: Ribbons
Tópico: Não estou conseguindo controlar a exibição do "separador" de botão na ribbon
Respostas: 3
Exibições: 126

Re: Não estou conseguindo controlar a exibição do "separador" de botão na ribbon

bydevsis,

o separador não deve conter os Get, ficando assim:

<separator id = "spAtendimentos" />
por Avelino Sampaio
11 Abr 2018, 17:06
Fórum: Ribbons
Tópico: Login Simples com Ribbon não funciona.
Respostas: 7
Exibições: 373

Re: Login Simples com Ribbon não funciona.

pcmilk,

qual é a versão do seu Access ? Isso foi depois de alguma alteração ? Por gentileza, ofereça mais detalhes.

Aguardamos
por Avelino Sampaio
11 Abr 2018, 17:04
Fórum: Ribbons
Tópico: Não estou conseguindo controlar a exibição do "separador" de botão na ribbon
Respostas: 3
Exibições: 126

Re: Não estou conseguindo controlar a exibição do "separador" de botão na ribbon

bydevsis,

na versão 2007 não funciona o getVisible para esconder os Separadores. Sugiro vc desabilitar os comandos ao invés de escondê-los. Utilize o getEnabled ao invés do getVisible.

Aguardamos

Pesquisa avançada