Alexandre Neves

Para carregar ficheiros: www.esnips.com

Quer o resultado como? Abre um formulário? clica num botão? ...?

Tente assim: Dim Rst as DAO.Recordset set rst=currentdb.openrecordset("select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX) if rst.recordcount>0 then Form_EXEMPLO.RecordSource = "select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX set rst=nothing

Só fiz a correcção do que estava mal, pressupondo que os campos estariam certos. O pressuposto, pelo código indicado, será: Tabela: Pagamentos Campos: Num pagam, Num venda (tipo número), Cod produto, Valor pago, Data pagamento Observação: Nomeie os campos sem espaços

Veja, deverá ser: SELECT [Num pagam], [Num venda], [Cod produto],[Valor pago],[Data pagamento] FROM Pagamentos WHERE [Num venda] = 1 ;

Tente assim: 1 - Tem o seu relatório 2 - Crie outro relatório que tenha 2 sub-relatórios que com origem no relatório original

Só agora vi a mensagem pessoal que me enviou. Não deve tirar dúvidas por mensagem pessoal! Sobre a dúvida: Suponha que tem a tabela NotasAlunos com os campos CodAluno,Bimestre1, Bimestre2,Bimestre3 e Bimestre4 Para apurar a média arredondada SELECT CodAluno, ArrMedia((Bimestre1+Bimestre2+Bimestre3+Bimestre4)/4) as MediaArredondada FROM NotasAlunos;

A sua questão está algo confusa mas penso que é isto que pretende: SELECT * FROM tbCad WHERE (tipoCad='S' and idMaster=1) or idMaster=117;

Não foi esse ficheiro que lhe apresentei. Veja este último www.esnips.com/doc/28febcee-3565-4413-b961-76f611bb4cb3/soletrando-(1)

Veja agora www.esnips.com/doc/f44310ab-c8d3-4f09-b3f1-c9a4442f1cbe/soletrando - Os nomes dos campos não devem conter espaços nem caracteres especiais - Os nomes dos controlos não devem ser confundidos com nomes de campos. Devem começar por uma abreviatura que sugira o tipo de controlo. Por exemplo, TxtNome indica que é uma caixa de texto que armazena o nome, RtlMorada indica que é um rótulo que mostra a morada, CxcDataInicial indica que é uma caixa de combinação que contém a data inicial, CmdFechar indica que é um botão de comando que fecha o formulário, etc

Apesar da questão não estar muito perceptível, não deve excluir nenhum registo quando ficar paga a parcela, antes, deve acrescentar a data de pagamento para futuro histórico do cliente/processo

Uitlize esta função que lhe criei. Não a testei mas deve estar certa Function ArrMedia(Valor As Double) As Double 'Código criado em 07-10-2009 'por Alexandre Neves 'para HFagundes 'do fórum ScriptBrasil 'se o valor for até 0,2 arredonda para baixo 'maior que 0,2 e até 0,7 arredonda para 0,5 'maior que 0,7 arredonda para o inteiro seguinte If Valor Mod 1 <= 0.2 Then ArrMedia = Abs(Valor) ElseIf Valor Mod 1 <= 0.7 Then ArrMedia = Abs(Valor) + 0.5 Else ArrMedia = Abs(Valor) + 1 End If End Function

Não carrego a bd porque tem informações que são da empresa mas veja a figura dum formulário com vários filtros e uma caixa de listagem:

Eu utilizo caixas de listagem. Para as preencher, tenho caixas de texto ou caixas de combinação para introduzir parâmetros que funcionam como valores de filtro. Para alterar determinado registo, tenho código na caixa de listagem ao fazer duplo clique.

Se fosse sub-formulário não sei mas seria mais ou menos isto: Rótulo1.Caption=NomeForm!NomeSubForm.RecordsetClone.recordCount? Vejo tanta gente a trabalhar com sub-formulários por tudo e por nada e eu apenas utilizo quase não utilizo sub-formulários.

Coloque um rótulo no formulário e denomine-o de Rótulo1. Coloque o código seguinte: Private Sub limpar_Click() txt_nome.SetFocus txt_nome = Null lst_nomes.Requery Rótulo1.Caption = "Registos apresentados: " & lst_nomes.ListCount - 1 End Sub Private Sub txt_nome_AfterUpdate() lst_nomes.Requery Rótulo1.Caption = "Registos apresentados: " & lst_nomes.ListCount - 1 End Sub Para melhor compreensão e não confundir o Access deve denominar os controlos de forma a não serem confundidos com nomes de campos e de forma a facilitar o seu reconhecimento: CxcNome - Caixa de combinação que mostra o nome TxtNome - Caixa de texto que mostra o nome RtlNome - Rótulo que mostra o nome LstNomes - Caixa de listagem que mostra os nomes CmdFechar - Botão de comando que fecha o formulário CmdActualizaLista - Botão de comando que actualiza lista ... Se chamar Morada à caixa de texto que armazena a morada, quando quiser avaliar ou alterar as propriedades do controlo, o Access não sabe se está a referir ao controlo ou ao campo!

Publique a sua bd, por exemplo, em www.esnips.com e indique o endereço.

Utilize o método ListCount

Crie uma tabela Metas com código do funcionário e data da meta. Para avaliar as metas utilize a função DCount. Crie uma Tabela MetasAtingidas com código do funcionário e data da meta atingida. Para saber as metas ainda não contabilizadas utilize DCount da tabela Metas - DCount da tabela MetasAtingidas x10

Flecha, Veja este exemplo. Abra o relatório. http://www.esnips.com/doc/af06d0c3-23ab-48...5ab8b032/MsgCxc

Private Sub TxtDiasmais_Exit(Cancel As Integer) TxtPRAZO = DateAdd("d", TxtDiasMais, TxtPrazo) End Sub

Em www.esnips.com, por exemplo.

O cálculo será feito em instrução SQL (consulta de referência cruzada) mas não lhe apresenta total geral. Para isso terá de preencher uma tabela e, a partir desta, carregar o relatório. Para o ajudar em concrecto, terá de indicar tabela com valores, etc. Carregue a bd, no esnips por exemplo, mesmo com dados fictícios para se tentar ajudar.

SELECT * FROM Tabela WHERE Hour(HoraAtend)=16;

Veja se é isto e adapte http://www.esnips.com/doc/b70ef879-c7f5-43...ário-com-filtro