Discussion :

[popofpopof]

bonjour

je souhaiterai a partir d'un formulaire rentre dans une zon de texte une date et que cette date s'ajoute a tout les logements qui ne sont pas finalisé.

voila le sql de la requete normale

Code SQL :

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

1
2
3
SELECT SUIVI_MODIFCATION_TRAVAUX.DATE_REUNION, SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE, SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION, LOGEMENT.MODIFICATION_FINALISER
FROM LOGEMENT INNER JOIN SUIVI_MODIFCATION_TRAVAUX ON (LOGEMENT.NUM_OPERATION = SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION) AND (LOGEMENT.NUM_LOGE = SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE)
WHERE (((LOGEMENT.MODIFICATION_FINALISER)<>Yes));

j'ai essai de faire une requete d'ajout mais sa marche pas j'avai fait sa :

Code SQL :

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

1
2
3
4
INSERT INTO SUIVI_MODIFCATION_TRAVAUX ( DATE_REUNION, NUM_LOGE, NUM_OPERATION )
SELECT SUIVI_MODIFCATION_TRAVAUX.DATE_REUNION, SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE, SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION
FROM LOGEMENT INNER JOIN SUIVI_MODIFCATION_TRAVAUX ON (LOGEMENT.NUM_OPERATION = SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION) AND (LOGEMENT.NUM_LOGE = SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE)
WHERE (((SUIVI_MODIFCATION_TRAVAUX.DATE_REUNION)=[Formulaires]![Suivi des modifications travaux]![DATE_new_reunion]) AND ((LOGEMENT.MODIFICATION_FINALISER)<>Yes));

Il faut savoir que la table SUIVI_MODIFCATION_TRAVAUX à 3 clé primaire DATE_REUNION, NUM_LOGE,NUM_OPERATION

qui peux m'aide??

[mathieu44800]

Bonjour,

Tu veux ajouter à des lignes déjà présentes dans la base une date ou tu veux créer des lignes ?

[popofpopof]

Bonjour,

Tu veux ajouter à des lignes déjà présentes dans la base une date ou tu veux créer des lignes ?

je souhaite crée des nouvelles lignes avec une date que l'on choisiera et le N° de l'operation, n° logement qui on pour condition pas encore finalisé

tu sais comment faire?

[mathieu44800]

RE,

Il faudrait faire un query du style :

Code sql :

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

1
2
3
SELECT SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE, SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION, 
FROM LOGEMENT INNER JOIN SUIVI_MODIFCATION_TRAVAUX ON (LOGEMENT.NUM_OPERATION = SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION) AND (LOGEMENT.NUM_LOGE = SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE)
WHERE (((LOGEMENT.MODIFICATION_FINALISER) <> Yes));

Pour récupérer dans un recordset les valeurs à inserer.

Et tant que Not Recordset.EOF
- ouvrir autre recordset
- query = "INSERT INTO SUIVI_MODIFCATION_TRAVAUX ( DATE_REUNION, NUM_LOGE, NUM_OPERATION ) VALUES ('"& taDate & "', " & REcordset.fields(0).value & ", " & recordset.fields(1).value & ")"
- Executer la query
- Vérifier que le nombre d'enregistrements crée est bien égal à ce que tu as selectionné
Fin tant que

Voila, c'est comme ça que je ferais.


Pour finir, insérer dans ta table

[popofpopof]

salut
merci pour ta reponse mais je suis débutant et je ne comprend rien tu peux m'explique avec plus de détail j'ai joint un morceau de la base.

aide moi stp

[mathieu44800]

Re,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Dim db As Database
    Set db = CurrentDb
    Dim Record As Recordset
    Dim Record1 As Recordset
    Dim valeur as Long
    Set Record = db.OpenRecordset ("SELECT SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE, SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION, 
FROM LOGEMENT INNER JOIN SUIVI_MODIFCATION_TRAVAUX ON (LOGEMENT.NUM_OPERATION = SUIVI_MODIFCATION_TRAVAUX.NUM_OPERATION) AND (LOGEMENT.NUM_LOGE = SUIVI_MODIFCATION_TRAVAUX.NUM_LOGE)
WHERE (((LOGEMENT.MODIFICATION_FINALISER) <> Yes));")
    Dim OK as int
    While Not Record.EOF
        Set Record = db.OpenRecordset("INSERT INTO SUIVI_MODIFCATION_TRAVAUX ( DATE_REUNION, NUM_LOGE, NUM_OPERATION ) VALUES ('"& taDate & "', " & REcordset.fields(0).value & ", " & recordset.fields(1).value & ")") ' 
        If(Record.RecordCount = 1) Then
              OK = 1
        End If
        Record.MoveNext
    Wend
    If (OK = 1) Then
        MsgBox "Affecte !" 
    End If

Le code sera peut etre a adapter...

Bon courage,

+