Discussion :

[lamouche42]

tout d'abord, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmboutil_AfterUpdate()
Dim lngIDoutil  As Long
Dim sql, sqlTT As String
  ''
  If Not IsNumeric(Me!cmboutil) Then Exit Sub
  ''
  lngIDoutil = Me!cmboutil
sql = "INSERT INTO TBLinventaire (IDitem, TTactuel) SELECT TBLtools.IDitem, TBLtools.[Full TT] FROM TBLtools WHERE (((TBLtools.IDitem) Like " & lngIDoutil & "))"
sqlTT = "SELECT TBLtools.IDitem, TBLtools.[Full TT] FROM TBLtools WHERE IDitem =" & lngIDoutil
DoCmd.RunSQL sql
txtTTactuel.ControlSource = sqlTT
 
End Sub

Tout marche à merveille jusqu'a la dernière ligne. il me maque dans la zone de texte : #nom ?
ce n' est qu un test de code car je voudrai au final :
une fois que la valeur cmboutil est connue, afficher quelques données de l' enregistrement cmboutil (table TBLtools), modifier ces dernières sur le formulaire sans qu elles soient modifiées ds la table TBLtools, et enfin copier toutes ces nouvelles valeurs grace à la requete ajout

mon problème principal etant de "copier" une valeur d'un enregistrement ds une zone de texte de formulaire sans qu il y ai de lien entre eux

merci d'avance

[vodiem]

salut lamouche42,

cf DLookup()