Probleme d'enregistrement dans la base

cs_teddy_bear Messages postés 34 Date d'inscription vendredi 30 juillet 2004 Statut Membre Dernière intervention 1 octobre 2005 - 12 sept. 2005 à 00:25
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 12 sept. 2005 à 16:03
salut tout le monde



je travail vec DAO, je veux enregistrer des données dans une table et
utiliser le numeroauto de l'enregistrement que je viens d'enregistrer
pour l'enregistrer dans une autre table.



voici le code pour mieu comprendre:

If Not test Then t.AddNew Else t.Edit

t!adresse = txtadr

t!tel = txttel

t!nom = txtnom

t!prenom = txtpren

t!cin = txtcin

t!date_naiss = txtdate

t!date_emploi = txtdate_emp



t.Update

str = cmbtitre

str = "'" + cmbtitre + "'"

req "select * from titres where titre" + str

Set temp1 = bd.OpenRecordset(req, dbOpenDynaset)

num = t1!num_titre



req = "select * from emptitre"

Set temp1 = bd.OpenRecordset(req, dbOpenDynaset)

If Not test Then temp1.AddNew Else temp1.Edit

temp1!num_personnel = t!num_personnel

temp1!num_titre = num

temp1.Update



End If

End If


merci

1 réponse

tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
12 sept. 2005 à 16:03
Pour récupérer le dernier enregistrement

Utilise la fonction MAX en SQL, max récupère le plus grand nombre

Si tu fais max sur les n° auto il te prendra forcément le dernier

il ne te restera plus qu'à l'insérer dans ton autre table.

TBBUIM
0
Rejoignez-nous