Fórum Ajuda com requery e querys #203939

Ser AutoDidata e cruel.

Amigos estou fazendo o seguinte Insert em minha tabela Acess com conecção ADO.

No evento click do botao tenho os codigos abaixo.


CODIGO DO CLICK DO BOTAO.

procedure TFrmCupom.ButtonConfirmaClick(Sender: TObject);
begin
if MessageDlg(´Confirmar Cupom?´,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.Add(´Insert into TabValeCompras(matricula,nome,codigovale,nomedovale,valor)values(:matricula,:nome,:codigovale,:nomedovale,:valor)´);
ADOQueryCupom.Parameters.ParamByName(´matricula´).value := DBE1Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´nome´).value := DBE2Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´codigovale´).value := DBEdit1CupomVale.Text;
ADOQueryCupom.Parameters.ParamByName(´nomedovale´).value := DBEdit1CupomValeDesc.Text;
ADOQueryCupom.Parameters.ParamByName(´valor´).value := Edit3CupomValor.Text;
ADOQueryCupom.ExecSQL;
end;
begin
begin
ADOQueryMAX.close;
ADOQueryMAX.open;
Label10.caption := inttostr(ADOQueryMAX.fieldbyname(´maiorcodigo´).asinteger + 1);
end;
DBE1Cupom.clear;
DBE2Cupom.clear;
DBEdit1CupomVale.Clear;
DBEdit1CupomValeDesc.Clear;
Edit3CupomValor.Clear;
Edit1.clear;
edit2.clear;
Edit1.SetFocus;
ButtonConfirma.Enabled := false;
FrmImpreCupom.QuickRep1.Preview; //AQUI CHAMO O MEU QUICK REPORT
end;
end;

NO MEU QUICK REPORT TENHO MAIS UM ADOQUERY QUE DA UM SELECT NA TABELA TABVALECOMPRAS DE CIMA
E NO MEU FORM CREATE DO FORM DO QUICK REPORT TENHO O SEGUINTE CODIGO.

ADOQueryImpressao.close;
ADOQueryImpressao.open;
ADOQueryImpressao.Last;

OU SEJA QUANDO EU DER O CLICK ELA DA O INSERT NA TABELA O ADOQUERYMAX ME MOSTRA O CODIGO QUE
VAI FICAR SO PRA EFEITO DE FRESCURA.
DEPOIS CHAMA O QUICKREPORT COM PREVIEW. SO QUE ELE SO ME MOSTRA O ANTERIOR, POR EXEMPLO SE
ESTOU INSERINDO O CODIGO 100 ELE ME MOSTRA NO PREVIEW DO QUICKREPORT O 99, ELE SO MOSTRA
O 100 SE EU SAIR DO PROGRAMA E ENTRAR NOVAMENTE, JA TENTEI REFRESH NA QUERY JA TENTEI REQUERY
QUANDO NAO DA A MENSAGEM DE ARQUIVO FECHADO ELE DA ERRO de o provedor nao oferece
suporte para retornar varios conjuntos de registros.