A pesquisa encontrou 460 resultados

por Damasceno Jr.
18 Dez 2018, 20:09
Fórum: Relatórios
Tópico: Ordenar dados somente pelo primeiro numero
Respostas: 1
Exibições: 5

Re: Ordenar dados somente pelo primeiro numero

Na consulta que da origem ao relatório crie um campo com a instrução

Código: Selecionar todos

left(cstr([SeuCampoNumero]);1)


e então ordene por ele
por Damasceno Jr.
17 Dez 2018, 18:34
Fórum: Módulos VBA
Tópico: [resolvido] função PROCVMÚLTIPLO
Respostas: 3
Exibições: 19

Re: função PROCVMÚLTIPLO

Faça as adaptações que julgar necessário. SQL da consulta que traz o resultado que você quer: SELECT Data, fncGeraLinhaUnica([Data]) AS [Campo pretendido] FROM tbl_Teste GROUP BY Data, fncGeraLinhaUnica([Data]); Função que faz o serviço: Public Function fncGeraLinhaUnica(dtData A...
por Damasceno Jr.
14 Dez 2018, 14:23
Fórum: Consultas
Tópico: [resolvido] Fazer a Seleção Top 30 de Vários RCA
Respostas: 3
Exibições: 43

Re: Fazer a Seleção Top 30 de Vários RCA

Anexo não veio. Tente no email damascenojr@outlook.com
por Damasceno Jr.
11 Dez 2018, 15:31
Fórum: Formulários
Tópico: Acessar Campos de um formulario
Respostas: 1
Exibições: 40

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

Pesquisa avançada