A pesquisa encontrou 456 resultados

por Damasceno Jr.
11 Dez 2018, 15:31
Fórum: Formulários
Tópico: Acessar Campos de um formulario
Respostas: 1
Exibições: 21

Re: Acessar Campos de um formulario

Tente

Código: Selecionar todos

Private Sub lstProdutos_DblClick(Cancel As Integer)
    Forms! vendas_frm.txtCodBarras = Me.lstProdutos.Column(0)
    Forms! vendas_frm.txtCodBarras.SetFocus
End Sub
por Damasceno Jr.
11 Dez 2018, 00:33
Fórum: Módulos VBA
Tópico: Ajuda para melhorias em registrar aplicativo pelo registro do Windows
Respostas: 3
Exibições: 17

Re: Ajuda para melhorias em registrar aplicativo pelo registro do Windows

Antes de tudo, vale a leitura do artigo abaixo Sistema Shareware com liberação online Não que você vá usar os métodos do artigo, mas os fundamentos empregados, como Insegurança para o comprador, por isso a razão de um sistema online . Imagina seu cliente contratando um técnico pra formatar as máquin...
por Damasceno Jr.
11 Dez 2018, 00:02
Fórum: Formulários
Tópico: Calculo de vanda no formulário
Respostas: 1
Exibições: 16

Re: Calculo de vanda no formulário

aparentemente tudo certo. Qual o erro está surgindo?
por Damasceno Jr.
05 Dez 2018, 21:45
Fórum: Módulos VBA
Tópico: Barra de tarefas em andamento
Respostas: 4
Exibições: 22

Re: Barra de tarefas em andamento

Sidney, para esses casos eu sou adepto do Call SysCmd(acSysCmdSetStatus, "Fazendo algumas coisa..."): DoEvents 'mensagem para a barra de status Call fncFazAlgumaCoisa 'função que faz alguma coisa Call SysCmd(acSysCmdClearStatus) 'limpando a barra de status Veja ...
por Damasceno Jr.
05 Dez 2018, 21:39
Fórum: Ribbons
Tópico: [resolvido] Guia Registro
Respostas: 5
Exibições: 150

Re: [resolvido] Guia Registro

Agradeço seu retorno. Sucesso.
por Damasceno Jr.
04 Dez 2018, 21:19
Fórum: Ribbons
Tópico: [resolvido] Guia Registro
Respostas: 5
Exibições: 150

Re: Guia Registro

Para isso você terá que recriar manualmente todo o grupo usando idMso para os botões que o compõem e deixando apenas de colocar o botão do item de Ortografia
por Damasceno Jr.
02 Dez 2018, 21:42
Fórum: Relatórios
Tópico: Dado aparece errado
Respostas: 1
Exibições: 222

Re: Dado aparece errado

Anexo não chegou. Tente zipado no email damascenojr@outlook.com
por Damasceno Jr.
29 Nov 2018, 03:10
Fórum: Consultas
Tópico: [resolvido] Consulta com Tabelas Vinculadas sem registros
Respostas: 3
Exibições: 180

Re: Consulta com Tabelas Vinculadas sem registros

Abra a consulta em modo design, verifique a linha (relação) que liga a tabela XML_IPI com as demais tabelas, dê dois cliques na relação desejada e escolha a opção: Incluir TODOS os registros da tabela tblFulana e somente os registros da tabela XML_IPI quando os campos associados forem iguais.
por Damasceno Jr.
27 Nov 2018, 22:43
Fórum: Módulos VBA
Tópico: [resolvido] Ajuda com tópico de QR Code
Respostas: 4
Exibições: 197

Re: Ajuda com tópico de QR Code

Adicione ao formulário um controle do tipo imagem (cancele a janela do assistente, caso surja) e insira os trechos destacados abaixo no procedimento GenQRCode Private Sub GenQRCode(strTexto As String) On Error GoTo trataerro Dim I As Integer, strFile As String, strSaida As String 'limpan...
por Damasceno Jr.
27 Nov 2018, 20:09
Fórum: Módulos VBA
Tópico: [resolvido] Ajuda com Loop
Respostas: 3
Exibições: 166

Re: Ajuda com Loop

Obrigado pelo retorno.
por Damasceno Jr.
27 Nov 2018, 18:16
Fórum: Módulos VBA
Tópico: [resolvido] Exibição de valores na CheckBox
Respostas: 3
Exibições: 214

Re: Exibição de valores na CheckBox

Obrigado pelo retorno.
por Damasceno Jr.
27 Nov 2018, 16:27
Fórum: Módulos VBA
Tópico: [resolvido] Ajuda com Loop
Respostas: 3
Exibições: 166

Re: Ajuda com Loop

