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,

+

[popofpopof]

j'ai un message erreur sur Dim OK as int

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
Private Sub date_Click()
 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
 
End Sub

et dis moi c ou que l'on rentre la date de la nouvelle reunion??
je te m'ai ma base

[mathieu44800]

Bonjour,

Essayes :

Code :

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

1
2
3
 
 
Dim OK As Integer

Et mets : TonForm.TonChamp.Value à la place de taDate dans l'INSERT INTO

Bon Courage

[Alexandre Sahli]

bonjour,

tu peux aussi avec une seule requête mettre rajouter tes "lignes"

Code :

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

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

en traduisant en vba:

Code :

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

1
2
3
4
5
 
docmd.runsql =" INSERT INTO SUIVI_MODIFCATION_TRAVAUX ( NUM_LOGE, NUM_OPERATION, DATE_REUNION )
SELECT LOGEMENT.NUM_LOGE, LOGEMENT.NUM_OPERATION, #" & [Formulaires]![Suivi des modifications travaux]![DATE_new_reunion] & "# AS expr
FROM LOGEMENT
WHERE (((LOGEMENT.MODIFICATION_FINALISER)<>Yes));"

Ce sera bien plus rapide et plus simple
bonne chance

[popofpopof]

merci bcp sa marche super bien

Code :

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

1
2
3
4
docmd.runsql =" INSERT INTO SUIVI_MODIFCATION_TRAVAUX ( NUM_LOGE, NUM_OPERATION, DATE_REUNION )
SELECT LOGEMENT.NUM_LOGE, LOGEMENT.NUM_OPERATION, #" & [Formulaires]![Suivi des modifications travaux]![DATE_new_reunion] & "# AS expr
FROM LOGEMENT
WHERE (((LOGEMENT.MODIFICATION_FINALISER)<>Yes));"