Discussion :

[Dany97]

Bonjour à tous,

Voilà, je voudrais pouvoir stocker la valeur reporter par SSQL3 pour la réutiliser dans SSQL4. Le Modifiable22 est une valeur issue d'une liste déroulante contenant une chaîne de caractère.
Je voudrais donc récupérer la valeur de la requête SSQL3 (par ex : 1577) pour pouvoir l'utiliser dans la 4ème requête.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Commande9_Click()
 
Dim rst As DAO.Recordset
Dim SSQL As String
Dim SSQL2 As String
Dim SSQL4 As String
Dim SSQL3 As String
 
Dim qdfTmp As QueryDef
Dim strText As String
 
 
 
SSQL = "UPDATE POSTE " & _
            "SET POSTE.OccP =  False " & _
            "WHERE POSTE.CodifP = '" & Me.Modifiable22 & "';"
 
SSQL2 = "UPDATE POSTE " & _
            "SET POSTE.NumN = Null " & _
            "WHERE POSTE.CodifP = '" & Me.Modifiable22 & "';"
SSQL3 = "SELECT POSTE.NumN " & _
        "FROM POSTE " & _
        "WHERE POSTE.CodifP = '" & Me.Modifiable22 & "';"
 
Set qdfTmp = CurrentDb.QueryDefs(SSQL3)
strText = qdfTmp.sql
 
 
 
 
 
SSQL4 = "UPDATE EMPLOI " & _
        "SET EMPLOI.OccE = False " & _
        "WHERE EMPLOI.NumN= strText ;"

Merci d'avance

[hyperion13]

Salut,
Et comme ça ?

Code :

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

1
2
3
SSQL4 = "UPDATE EMPLOI " & _
"SET EMPLOI.OccE = False " & _
"WHERE EMPLOI.NumN in (SELECT POSTE.NumN FROM POSTE WHERE POSTE.CodifP = '" & Me.Modifiable22 & "');"

[tee_grandbois]

bonjour,
il faut remplacer ce code:

Code :

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

1
2
3
4
5
6
SSQL3 = "SELECT POSTE.NumN " & _
"FROM POSTE " & _
"WHERE POSTE.CodifP = '" & Me.Modifiable22 & "';"
 
Set qdfTmp = CurrentDb.QueryDefs(SSQL3)
strText = qdfTmp.sql

par:

Code :

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

strText = Dlookup("NumN","POSTE","Codifp='" & Me.Modifiable22 & "'")

et écrire le SSQL4 comme cela:

Code :

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

SSQL4 = "UPDATE EMPLOI SET OccE = False WHERE NumN=" & strText &";"

si NumN est numérique, il vaut mieux déclarer strText du même type.

[tee_grandbois]

salut hyperion13,

Salut,
Et comme ça ?

Code :

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

1
2
3
SSQL4 = "UPDATE EMPLOI " & _
"SET EMPLOI.OccE = False " & _
"WHERE EMPLOI.NumN in (SELECT POSTE.NumN FROM POSTE WHERE POSTE.CodifP = '" & Me.Modifiable22 & "');"

Code :

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

WHERE NumN = (SELECT Numn ...)

fonctionne également

[hyperion13]

Re tee_grandbois,
tous les chemins mènent à Rome