Requête SQL sur une base Access, where sur un champ date
Bonjour à tous
J'écris un petit code qui génère les numéros de facture par rapport à la date du jour.
Alors, j'ai créé le code suivant, mais je constate que la requête n'est pas correctement exécutée pck'à tous les coups il ne trouve pas d'enregistrements et me retourne le N° 1 :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
procedure Tform_vente.req_fact_enteteBeforePost(DataSet: TDataSet);
var
date_fact : string;
begin
if req_fact_entete.FieldByName('date_facture').AsString <> '' then begin
date_fact := req_fact_entete.FieldByName('date_facture').AsString;
req_gen_num_fact.SQL.Clear;
req_gen_num_fact.SQL.Add('SELECT Count(*) + 1 AS num_fact FROM t_facture_entete WHERE (((t_facture_entete.date_facture)=#'+ date_fact+'#));');
req_gen_num_fact.Close;
req_gen_num_fact.Open;
req_fact_entete.FieldByName('num_facture').AsString := date_fact + '-' + req_gen_num_fact.FieldByName('num_fact').AsString;
end;
end; |
