A pesquisa encontrou 363 resultados

por Damasceno Jr.
06 Jan 2018, 21:06
Fórum: Formulários
Tópico: [resolvido] Efeito Hiperlink
Respostas: 2
Exibições: 26

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

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

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

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

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

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

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

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...
por Damasceno Jr.
10 Dez 2017, 18:55
Fórum: Formulários
Tópico: Leva tudo por R$182,00 - Assinatura por 3 anos, livros, revistas e o MontaRibbons
Respostas: 10
Exibições: 1303

Re: Leva tudo por R$182,00 - Assinatura, livros, revistas e o MontaRibbons

RECOMENDO A TODOS! Sem dúvida foi o melhor investimento que já fiz. Como já foi dito aqui: ... o valor não é nada em relação ao que a gente recebe. Três anos depois da minha compra e ainda não consegui usar nem metade do que tem disponível no material de tão rico que é. Sem falar na assistência pre...
por Damasceno Jr.
07 Dez 2017, 12:21
Fórum: Módulos VBA
Tópico: [resolvido] VBA caixa listagem não sincroniza
Respostas: 6
Exibições: 152

Re: VBA caixa listagem não sincroniza

Parabéns mylton. Sucesso.
por Damasceno Jr.
03 Dez 2017, 16:17
Fórum: Módulos VBA
Tópico: [resolvido] Recordset Não possibilita atualizar Caixa de listagem
Respostas: 4
Exibições: 119

Re: Recordset Não possibilita atualizar Caixa de listagem

Altere a fonte do registro do formulário em tempo de execução. Adicione esses novos campo na consulta para que possamos identificar a tabela com a origem dos registros SELECT 1 as tp, ... FROM Tbl_PJuridica; Union SELECT 2 as tp, ... FROM Tbl_PFisica; Union SELECT 3 as tp, ... FROM Tbl_Advogado; UNI...
por Damasceno Jr.
03 Dez 2017, 03:04
Fórum: Biblioteca de exemplos Ms Access
Tópico: Alinhamento de Campo
Respostas: 1
Exibições: 106

Alinhamento de Campo

Depois de ler esta magnífica dica sobre tabelas temporárias, ter esta dúvida, estudar mais um pouco e ter um tempo sobrando para descobrir mais e mais sobre o MS Access, deixo então a revisão deste exemplo que pode ajudar a alguns.

Acompanhando.jpg
por Damasceno Jr.
27 Nov 2017, 00:36
Fórum: Relatórios
Tópico: [resolvido] Ordenação de Array
Respostas: 7
Exibições: 211

Re: Ordenação de Array

Testei e retestei e está tudo certo.

Certifique-se de que também fez as alterações na consulta que dá origem ao relatório pois é ela que passa os dados para a função de forma errada, conforme eu alertei no início da minha ultima postagem.
por Damasceno Jr.
22 Nov 2017, 16:14
Fórum: Módulos VBA
Tópico: [resolvido] Exportar Consulta via VBA com a data atual
Respostas: 2
Exibições: 100

Re: Exportar Consulta via VBA com a data atual

Tente
Código:
DoCmd.OutputTo acOutputQuery, "QFAM_461", "Excel97-Excel2003Workbook(*.xls)", , True, "", 0, acExportQualityPrint

Dessa forma o Access abrirá uma caixa para que o usuário escolha o local e o nome do arquivo a ser salvo.
por Damasceno Jr.
22 Nov 2017, 11:59
Fórum: Relatórios
Tópico: [resolvido] Ordenação de Array
Respostas: 7
Exibições: 211

Re: Ordenação de Array

eduas65, você estava mandando para a função fncOrdenar isso fncOrdenar([p1] & "," & [p2] & "," & [p3]...) repare: vê está unindo por vírgulas. Supondo os seguintes valores: p1 = 1,7 p2 = 2,1 p3 = 3,8 Ao juntar tudo, ou seja, você passa para o código: 1,7,2...
por Damasceno Jr.
22 Nov 2017, 10:38
Fórum: Formulários
Tópico: [resolvido] Filtro em Caixa de Combinação
Respostas: 14
Exibições: 423

Re: Filtro em Caixa de Combinação

Private Sub BotaoSalvar_Click() DoCmd.RunCommand acCmdSaveRecord 'salva o registro DoCmd.GoToRecord , "Certificado", acNewRec 'vai para a posição de novo registro Cbo_Cliente = Null 'limpa a Cbo_Cliente Cbo_Cliente.SetFocus 'move o foco para a combo cliente End Sub
por Damasceno Jr.
20 Nov 2017, 18:29
Fórum: Relatórios
Tópico: [resolvido] Ordenação de Array
Respostas: 7
Exibições: 211

Re: Ordenação de Array

você bloqueou com senha o acesso a parte de programação do arquivo enviado.
por Damasceno Jr.
20 Nov 2017, 18:02
Fórum: Formulários
Tópico: [resolvido] Filtro em Caixa de Combinação
Respostas: 14
Exibições: 423

Re: Filtro em Caixa de Combinação

Cole o código abaixo no evento "Após atualizar" da sua "Cbo_Cliente"

Código: Selecionar todos

Me!CodCli = Me!Cbo_Cliente

Assim, ao selecionar o cliente na sua combo, o código dele será passado automaticamente para o controle que salvará a informação que tá faltando.
por Damasceno Jr.
17 Nov 2017, 19:20
Fórum: Tabelas
Tópico: [resolvido] Update com valor Null não soma
Respostas: 3
Exibições: 141

Re: Update com valor Null não soma

Use a função Nz.

Código: Selecionar todos

Nz("CampoQuePodeOuNãoSerNulo", 0)

Nesse exemplo, se for nulo, será tido como 0.
por Damasceno Jr.
17 Nov 2017, 12:00
Fórum: Formulários
Tópico: [resolvido] Filtro em Caixa de Combinação
Respostas: 14
Exibições: 423

Re: Filtro em Caixa de Combinação

para salvar um registro use

Código: Selecionar todos

DoCmd.RunCommand acCmdSaveRecord


veja se isso resolve. se não resolver, poste tem seu formulário e sua tabela para vermos onde pode estar o problema.
por Damasceno Jr.
17 Nov 2017, 11:49
Fórum: Formulários
Tópico: [resolvido] Update e Insert do excel para Access
Respostas: 26
Exibições: 808

Re: Update e Insert do excel para Access

Acrescente o que está destacado em vermelho
Código:
...
For Each fld In rs1.Fields
If fld.Name = "F118" Then Exit For
strCampo = fncEquivale(fld.Name)
If strCampo <> "" Then rs2(strCampo).Value = fld.Value
Next fld
...
por Damasceno Jr.
16 Nov 2017, 14:42
Fórum: Formulários
Tópico: [resolvido] Update e Insert do excel para Access
Respostas: 26
Exibições: 808

Re: Update e Insert do excel para Access

Testei aqui e tudo está funcionando. Tem como postar como ficou o código completo do seu procedimento fncImportaExcel e da sua função fncEquivale após sua adaptação?
por Damasceno Jr.
16 Nov 2017, 13:30
Fórum: Formulários
Tópico: [resolvido] Filtro em Caixa de Combinação
Respostas: 14
Exibições: 423

Re: Filtro em Caixa de Combinação

isso mesmo, professor, esqueci de desativar o Autoexpandir...

Pesquisa avançada