Pb de RecordSet : 2 Tables / 1 FormulaireRésolu

Question

Bonjour,


J'ai un petit probl&#232;me sous Access, j'ai fait un formulaire qui enregistre les champs dans une table nomm&#233;e INTERV donc dans chaque champ, je met INTERV comme source contr&#244;le dans les propri&#233;t&#233;s pour l'enregistrement. 
Seulement j'ai un menu d&#233;roulant qui part chercher des chiffres dans une autre table INVENTAIRE et je veux remplir certains champs automatiquement en fonction du chiffre depuis la table INVENTAIRE. En fait, j'ai plusieurs champs identiques entre les 2 tables nomm&#233;s pareils. 
Donc j'ai fait le code suivant

Private Sub Modifiable247_Click()   'modifiable 247 c'est le nom de mon menu d&#233;roulant, je veux que lorsque je click sur un nombre dedans (correspond a un numero d'&#233;quipement de la table INVENTAIRE), &#231;&#224; remplisse les autres champs de mon fomulaire (donc requete a la table INVENTAIRE pour remplir les champs)


If Not Modifiable247 = "" Then 'si le champ n'est pas vide, c'est a dire, un numero d'&#233;quipement a &#233;t&#233; choisi
    
champ6.Value = Modifiable247.Value  '&#231;&#224;, pa important 


Dim SQL As String
Dim SQL2 As String


SQL2 SQL2 + " WHERE (numero_equipement '" & (Modifiable247.Value) & "') "


Set db = CurrentDb
'alors on va afficher automatiquement les champs numero serie, marque, type modele, designation
'UF et numero UF depuis la table INVENTAIRE
'--------------------------------------
SQL = "SELECT numero_serie FROM INVENTAIRE"
SQL = SQL + SQL2


Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
champ0.Value = rs.Fields(0) 

il plante sur le Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
type de donnees incompatible dans l'expression du crit&#232;re
et je repete pour tous les autres champs ensuite SQL = "SELECT marque, type_modele, designation, UF, numero_UF FROM INVENTAIRE" ....
Je ne vois pas pourquoi cela ne marche pas, les champs numero_equipement, marque, type_modele, designation, UF, numero_UF sont communs au deux table et je les ai li&#233;s dans les relations
Il faut savoir aussi que dans les propri&#233;t&#233;s de mon formulaire j'ai mi INTERV en source car c'est dans cette table qu'y figureront les donn&#233;es apres enregistrement.

Merci de votre aide pour m'&#233;clairer. Si vous avez des questions sur des choses que vous n'avez pas compris n'h&#233;sitez pas.

asecher · Accepted Answer

D&#233;ja vu sur ce forum (hier il me semble).
Faudrait voir &#224; chercher un peu (voir r&#232;glement du forum)

Si numero_equipement est num&#233;rique (entier), enl&#232;ve les simples apostrophes autour de & (Modifiable247.Value) &

Soit :

SQL2 = SQL2 + " WHERE (numero_equipement=" & (Modifiable247.Value) & ") "

A+

Alain 31

cs_gothar12 · Answer

Non &#231;&#224; n'est pas &#231;&#224;, quand je met un point d'arret dans ma requete SQL il prend bien le nombre il met pas exempleSQL SELECT numero_serie FROM INVENTAIRE WHERE (numero_equipement '343') "

C'est sur cette ligne la : Set rs = db.OpenRecordset(SQL, dbOpenDynaset)  que &#231;&#224; plante !

cs_gothar12 · Answer

Effectivement il s'agissait de cela, merci beaucoup

Pb de RecordSet : 2 Tables / 1 Formulaire

3 réponses

Discussions similaires