Bonjour,
J'ai consulté ce très bon guide
http://warin.developpez.com/access/d...artie_5#L5.4.2
mais je voudrais être sûr de moi
J'ai un formulaire contenant les données suivantes: matricule_etatcivil (champ hérité d'une table Etatcivil), NomChantier (champ zone de texte libre) et Texte47 (champ zone de texte libre)
Lorsque mon formulaire est rempli, je clique sur un bouton Commande 21 et je voudrais qu'à ce clique, ces données se répartissent dans une table Affectation.
J'ai écrit le code suivant mais sans certitude alors je consulte la communauté.
Private Sub Commande21_Click()
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=oDb.OpenRecordset("Affectation", dbOpenTable)
'Aller au premier enregistrement vide
oRst.MoveLast
oRst.MoveNext
'Assigner les valeurs
oRst.Fields("chantier_affectation").value=Me!Nomchantier
oRst.Fields("matricule_affectation").value=Me!matricule_etatcivil
oRst.Fields("date_affectation").value=Me!Texte47
'Libération des objets
oRst.Close
oDb.Close
Set Rst=Nothing
SetoDb=Nothing
EndSub
De plus, je voudrais que dans la table Etatcivil, pour la valeur matricule_etatcivil actuelle au moment du clic, Derniereaffectation_etatcivil soit égale à Nomchantier.
Si vous pouviez m'éclairer, j'apprécierais grandement. J'ai presque fini mon projet de base de données et il me manque juste cela à finaliser avant de passer à la phase de test finale avant validation
Partager