Tomás Vásquez Fórum

Reinaldo

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?

Reinaldo

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

Reinaldo

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 <> "" ...

Reinaldo

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)?

Reinaldo

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

Reinaldo

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

Reinaldo

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

Reinaldo

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

Reinaldo

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

Reinaldo

Aparentemente nada inconsistente com as linhas apresentada.
Contudo estás pegando carona em um tópico de 2014,o ideal é abrir seu proprio topico anexando mais informações/exemplo do que/como tem vs o que espera/desenja

Pesquisa resultou em 1433 ocorrências

Re: Populando ListView

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

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

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

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

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

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

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

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

Re: VBA interrompendo execução sem apresentar ERRO