ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 1414 ocorrências

por Reinaldo
Sex Set 25, 2020 6:14 am
Fórum: VBA Básico
Tópico: ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]
Respostas: 5
Exibições: 124

Re: ERRO EM TEMPO DE EXECUÇÃO 1004

Aparentemente a coluna A referenciada não possui registros, o que resulta em "tentar" inserir dado em um endereço inexistente
por Reinaldo
Sex Set 18, 2020 9:40 am
Fórum: VBA Básico
Tópico: Populando ListView
Respostas: 3
Exibições: 88

Re: Populando ListView

Não entendi a demanda. Aparentemente e "carregado" registros de tabelas diferentes sem ligação visivel,porem e solicitado "carregar" duas vezes o nome pessoa da tbl ==>"Tab_Pessoa"
Pode fornecer exemplos de como são suas tabelas/banco e exemplificar,manualmente o que tem e o que espera obter?
por Reinaldo
Ter Set 15, 2020 12:08 pm
Fórum: Excel + Access
Tópico: ListView 21 colunas Sub ou Function não definida
Respostas: 3
Exibições: 189

Re: ListView 21 colunas Sub ou Function não definida

O erro é gerado,pois está em um formulário "chamando" uma rotina de outro Formulário; experimente:

Altere: Call CarregaRegistros
Para: Call frmCadastro.CarregaRegistros

Obs.:
A rotina referida, não utiliza parâmetros para "carregar os registros" então sempre deverá "mostrar" todos
por Reinaldo
Ter Set 01, 2020 3:24 pm
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Altere o filtro Carbono conforme abaixo 'pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp 'Carbono Dim decCarbIni As Currency, decCarbFim As Currency If Me.txtCarbIni.Text <> "" Then decCarbIni = Format(Me.txtCarbIni.Text, "##.00") Else decCarbIni = 0# End If If Me.txtCarbFin.Text <> "" ...
por Reinaldo
Ter Set 01, 2020 9:04 am
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Muito provavelmente a coluna/dados existentes são considerados como texto, o que justifica retornar 52 depois de 5 e antes do 6.
Experimentou utilizar o mesmo conceito aplicado ao firtro do Carbono (Carbini/CarbFim)?
por Reinaldo
Qui Ago 20, 2020 11:54 am
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Não sei se ainda necessita,mas segue alterações no modo filtro, inclusive para o Carbono Alterei do modo que julgue/entendi. É possível entre datas ou apenas acima/igual de uma data inicial ou abaixo/igual de uma data final Um ou mais produto/mes/ano/categoria..... Carbono, entre valores ou maior/ig...
por Reinaldo
Seg Ago 10, 2020 10:52 am
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Para isso a sintaxe pode ser semelhante a utilizada para sqlwheredata, porem e preciso que saibamos a dinamica a ser utilizada, qual/quais filtros, sozinhos ou combinados, somente um valor por campo ou combinacao de valores....
por Reinaldo
Sex Ago 07, 2020 1:42 am
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Como disse, dependendo do que espera/deseja a rotina deve ser revisada/reconstruida. Porem a Sub "MontaClausulaWhereData" deve ser utilizada apenas para campo tipo Data, onde normalmente e um valor inteiro; veja o formato efetuado na rotina (mm/dd/yyyy). Pelo que pude notar o campo "C_Enc" (da terce...
por Reinaldo
Qui Ago 06, 2020 5:09 pm
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

A priori creio que o erro é gerado pela chamada consecutiva da rotina "" pela function "PreecheRecordSetData" 'Data Inicial e Final Call MontaClausulaWhereData(Me.txtDataIni.Name, "Dtlanc", sqlWhere) Call MontaClausulaWhereData(Me.txtDataFin.Name, "Dtlanc", sqlWhere) Call MontaClausulaWhereData(Me.t...
por Reinaldo
Qui Ago 06, 2020 4:54 pm
Fórum: VBA Básico
Tópico: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula
Respostas: 16
Exibições: 11706

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

A priori creio que o erro é gerado pela chamada consecutiva da rotina "" pela function "PreecheRecordSetData" 'Data Inicial e Final Call MontaClausulaWhereData(Me.txtDataIni.Name, "Dtlanc", sqlWhere) Call MontaClausulaWhereData(Me.txtDataFin.Name, "Dtlanc", sqlWhere) Call MontaClausulaWhereData(Me.t...