A pesquisa encontrou 308 resultados

por Damasceno Jr.
15 Set 2017, 15:23
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

mylton, conseguiu fazer funcionar com as dicas?
por Damasceno Jr.
15 Set 2017, 15:22
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

Vindo de quem sabe muito sobre o assunto pra quem tá em processo de aprendizagem... fico muito agradecido, professor, de verdade.
por Damasceno Jr.
14 Set 2017, 23:15
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

Veja como com o módulo e a função nomeados diferentes funciona redondinho
funcionamento.jpg
funcionamento.jpg (141.92 KiB) Visto 74 vezes
por Damasceno Jr.
14 Set 2017, 23:05
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

rsrs... custei a entender o que estava acontecendo... mas enfim entendi. O código está funcional, o problema é que você sempre está renomeando o módulo com o mesmo nome da função. Isso faz com que o VBA não saiba exatamente a quem o código se refere. É necessário adotar um padrão para que não haja c...
por Damasceno Jr.
13 Set 2017, 23:58
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

Você não fez como eu indiquei. A ideia é que você não pode usar palavras reservadas para nomear funções ou objetos dentro do VBA, e você nomeou a função como " Mensagem " (eu tinha sugerido " Mensagem2 ", não é o ideal, mas daria certo)... Refiz o trecho com um nome mais apropria...
por Damasceno Jr.
13 Set 2017, 10:26
Fórum: Módulos VBA
Tópico: [resolvido] Mensagem temporizada
Respostas: 11
Exibições: 97

Re: Mensagem temporizada

Tente alterar o nome da função Como tá agora: Public Function Mensagem (Seconds As Integer, Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String) As VbMsgBoxResult Dim wshell As Object Set wshell = CreateObject("WScript.Shell") MsgBox...
por Damasceno Jr.
11 Set 2017, 10:47
Fórum: Formulários
Tópico: Formulário entrada de dados
Respostas: 6
Exibições: 85

Re: Formulário entrada de dados

