aide

Bonjour,

la forme des tables comme suit (bases de données) :

Tagent =

  Tagent.cagent, Tagent.nom, Tagent.prenom,;

  Tagent.prepere, Tagent.nompremere, Tagent.adresse, Tagent.date_nai,;

  Tagent.lieu_nai, Tagent.cnational, Tagent.tel, Tagent.csf, Tagent.csm,;

  Tagent.nss, Tagent.ncb, Tagent.cresid, Tagent.nmut, Tagent.daterec,;

  Tagent.dateconf, Tagent.datedep, Tagent.nbraserv, Tagent.csexe,;

  Tagent.cfonction, Tagent.datefonct, Tagent.nbrjv, Tagent.nbrenfant,;

  Tagent.cservice, Tagent.cetat, Tagent.ctype, Tagent.ccategf,;

  Tagent.ccatego, Tagent.cechelon, Tagent.nvisacf, Tagent.dvisa,;

  Tagent.cdiplome, Tagent.dopteche, Tagent.dnouveche, Tagent.etatpaie,;

  Tagent.cbanque, Tagent.ccorp, Tagent.cgrade, Tagent.photo, Tagent.hiver(vacance),;

  Tagent.printemp, Tagent.ete, Tagent.mal, Tagent.mar, Tagent.mat, Tagent.cir,;

  Tagent.dece, Tagent.hiverp, Tagent.printempp, Tagent.etep, Tagent.malp,;

  Tagent.marp, Tagent.matp, Tagent.cirp, Tagent.decep, Tagent.hiverrest,;

  Tagent.printemprest, Tagent.eterest, Tagent.malrest, Tagent.marrest,;

  Tagent.matrest, Tagent.cirrest, Tagent.decerest;

*-*

  Tconge =

   Tconge.cagent, Tconge.cnconge, Tconge.nom,;

  Tconge.prenom, Tconge.prepere, Tconge.nompremere, Tconge.fonction,;

  Tconge.grade, Tconge.ndem, Tconge.datedem, Tconge.nbrjours, Tconge.total,;

  Tconge.datedebut, Tconge.datefin, Tconge.prend, Tconge.reste;

*-*

Tnconge =

 Tnconge.cnconge, Tnconge.lnconge;

j'ai un combobox contient (Tagent.cagent  rowsourcetype = 6 rowsource = Tagent.cagent)

lostfocus de combobox  le code est :

SELECT Tconge

APPEND BLANK

thisform .OBJET25. enabled = .T.  ( combobox = Tnconge.lnconge,cnconge))

thisform . refresh ()

dans le lostfocus de objet25 le code est

thisform .OBJET26. enabled = .T. ( textbox contient le Tconge.ndem)

et enfin aprés la fin de saisie j'ai un commandbutton qui contient le code dans On click :

SELECT  Tconge

GO BOTTOM

IF thisform .OBJET25. value = "hiver"

SELECT Tagent

replace  Tconge.cagent      WITH  Tagent.cagent  

replace Tconge.nom   WITH  thisform .text1. value        text1 = Tagent.nom        

replace Tconge.prenom   WITH  thisform .text2. value     text2 = Tagent.prenom

****

A  = Tagent.hiverp  + Thisform .OBJET29(nbrjours). Value

replace Tagent.hiverp WITH A

C = Tagent.hiver - Tagent.hiverp (hiver prend)

replace Tagent.hiverrest with C

Thisform .objet3. Value = C

replace Tconge.total     with  Thisform .objet1. Value                     objet1= Tagent.hiver

replace Tconge.prend    with Thisform .objet2. Value                       objet2 = Tagent.hiverp

replace Tconge.reste    with  Thisform .objet3. Value                         objet3 = Tagent.hiverrest

replace Tconge.cnconge with thisform .OBJET25. value                          objet25 = typeconge,hiver,ete,...

replace Tconge.ndem   with thisform .OBJET26. value                                    objet26 = no demande

replace Tconge.datedem with thisform .OBJET27. value

replace Tconge.datedebut     with thisform .OBJET28. value

replace Tconge.nbrjours with thisform .OBJET29. value

replace Tconge.datefin with thisform .OBJET30. value

ELSE 

thisform . refresh ()

ceci est une partie puisqu 'il y a plusieurs type de conge

Monsieur Michel voila a peut  prés le problème

j'attend ton aide pour me guidera a résoudre ce problème.

Merci   

Bonjour,
Monsieur pour etre bien me comprend Je t'envoi un petit projet  (Formulaire,Table) ....
et Merci pour tout

Bonjour,
Je m'excuse monsieur
j'ai utilisé Visual Foxpro 9. une base de donnée nomé Personnel, les tables sont ouvertes on mode exclusife.
Monsieur est ce que le problème consiste dans la Table conge et exactement dans le code_ agent c-a-d j'utilise un code-conge au lieu d'utilisé le code-agent 
et comment je fait le racord avec les deux tables.
Monsieur Merci baucoup pour votre suivi