Discussion :

[Arttt]

Bonjours, je souhaiterai effectuer une requete qui reprend des champs rentrés dans un formulaire par l'utilisateur pour afficher le resultat dans ce meme formulaire: les champs a reprendre sont:
-un site que l'utilisateur choisit dans le formulaire parmi une liste
-un nombre qu'il rentre lui même dans a un autre endroit


Dans la ligne champ de ma requête, je rentre donc les expressions permettant de reprendre les champs en question du formulaire. Et quand je test la requête elle m'affiche bien un champ ou il y a le site, mais elle m'affiche des petits carrés a la place du nombre contenu dans le deuxième champs

Bug ou mauvaise manip ?

Merci

[bernardmichel]

Bonsoir,

Peux-tu nous montrer le code SQL de ta requête ?

[Arttt]

Code sql :

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

SELECT [Forms]![Space Report]![Location] AS Expr1, [Forms]![Space Report]![Space occupied] AS Expr2;

pour l'instant, y a même pas encore de requête, j'essaye juste de reprendre les champs du formulaire, mais pour "Space occupied" il aime pas...

[Chtulus]

Bonjour,

Certainement à cause de l'espace.

Essai de changer le nom et de remplacer l'espace par '_'

[Arttt]

ca marche dans tout le reste de ma table avec l'espace, j'ai moyennement envie de tout changer maintenant ^^
Si j'y arrive pas comme ca, je le ferai en VBA, mais faut que je familiarise un peu avec le langage d'abord

[Chtulus]

ESt-ce que tu as essayé les doubles [[ et ]] ou en mettant des [" et "]

[Arttt]

Nan, il aime pas avec [[ ]] ou [" "].

Sinon, en VBA si je veux faire une opération qui utilise le résultat d'une requete, comment je l'invoque ? J'ai essayé [Query]![Nom requete]![Nom Champs], ca lui plait pas beaucoup non plus

[Chtulus]

Sinon, en VBA si je veux faire une opération qui utilise le résultat d'une requete, comment je l'invoque ?

C'est à dire ?

[Arttt]

ba je veux faire

Code :

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

variable = variable2 - [résultat d'une requête]

le seul problème, c que dans mon code VBA, je n'arrive pas a reprendre la valeur du résultat de la requête. En mettant

Code :

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

[Query].[nom requête].[champs]

ça ne marche pas. Il faut rajouter un ".value" a la fin ??

[Chtulus]

Si ta requête passe par un recordset (rst),

Code :

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

Variable = variable - rst.fields("NomChampsReponse")

Je crois

[Arttt]

heu, c surement ca, mais est-ce que tu pourrai développer un poil plus la procédure, parce que j'ai écris:

Code :

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

rst.NomRequete("Champs")

et ca marche pas

[Chtulus]

En fait dans ton code tu utilise un recordset, bon là je l'ai appelé rst

Code :

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

1
2
3
4
 
rst.Open " SELECT TonChamps1... " _
       & " FROM ... " _
       & " WHERE... ;"

Puis les champs ou Alias (si tu en as) correspondent à

Code :

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

rst.fields("TonChamps")

[Arttt]

Bon, j'ai bien essayé, mais la je coince, voila mon code:

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
Private Sub Space_occupied_Exit(Cancel As Integer)
 
Dim rst As New ADODB.Recordset
 
rst.Open " SELECT TOP 1 [Space Report].Location, [Space Report].[Space available], [Space Report].[Space occupied], [Space Report].[Space contracted], [Space Report].C_Date, [Space Report].[Drawing's link] " _
       & " FROM [Space Report] " _
       & " WHERE ((([Space Report].Location)=[Forms]![Space Report]![Location])) " _
       & " ORDER BY [Space Report].C_Date DESC; "
 
Dim calc As Single, old_value As Single
 
old_value = rst.Fields("[Space Report].[Space occupied]")
calc = Me.Space_occupied
 
If calc <> 0 Then
   Me.Result = (calc - old_value)
End If
 
End Sub

La requête au milieu sert a récupérer le résultat le plus récent, mais le code bug précisément la dessus quand je l'exécute.

[Chtulus]

Utilise un Alias sur ton champs (Du style "occupé"), puis en executant pas à pas ta requête, vois si ta variable old_value récupére bien la valeur du recordset...

Pour ta requête :

Code :

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

= '" & [Forms]![Space Report]![Location] & "'))

[Arttt]

Encore une fois, je vais te demander plus de détails, car malheureusement je ne sais pas faire un alias, et la comme ca, j'ai pas trouvé dans la faq.

Par ailleur, mettre

Code :

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

= '" & [Forms]![Space Report]![Location] & "'))

n'a rien changé.

Merci de m'aider, c vraiment sympa

[francishop]

Bonjour,

On peut essayer :

Code :

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

1
2
SELECT [Forms]![Space Report]![Location] AS Expr1,
Val([Forms]![Space Report]![Space occupied]) AS Expr2;

Cordialement.

[Chtulus]

Comme le montre très bien francishop ( Bonjour et Merci) un Alias comme son nom l'indique correspond à un nom d'emprunt donc soit comme francishop le marque tu mets "Expr1" ou un nom autre comme :

Code :

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

1
2
 
SELECT ..., [Space Report].[Space occupied] AS Occupe, ...

Ensuite le nom de la colone recordset sera

Code :

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

old_value = rst.Fields("Occupe")

[Arttt]

ha oui, cela marche pour la requete Merci beaucoup

Je vais donc essayer de mixer tout ca

[Arttt]

Bon, ca marche toujours pas

j'ai essayé ca:

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
Private Sub Space_occupied_Exit(Cancel As Integer)
 
Dim rst As New ADODB.Recordset
 
rst.Open " SELECT TOP 1 [Space Report].Location, [Space Report].[Space available], [Space Report].[Space occupied] AS Expr1, [Space Report].[Space contracted], [Space Report].C_Date, [Space Report].[Drawing's link] " _
       & " FROM [Space Report] " _
       & " WHERE ((([Space Report].Location)=Forms![Space Report]!Location)) " _
       & " ORDER BY [Space Report].C_Date DESC; "
 
Dim calc As Single, old_value As Single
 
old_value = rst.Fields("Expr1")
calc = Me.Space_occupied
 
If calc <> 0 Then
   Me.Result = (calc - old_value)
End If
 
End Sub

et aussi ca:

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
Private Sub Space_occupied_Exit(Cancel As Integer)
 
Dim rst As New ADODB.Recordset
 
rst.Open " SELECT Val([Forms]![Space Report]![Space occupied]) AS Expr2; "
 
Dim calc As Single, old_value As Single
 
old_value = rst.Fields("Expr2")
calc = Me.Space_occupied
 
If calc <> 0 Then
   Me.Result = (calc - old_value)
End If
 
End Sub

A chaque fois le message d'erreur me ramène a la ligne rst.Open " SEL ...

Une idée (encore )

[Chtulus]

Bonjour,

Code :

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

1
2
 
" SELECT Val( '" & [Forms]![Space Report]![Space occupied] & "') AS Expr2; "