A pesquisa encontrou 343 resultados

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

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: Filtro em Caixa de Combinação
Respostas: 7
Exibições: 22

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

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

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: Filtro em Caixa de Combinação
Respostas: 7
Exibições: 22

Re: Filtro em Caixa de Combinação

isso mesmo, professor, esqueci de desativar o Autoexpandir...
por Damasceno Jr.
16 Nov 2017, 12:57
Fórum: Formulários
Tópico: Filtro em Caixa de Combinação
Respostas: 7
Exibições: 22

Re: Filtro em Caixa de Combinação

Professor, acho que entendi. Talvez seja disso que o abjinfo esteja falando...
por Damasceno Jr.
16 Nov 2017, 12:39
Fórum: Formulários
Tópico: [resolvido] Update e Insert do excel para Access
Respostas: 26
Exibições: 157

Re: Update e Insert do excel para Access

Na abertura do tópico você diz :? : como faço para atualizar e inserir alguns campos da minha tabela pelo Excel deles ? Bom... então basta remover o que está em vermelho... Adaptar/Alterar o que está em azul Public Sub fncImportaExcel() Dim bdExcel As DAO.Database Dim rs1 As Recordset Dim rs...
por Damasceno Jr.
16 Nov 2017, 11:01
Fórum: Formulários
Tópico: [resolvido] Update e Insert do excel para Access
Respostas: 26
Exibições: 157

Re: Update e Insert do excel para Access

O código também atualiza... olhe os comentários.
por Damasceno Jr.
15 Nov 2017, 19:39
Fórum: Formulários
Tópico: [resolvido] Update e Insert do excel para Access
Respostas: 26
Exibições: 157

Re: Update e Insert do excel para Access

Senhores, vejam se ajuda... estou querendo aprender sobre a interação do Access com os outros aplicativos do pacote office Public Sub fncImportaExcel() Dim bdExcel As DAO.Database Dim rs1 As Recordset Dim rs2 As Recordset Dim fld As Field Dim strCampo As String Dim lnglimite As Long lnglimit...
por Damasceno Jr.
14 Nov 2017, 17:43
Fórum: Tabelas
Tópico: [resolvido] Sumiram os dados do BD
Respostas: 7
Exibições: 55

Re: Sumiram os dados do BD

Veja se isso ajuda...
por Damasceno Jr.
14 Nov 2017, 14:29
Fórum: Módulos VBA
Tópico: [resolvido] Associar idade a expectativa vida, como implementar.
Respostas: 4
Exibições: 58

Re: Associar idade a expectativa vida, como implementar.

Desculpa a demora... veja se assim resolve.
por Damasceno Jr.
13 Nov 2017, 16:01
Fórum: Formulários
Tópico: [resolvido] Função não Funciona em campo texto como resolver
Respostas: 2
Exibições: 10

Re: Função não Funciona em campo texto como resolver

Código:
..
For Each Sel In Me!Lista.ItemsSelected
filtro = filtro & "'" & Me!Lista.Column(1, Sel) & "',"
j = True
Next
...
por Damasceno Jr.
12 Nov 2017, 19:55
Fórum: Tabelas
Tópico: Identificar utilizador
Respostas: 3
Exibições: 35

Re: Identificar utilizador

Sim, basta adaptar. Se o login do usuário ficar salvo em uma variável é possível usar a mesma lógica do link que lhe mandei: enviando, ao invés do nome da máquina, o login do usuário. Um bom exemplo da captura dos dados do usuário logado no sistema é o aplicativo Maestro, que também tem no site Usan...
por Damasceno Jr.
12 Nov 2017, 16:06
Fórum: Biblioteca de exemplos Ms Access
Tópico: SySCND - Sistema para Controle de Número de Documentos
Respostas: 7
Exibições: 2229

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

Qual versão do Access tá usando? Se for o 2007 tá com o service pack 2 instalado?
por Damasceno Jr.
11 Nov 2017, 17:38
Fórum: Formulários
Tópico: [Resolvido]Erro nos códigos com Bancos accdb e accde
Respostas: 2
Exibições: 18

