Sandrelle

Obrigada, sua resposta me ajudou muito... ^_^

Oi Bom Dia a todos... Meu Sandrelle, e estou com probleminhas em algumas planinhas no Excel, onde o titulo(ou parte de cima) da primeira esta se repetindo em todas as folhas seguintes. Porém, só fica assim quando vou visualizar a impressão ou mesmo imprimir. Quando eu apago na primeira, some de todas. O Título não está definido em cabeçalho, na planinha nem definir cabeçalho... Preciso imprimir esses planilhas e elas são enormes, para ter que fazer tudo de novo. Desde já obrigada!

Obrigada pela ajuda e paciência! ;) Vou ler mais! Tópico fechado! Resolvido, pode fechar!

Select Count(<numparcela>) as QtdParcelas From parcelas Where <codduplicata> = :codduplicata Não acertei fazer o "select count ", não entendi muito bem... :wacko: Mas, lendo aquele exemplo no post que me mandaste, me ajudou bastante... ^_^ Eu fiz um "select inner join" nas minhas tabelas "duplicata e parcelas", e estou pegando o resultado do "recordcount" do adoquery... para fazer a minha validação! será que irá da algum erro?? Obrigada pela paciência! :D Sandrelle!

Oi Boa Tarde... Sim, a minha "tabela duplicata", armazena quantidade de parcelas... e tem a "tabela parcela" também, onde vai ficar parcela por parcela.... se na tabela "duplicata" a quantidade de parcelas é cinco, so posso deixar cadastrar na tabela "parcela", cinco parcelas.... poderias me dar um exemplo... ^_^

Bom Dia ... Eu vou comparar uma informação dada pelo usuário! Vou tentar explicar, espero que me entenda... "Quando se cadastra uma duplicata, se informa quantas parcelas ela vai ter.... (no máximo 6), quando vai cadastrar a parcela é cadastra qual parcela vai pagar, so que nem sempre a duplicta tem as 6 parcelas... ai eu tava querendo essa informação, puxar da tabela quantas parcelas foram cadastradas e fazer a comparação pra saber se não ta cadastrando mais do que o devido... (essa parte eu consegui...) agora preciso evitar que sejam cadastrados valores repetidos.... " ^_^

Mais ou menos, foi apenas uma materia em um curso, mais já terminou... e estou exercitando... ou tentando! :unsure: Não é bem igual a esse post, eu quero fazer so uma comparação... ^_^ Mas me ajudou bastante... tinha o que eu queria: A linha ... Valor := Valor + QBase.FieldbyName('Valor').value; Era basicamente isso que eu precisava... so que mudei mais ou menos assim.... p := AdoQuery1.FieldbyName('quant_parcelas').value; Agora preciso fazer a comparação usando 'p' ... Muito Obrigada pela ajuda! Ainda preciso ler mais, tenho muito a aprender... a cada descoberta e acerto me animo mais... mesmo ainda não sabendo muito ... gosto bastante dessa area de programação! :wub:

Olá Micheus Acho que me expressei mal, quando disse "me ensinar", eu queria uma ajuda... :blush: Em relação aos fields, é definido quando se tem um DBedit, dbtext, certo?? Ai se tem acesso direto no registro, aos dados... Na verdade eu queria sim, que em tempo de execusão, uma variavél, recebesse o valor de um campo do banco... Porque é assim, a minha intenção é: Bem, eu não conheço todos os componentes do Adoquery... Essa função que o Sr. citou, seria o Parameters ? (que são os parametros?); Desculpe a minha falta de jeito.... Obrigada!

Bom Dia... Alguém poderia me ensinar, como faço para uma variável, receber o valor de um campo de uma tabela, do banco de dados. Preciso fazer uma validação... Mas preciso que essa variável receba o valor do banco para comparação! Estou usando mysql e delphi 2010... AdoQuery e datasource! Obrigada!

Oi Kuroi Desculpa não responder, não tinha visto seu post, da ultima vez que visitei esse tópico, não havia novidades.... No momento estou sem vb, mais preciso muito resolver essa situação... se puder me ajudar eu agradeço, como citei acima não conheço muito de vb... Assim que consegui o vb, vou fazer o teste. Obrigada pela atenção!