Já tive uma ideia aqui. Tá fácil de resolver... mas preciso entender uma coisa. A ideia da chave primária é servir como um identificador único do registro. Preciso entender a chave primária para o campo "data de inicio". Só será cadastrado no máximo um associado por dia (só assim não haver...
por Damasceno Jr.
09 Set 2017, 12:11
Fórum: Formulários
Tópico: Formulário entrada de dados
Respostas: 6
Exibições: 85

Re: Formulário entrada de dados

Levando em consideração o nome do formulário (que indica que a junção de todas as tabelas sempre será usada na inclusão de um associado) Levando em consideração que o código associado era chave primária nas demais tabelas Então juntei tudo em uma tabela só e refiz os relacionamentos... dá uma olhada...
por Damasceno Jr.
09 Set 2017, 11:40
Fórum: Módulos VBA
Tópico: Imagem de Fundo Padrão
Respostas: 1
Exibições: 43

Re: Imagem de Fundo Padrão

Código:
Sub NomeDaFuncao(VarNomeFormulario As String)

Forms(VarNomeFormulario).Picture = CurrentProject.Path & "\Imagens\Fundo.png"

End Sub

No evento ao carregador do seu formulário coloque

Código:
Call NomeDaFuncao(Me.Name)
por Damasceno Jr.
02 Set 2017, 00:02
Fórum: Biblioteca de exemplos Ms Access
Tópico: SySCND - Sistema para Controle de Número de Documentos
Respostas: 5
Exibições: 1888

Re: SySCND - Sistema para Controle de Número de Documentos

Tenho sim. Na segunda anexo aqui (ficou no trabalho :? )
por Damasceno Jr.
03 Ago 2017, 10:20
Fórum: Formulários
Tópico: [resolvido] Soma não funciona
Respostas: 4
Exibições: 115

Re: Soma não funciona

Aí então é só se prevenir contra nulos com a função Nz:

Código: Selecionar todos

=Nz(MeuCampo, ValorSeNulo)

No seu caso:
Código:
=CCur(Nz([texto1];0))+CCur(Nz([texto2];0))+CCur(Nz([texto3];0))+CCur(Nz([texto4];0))
por Damasceno Jr.
02 Ago 2017, 23:02
Fórum: Formulários
Tópico: [resolvido] Soma não funciona
Respostas: 4
Exibições: 115

Re: Soma não funciona

Uai, muito simples, se o que você quer é uma soma ao invés de uma concatenação então basta fazer com que o MS Access veja os campos como números ao invés de texto. =CCur([texto1])+CCur([texto2])+CCur([texto3])+CCur([texto4]) Dica: sugiro deixar as caixas de texto que serão somadas com o valor padrão...
por Damasceno Jr.
26 Jul 2017, 20:29
Fórum: Access x Outros
Tópico: Access na Internet!
Respostas: 2
Exibições: 104

Re: Access na Internet!

por Damasceno Jr.
25 Jul 2017, 12:56
Fórum: Relatórios
Tópico: [resolvido] Relatório de Pontuação de Candidato
Respostas: 8
Exibições: 178

Re: Relatório de Pontuação de Candidato

Tudo ocorre de forma automática. Experimente cadastrar mais de cinco entes e abrir a consulta para ver o que acontece.
por Damasceno Jr.
25 Jul 2017, 10:37
Fórum: Relatórios
Tópico: [resolvido] Relatório de Pontuação de Candidato
Respostas: 8
Exibições: 178

Re: Relatório de Pontuação de Candidato

Sempre que um ente é cadastrado ele ajudará o candidato a pontuar. Salvo se você desmarcar essa opção lá na tabela de entes. Quando a consulta é aberta, ou seja, quando você quer fazer o levantamento de quantos pontos cada candidato tem, o que o código faz é colocar todos os entes que pontuam de cad...
por Damasceno Jr.
24 Jul 2017, 21:52
Fórum: Relatórios
Tópico: [resolvido] Relatório de Pontuação de Candidato
Respostas: 8
Exibições: 178

Re: Relatório de Pontuação de Candidato

Abra o módulo "modContaPontos" e troque na quarta linha
Código:
Public Function fncContaPontos(argCodigoCandidato As Long) As Long

por
Código:
Public Function fncContaPontos(argCodigoCandidato As Long) As Double
por Damasceno Jr.
20 Jul 2017, 13:31
Fórum: Relatórios
Tópico: [resolvido] Classificar Meses em Relatório
Respostas: 7
Exibições: 186

Re: [resolvido] Classificar Meses em Relatório

1. Na consulta mudei o formato da data para evitar problemas quando ocorrer mudança de ano; 2. No relatório, no cabeçalho do grupo "período", adicionei o campo chamado "classifica"; 3. No relatório, usei o campo "classifica" para classificar os registros do menor para o...
por Damasceno Jr.
19 Jul 2017, 20:22
Fórum: Relatórios
Tópico: [resolvido] Relatório de Pontuação de Candidato
Respostas: 8
Exibições: 178

Re: Relatório de Pontuação de Candidato

Veja se atende:
Database5.accdb
(436 KiB) Baixado 21 vezes
por Damasceno Jr.
19 Jul 2017, 19:35
Fórum: Relatórios
Tópico: [resolvido] Classificar Meses em Relatório
Respostas: 7
Exibições: 186

Re: Classificar Meses em Relatório

Tente copiar a consulta e o relatório por completo para o seu BD.
por Damasceno Jr.
19 Jul 2017, 19:33
Fórum: Formulários
Tópico: [resolvido] Selecionar Parcelas para Renegociar!
Respostas: 7
Exibições: 217

Re: Selecionar Parcelas para Renegociar!

Coloque aspas antes do último ) (fechamento de parênteses)
por Damasceno Jr.
19 Jul 2017, 19:25
Fórum: Formulários
Tópico: [resolvido] Retornar as iniciais do nome
Respostas: 5
Exibições: 172

Re: Retornar as iniciais do nome

Coloque num módulo global.

No formulário onde quer exibir as iniciais, crie um caixa de texto e coloque como fonte de controle =fncIniciaisNome(Nz(SeuControleNome;""))
por Damasceno Jr.
19 Jul 2017, 17:41
Fórum: Relatórios
Tópico: [resolvido] Classificar Meses em Relatório
Respostas: 7
Exibições: 186

Re: Classificar Meses em Relatório

Veja se atende
por Damasceno Jr.
19 Jul 2017, 17:20
Fórum: Formulários
Tópico: [resolvido] Selecionar Parcelas para Renegociar!
Respostas: 7
Exibições: 217

Re: Selecionar Parcelas para Renegociar!

CurrentDb.Execute ("DELETE * FROM tbl_ContasReceber WHERE CodTabVenda=" & Me.CodVenda & " And NomeDoSeuCampoSimOuNaoNaTabela = 0 ) Set db = CurrentDb() Set rs = db.OpenRecordset("tbl_ContasReceber") Me.tbl_ContasReceber_subformulário.Requery ...
por Damasceno Jr.
19 Jul 2017, 12:38
Fórum: Formulários
Tópico: [resolvido] Retornar as iniciais do nome
Respostas: 5
Exibições: 172

Re: Retornar as iniciais do nome

Function fncIniciaisNome(CampoComNome As String) As String Dim a As String Dim b Dim c Dim d As Byte Dim e As Byte Dim f As Boolean Dim g As String If CampoComNome = "" Then Exit Function a = "e,de,dos,da" 'suas exceções b = Split(a, ",") c = Split&...

Pesquisa avançada