Re: Erro nos códigos com Bancos accdb e accde

Use a ferramente compactar e reparar do MS Access Tente decompilar o código criando um atalho e adicionando no final o /decompile e depois compile novamente Experimente alterando o código Private Sub brnFechar_Click() On Error Resume Next If MsgBox("Tem certeza que quer fechar o Mód...
por Damasceno Jr.
10 Nov 2017, 17:07
Fórum: Off- Assuntos variados
Tópico: [resolvido] Ícone do aplicativo
Respostas: 20
Exibições: 4214

Re: [resolvido] Ícone do aplicativo

Um pouco melhorado.
por Damasceno Jr.
10 Nov 2017, 16:14
Fórum: Tabelas
Tópico: [resolvido] Ajustando Valores Vertical x Horizontal
Respostas: 5
Exibições: 51

Re: Ajustando Valores Vertical x Horizontal

4.jpg

5.jpg

6.jpg
por Damasceno Jr.
10 Nov 2017, 16:13
Fórum: Tabelas
Tópico: [resolvido] Ajustando Valores Vertical x Horizontal
Respostas: 5
Exibições: 51

Re: Ajustando Valores Vertical x Horizontal

Olha o passo a passo (também estou aprendendo a usá-las.)

1.jpg

2.jpg

3.jpg
por Damasceno Jr.
10 Nov 2017, 14:01
Fórum: Consultas
Tópico: [resolvido] Agregação com critérios (MÁX E MÍN)
Respostas: 7
Exibições: 100

Re: Agregação com critérios (MÁX E MÍN)

Adicione o que se destaca em vermelho: ... Set rs1 = CurrentDb.OpenRecordset("select C.STATION, C.DETENTOR_SOLICITANTE , AREA_UTILIZADA_SOLO, AREA_UTILIZADA_EV " & _ "from Compartilhamento C " & _ "order by C.STATION, C.AREA_UTILIZADA_EV, C.AREA_UTILIZADA_SOLO de...
por Damasceno Jr.
10 Nov 2017, 10:38
Fórum: Tabelas
Tópico: Identificar utilizador
Respostas: 3
Exibições: 35

Re: Identificar utilizador

Veja se esse link ajuda

Quem incluiu, alterou ou excluiu ?
por Damasceno Jr.
09 Nov 2017, 17:39
Fórum: Consultas
Tópico: [resolvido] Agregação com critérios (MÁX E MÍN)
Respostas: 7
Exibições: 100

Re: Agregação com critérios (MÁX E MÍN)

Crie uma macro que execute a função e abra a consulta.

Se quiser, pode até nomeá-la como AutoExec que assim que você abrir o banco de dados ela será executada automaticamente.
por Damasceno Jr.
08 Nov 2017, 16:29
Fórum: Macros
Tópico: [resolvido] Botão PRINT SCREEN
Respostas: 5
Exibições: 50

Re: Botão PRINT SCREEN

Exemplo em anexo.
por Damasceno Jr.
07 Nov 2017, 13:43
Fórum: Macros
Tópico: [resolvido] Botão PRINT SCREEN
Respostas: 5
Exibições: 50

Re: Botão PRINT SCREEN

Num módulo global cole Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 Private Const VK_SNAPSHOT = &H2C Private Const VK_MENU = &H12 Sub AltPrin...
por Damasceno Jr.
07 Nov 2017, 10:51
Fórum: Formulários
Tópico: [resolvido] Numerando um Listbox
Respostas: 13
Exibições: 120

Re: Numerando um Listbox

Requery nela
por Damasceno Jr.
06 Nov 2017, 13:19
Fórum: Formulários
Tópico: [resolvido] Numerando um Listbox
Respostas: 13
Exibições: 120

Re: Numerando um Listbox

solução para o segundo. Ambos usando tabela temporária.

Pesquisa avançada