Bom Dia... Oi primeira vez aqui... gostaria de ajuda em VBA no Access - Iniciante. Eu crei um formulario, baseado em uma tabela, nessa tabela 5 campos são para receber quantidades e 1 o total. No formulario criei um botão onde no evento on-click - gostaria de por a formula ou codigo para somar; eu fiz aquela soma bem básica ----> total = (q1+q2+ ...q5); so que so funciona quando estão todos preenchidos e nem sempre eles todos estarão assim. As vezes so 2 ou 3 estarão preenchidos! Agradeço desde já... Obrigada! San e Cisso! ^_^

Bom Dia... Oi primeira vez aqui... gostaria de ajuda em VBA no Access - Iniciante. Eu crei um formulario, baseado em uma tabela, nessa tabela 5 campos são para receber quantidades e 1 o total. No formulario criei um botão onde no evento on-click - gostaria de por a formula ou codigo para somar; eu fiz aquela soma bem básica ----> total = (q1+q2+ ...q5); so que so funciona quando estão todos preenchidos e nem sempre eles todos estarão assim. As vezes so 2 ou 3 estarão assim.... Agradeço desde já... Obrigada! San e Cisso! ^_^ Desculpa na pressa postei aqui no de VB, não sei como mudar para o de VBA. :blush:

Oi Bom dia! Fiz uma pesquisa no forum, encontrei muito assunto sobre qreport, so que bem mais avançados. Gostei muito, so que não encontrei a resposta pra minha duvida, que eu acredito ser bem simples, é o primeiro relatório que faço.... Montei o relatorio, conectei, so que da minha tabela, so ta aprecendo o primeiro registro, gostaria de saber como faço para aparecer todos, não sei se errei a definição da band... Gostaria de uma ajudinha... Estou usando o Delphi 7! Obrigada.

Oi Bom Dia! ;) Em relação ao acentos nas palavras, as palavras já estavam assim, Como lhe disse esse projeto já estava pronto aqui, e pra completar não entendo quase nada de VB. :unsure: É um programa pequeno, Essa é a parte que envia para o Relátorio as informações! Essa parte que você quer >> Option Explicit Public Function RelIndicador(Mês1 As Long, Mês2 As Long, Ano As Long) Dim Adors As New Recordset Dim Total As Integer, Soma As Integer, P1 As Currency, Lbl1 As String Adors.Open "SELECT tb_Pesquisa_de_Satisfação.Mês_Ano, tb_Pesquisa_de_Satisfação.Nome_do_Cliente, " & _ "tb_Pesquisa_de_Satisfação.Total_Nota, Month([Data_da_Pesquisa]) AS Mês, " & _ "Year([Data_da_Pesquisa]) AS Ano, IIf([Total_Nota]>=95,1,0) AS MT " & _ "From tb_Pesquisa_de_Satisfação WHERE (((Month([Data_da_Pesquisa])) Between " & Mês1 & " And " & Mês2 & ") AND ((Year([Data_da_Pesquisa]))=" & Ano & "));", frmPesquisa.AdoReg1.dB, adOpenStatic, adLockOptimistic Total = Adors.RecordCount Do Until Adors.EOF If Adors(5) = "1" Then Soma = Soma + CInt(Adors(5).Value) Adors.MoveNext Loop Adors.MoveFirst P1 = Soma * 100 P1 = P1 / Total Lbl1 = Format(P1, "##,##0.00") & "%" With RelIndicadorPesquisa Set .DataSource = Adors .Sections("Section2").Controls("lblTotal").Caption = Total .Sections("Section2").Controls("lblSoma1").Caption = Soma .Sections("Section2").Controls("lblX").Caption = Lbl1 .Show End With End Function Obrigada!

Oie Danleonhart! Bom Dia... Eu tambem acredito que o necessario seria apenas tiras essas condição! Ei testei como você disse, não deu certo, continua dando o mesmo! Esse aí! Tem como me ajudar, não lembro se citei é VB6 >> Obrigada! ^_^