Public Function Caso_01() 'CASO_01- Existencia de criancas de 4 e 6 anos fora da escola. 'Critérios: Idade= Entre 4 e 6 anos, UniPesMor = 1-ATIVO e FreqEscCreche = 0 Dim Rst_Caso_01 As DAO.Recordset Dim rs As DAO.Recordset Dim strSql As String Dim intResulIdade As Integer ' Inse...
por Damasceno Jr.
27 Nov 2018, 15:24
Fórum: Módulos VBA
Tópico: [resolvido] Exibição de valores na CheckBox
Respostas: 3
Exibições: 214

Re: Exibição de valores na CheckBox

No evento "No Atual" do seu formulário "FDocenteDias" coloque o código abaixo que acontecerá o que você quer. Dim rs As DAO.Recordset Dim i As Byte For i = 2 To 7 Me("chk" & StrConv(Replace(WeekdayName(i), "-feira", ""), v...
por Damasceno Jr.
27 Nov 2018, 11:53
Fórum: Relatórios
Tópico: [resolvido] Relatório sem campo nulo
Respostas: 2
Exibições: 158

Re: Relatório sem campo nulo

Use esta SQL na sua consulta: SELECT Tabela1.*, Tabela2.*, Tabela3.*, Tabela4.*, Tabela5.*, Tabela6.* FROM ((((Tabela1 INNER JOIN Tabela2 ON Tabela1.IdTabela1 = Tabela2.IdTabela1) INNER JOIN Tabela4 ON Tabela1.IdTabela1 = Tabela4.IdTabela1) INNER JOIN Tabela6 ON Tabela1.IdTabela1 = Tabela6.IdTabela1...
por Damasceno Jr.
27 Nov 2018, 02:06
Fórum: Ribbons
Tópico: [resolvido] Guia Registro
Respostas: 5
Exibições: 150

Re: Guia Registro

Quando você cria seus próprios botões e até mesmo imagens nas xml's da ribbon você usa as tags "id" e também "image". Todavia, é possível usar também "idMso" e "imageMso" para resgatar os padrões das funcionalidades e imagens do pacote office, respectivamente....
por Damasceno Jr.
27 Nov 2018, 01:44
Fórum: Biblioteca de exemplos Ms Access
Tópico: QR Code no Access sem OCX
Respostas: 1
Exibições: 143

Re: QR Code no Access sem OCX

Obrigado por compartilhar.
por Damasceno Jr.
24 Nov 2018, 19:04
Fórum: Ribbons
Tópico: [resolvido] Mensagem no botão sair
Respostas: 2
Exibições: 64

Re: Mensagem no botão sair

Na ribbon tenha o botão que tenha o seguinte código na ação: <button id = "btSair" ... onAction = " fncOnAction " /> No código da função fncOnAction atribua a ação para o botão: Public Sub fncOnAction(control As IRibbonControl) Select Case control.Id ... Case "btsair...
por Damasceno Jr.
23 Nov 2018, 12:30
Fórum: Módulos VBA
Tópico: [resolvido] INSERT INTO Somente dados exlusivo.
Respostas: 5
Exibições: 119

Re: INSERT INTO Somente dados exlusivo.

Código:
INSERT INTO Tabela1 ( Código )
SELECT Tabela2.Código
FROM Tabela2 LEFT JOIN Tabela1 ON Tabela2.[Código] = Tabela1.[Código]
WHERE Tabela1.Código Is Null;
por Damasceno Jr.
21 Nov 2018, 22:32
Fórum: Módulos VBA
Tópico: [resolvido] Percorrer Valor do Campo
Respostas: 2
Exibições: 88

Re: Percorrer Valor do Campo

Se você tá dizendo que só tem 199 por causa da impressão na janela de verificação imediata então não vale. Ela tem um limite de linhas que podem ser mostradas. É isso?
por Damasceno Jr.
21 Nov 2018, 01:36
Fórum: Relatórios
Tópico: Relatório de consulta
Respostas: 1
Exibições: 68

Re: Relatório de consulta

Não entendi. Mande me os objetos envolvidos no email damascenojr@outlook.com
por Damasceno Jr.
21 Nov 2018, 01:26
Fórum: Relatórios
Tópico: [resolvido] Relatório com valor consolidado correto
Respostas: 7
Exibições: 130

Re: Relatório com valor consolidado correto

Opa... contanto que tenha entendido realmente o explicado então atingi meu objetivo. Sucesso a você!!!
por Damasceno Jr.
20 Nov 2018, 21:09
Fórum: Relatórios
Tópico: [resolvido] Relatório com valor consolidado correto
Respostas: 7
Exibições: 130

Re: Relatório com valor consolidado correto

Sim, estão zerados.

O motivo? Você lançou registros quando a rotina que copia o valor do exame da tabela exame para o valor do exame na tabela consulta detalhada ainda não estava implementada. Faça as adaptações que lhe indiquei que tudo funcionará conforme você quer de agora para frente.

Pesquisa avançada