A pesquisa encontrou 345 resultados

por Damasceno Jr.
02 Abr 2018, 10:47
Fórum: Módulos VBA
Tópico: [resolvido] Loop sem Do
Respostas: 2
Exibições: 98

Re: Loop sem Do

Vejo dois inícios de loop mas só um final: Private Sub Comando16_Click() Dim Rs As DAO.Recordset Dim N As Double Set Rs = CurrentDb.OpenRecordset("SELECT * FROM Lembrete_Calendario") Do While Not Rs.EOF Dim Mens As Object Dim Config As Object Set Mens = CreateObject("CDO.Message"...
por Damasceno Jr.
14 Mar 2018, 15:02
Fórum: Módulos VBA
Tópico: [resolvido] porcentagem
Respostas: 2
Exibições: 119

Re: porcentagem

Numa textBox desacoplada coloque:

Código: Selecionar todos

=( ( [CampoValorComTotalDeAulas] - [CampoValorComTotalDeAulasQueJáFez]) * 100) / [CampoValorComTotalDeAulas]
por Damasceno Jr.
19 Fev 2018, 17:34
Fórum: Access x MySql
Tópico: [Resolvido] Connection.Execute ou Command.Execute
Respostas: 2
Exibições: 242

Re: Connection.Execute ou Command.Execute

Resolvido! Com o objeto Command do ADO, você pode executar consultas da mesma maneira que as executa com os objetos Connection e Recordset, exceto pelo fato de que, com o objeto Command, você pode preparar ou compilar a consulta na origem do banco de dados e, em seguida, reemitir repetidas vezes a c...
por Damasceno Jr.
19 Fev 2018, 16:18
Fórum: Access x MySql
Tópico: [Resolvido] Connection.Execute ou Command.Execute
Respostas: 2
Exibições: 242

[Resolvido] Connection.Execute ou Command.Execute

Bom dia... já estou utilizando o básico do MySQL há um tempo e então decidi me aprofundar e melhorar a forma de funcionamento dos aplicativos que desenvolvo com base na "regra de ouro de acessar às tabelas somente quando necessário". Além das tabelas estou descobrindo também Storeds Prodec...
por Damasceno Jr.
17 Fev 2018, 22:15
Fórum: Off- Assuntos variados
Tópico: [resolvido] Ícone do aplicativo
Respostas: 25
Exibições: 6578

Re: [resolvido] Ícone do aplicativo

As possibilidades são: "C:\Program Files\Microsoft Office\Office14\MSACCESS.exe" c:\Prometeus\Prometeus.accdb "C:\Program Files(x86)\Microsoft Office\Office14\MSACCESS.exe" c:\Prometeus\Prometeus.accdb "C:\Arquivos de Programas\Microsoft Office\Office14\MSACCESS.exe" c:...
por Damasceno Jr.
11 Fev 2018, 11:33
Fórum: Formulários
Tópico: [resolvido] Quebrar linha no código
Respostas: 4
Exibições: 223

Re: Quebrar linha no código

Código:
If 1 = 1 Or _
2 = 2 Or _
3 = 3 Or _
... = ... Then ...
por Damasceno Jr.
04 Fev 2018, 17:44
Fórum: Formulários
Tópico: [resolvido] Contador de Registro
Respostas: 8
Exibições: 434

Re: Contador de Registro

Cole o código abaixo no evento "Ao fechar" do formulário que você usa para alterar o produto.

Código:
On Error Resume Next
Forms!Vendas!Texto110.Requery
por Damasceno Jr.
03 Fev 2018, 20:39
Fórum: Formulários
Tópico: [resolvido] Contador de Registro
Respostas: 8
Exibições: 434

Re: Contador de Registro

Em forma de função própria criada onde é passado a palavra a ser procurada.
por Damasceno Jr.
03 Fev 2018, 14:51
Fórum: Formulários
Tópico: [resolvido] Combox nao funciona totalmente
Respostas: 2
Exibições: 222

Re: Combox nao funciona totalmente

Veja se atende...
por Damasceno Jr.
03 Fev 2018, 14:33
Fórum: Formulários
Tópico: [resolvido] Contador de Registro
Respostas: 8
Exibições: 434

Re: Contador de Registro

Veja se atende...
por Damasceno Jr.
03 Fev 2018, 14:06
Fórum: Formulários
Tópico: Número sequencial zerando diariamente
Respostas: 7
Exibições: 418

Re: Número sequencial zerando diariamente

Então, o exemplo era só exemplo mais ou menos de como funcionaria e precisava de adaptação. Agora que já vi parte do seu projeto e entendi um pouco de como vai funcionar pra você, deixo um terceiro exemplo onde o formulário é vinculado na tabela. O código está comentado, talvez facilite a adaptação....
por Damasceno Jr.
02 Fev 2018, 20:56
Fórum: Formulários
Tópico: [resolvido] Contador de Registro
Respostas: 8
Exibições: 434

Re: Contador de Registro

Veja este exemplo
por Damasceno Jr.
02 Fev 2018, 19:45
Fórum: Formulários
Tópico: Número sequencial zerando diariamente
Respostas: 7
Exibições: 418

Re: Número sequencial zerando diariamente

Quando "buracos" na sequência não importam, afinal, só o que precisamos é de um identificador único para o registro então não sou conta mostrar no formulário o valor que o identificador do registro terá quando for salvo. Mas se a ordem importa e o aplicativo será usando em rede, então o id...
por Damasceno Jr.
01 Fev 2018, 11:41
Fórum: Formulários
Tópico: Número sequencial zerando diariamente
Respostas: 7
Exibições: 418

Re: Número sequencial zerando diariamente

Adapte o exemplo
por Damasceno Jr.
30 Jan 2018, 11:23
Fórum: Ribbons
Tópico: APARÊNCIA PROFISSIONAL
Respostas: 2
Exibições: 275

Re: Deixe seus aplicativos Access com APARÊNCIA PROFISSIONAL

Vale a pena.

O MontaRibbons é simplesmente fantástico!

Esqueça ter menu em janelas. Com as ribbons tudo fica mais organizado, atraente e profissional.

Professor, obrigado por incluir também funções que permitem imagens externas. Com isso é mais personalizável ainda.
por Damasceno Jr.
06 Jan 2018, 21:06
Fórum: Formulários
Tópico: [resolvido] Efeito Hiperlink
Respostas: 2
Exibições: 195

Re: Efeito Hiperlinkh

Crie um botão transparente por cima do seu retângulo e na guia "Outra" da folha de propriedades do botão configure a propriedade "Cursor em foco" para "Mão em hyperlink"
por Damasceno Jr.
26 Dez 2017, 13:10
Fórum: Relatórios
Tópico: [resolvido] Imprimindo através de Listbox
Respostas: 3
Exibições: 267

Re: Imprimindo através de Listbox

Não há exemplo melhor do que no maestro sobre filtragens para relatório.
por Damasceno Jr.
26 Dez 2017, 13:06
Fórum: Formulários
Tópico: [Resolvido] Data comparar campo com data atual
Respostas: 2
Exibições: 218

Re: DAta comparar campo com data atual

usar "Agora()" é uma facilidade ofertada pela interface em português do access.

Mas ao utilizar o VBA é necessário fazer uso do inglês, ficando "Now()".

Now() retorna data e tempo atual
Time() retorna tempo atual
Date() retorna data atual
por Damasceno Jr.
17 Dez 2017, 22:45
Fórum: Ribbons
Tópico: [resolvido] MONTA RIBBONS 7, Video aula 01. Grupos ausentes nas guias.
Respostas: 3
Exibições: 311

Re: MONTA RIBBONS 7, Video aula 01. Grupos ausentes nas guias.

Exemplo de um botão adicionado fazendo assim o grupo criado aparecer
ffdfdf.jpg
por Damasceno Jr.
17 Dez 2017, 22:35
Fórum: Ribbons
Tópico: [resolvido] MONTA RIBBONS 7, Video aula 01. Grupos ausentes nas guias.
Respostas: 3
Exibições: 311

Re: MONTA RIBBONS 7, Video aula 01. Grupos ausentes nas guias.

Insira botões nos grupos que os grupos aparecerão.
por Damasceno Jr.
17 Dez 2017, 21:38
Fórum: Tabelas
Tópico: [resolvido] Access lento na rede o que pode ser ?
Respostas: 7
Exibições: 569

Re: Access lento na rede o que pode ser ?

Na máquina de cada usuário, crie uma pasta na raiz do disco "c:\" com o nome do seu aplicativo e copie o front-end para a pasta criada. Então basta agora que os usuários agora abram o front-end desta pasta e não mais o front-end que fica em rede. Com isso seu aplicativo já estará na máquin...
por Damasceno Jr.
14 Dez 2017, 18:04
Fórum: Formulários
Tópico: [resolvido] Máscara de entrada
Respostas: 5
Exibições: 371

Re: Máscara de entrada

Quando tive dúvidas sobre esse sentido fiz da seguinte forma: Private Sub txtTelefone_AfterUpdate() 'evento após atualizar Dim strNumero As String If Len(Me!txtTelefone & "") = 0 Then Exit Sub 'se no campo não tiver nada não continue strNumero = Replace(Me!t...
por Damasceno Jr.
11 Dez 2017, 16:23
Fórum: Formulários
Tópico: [resolvido] Colar abaixo do texto existente
Respostas: 2
Exibições: 251

Re: COLAR ABAIXO DO TEXTO EXISTENTE.

Código para o botão colar Memo1.SetFocus 'move o foco para a caixa If Len(Me!Memo1 & "") > 0 Then Me.Memo1 = Me.Memo1 & vbNewLine & vbNewLine 'se já tiver texto então pula algumas linhas Me!Memo1.SelStart = Len(Me!Memo1.Text) 'move o cursor para o fi...

Pesquisa avançada