Alexandre Neves
-
Total de itens
168 -
Registro em
-
Última visita
Posts postados por Alexandre Neves
-
-
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
(Resolvido) Erro de Sintaxe no Select
em Access
Postado
Para carregar ficheiros: www.esnips.com