Discussion :

[krassi]

Dans un formulaire, un champ est alimenté par le resultat d'une requete du style

Code :

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

Me.pd40p = DLookup("total", "td40p")

Cette requete est basée sur le nom du formulaire ouvert que je récupére dans une variable "ActualForm"
Le code de la requete est de ce type

Code :

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

1
2
3
SELECT blabla
FROM Table1
WHERE (((Table1.Champ1)=[forms].[Form1].[Champ1])

je souhaite remplacer Form1 dans la requete par la variable Public ActualForm pour avoir

Code :

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

WHERE (((Table1.Champ1)=[forms].[ActualForm].[Champ1])

mais ne trouve pas la bonne syntaxe.

Merci de votre précieuse aide

Krassi

[alexandrebergercyr]

As tu essayé Me?

Alex

[Invité]

Bonjour

Dans ta requête

Code :

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

1
2
 
WHERE (((Table1.Champ1)=[forms].[ActualForm].[Champ1])

[forms].[ActualForm].[Champ1])

te donne une donnée, il faut la traiter comme une variable et faire une concaténation de chaine

Code :

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

1
2
 
WHERE (((Table1.Champ1)=" & [forms].[ActualForm].[Champ1]) & "

Si c'est du texte, il faut mettre ' avant et après les ""

Starec

[krassi]

J ai un message erreur "type donnée incompatible dans l'expression du critère

[Invité]

Re

Ta valeur de champ1 est elle numérique ou texte ?

Starec

[krassi]

Texte

Krassi

[Invité]

Bonjour

Dans ta requête

Code :

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

1
2
 
WHERE (((Table1.Champ1)=[forms].[ActualForm].[Champ1])

[forms].[ActualForm].[Champ1])

te donne une donnée, il faut la traiter comme une variable et faire une concaténation de chaine

Code :

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

1
2
 
WHERE (((Table1.Champ1)=" & [forms].[ActualForm].[Champ1]) & "

Si c'est du texte, il faut mettre ' avant et après les ""

Starec

A la dernière ligne j'ai mis mettre des ' avant et aprés les "

Starec

[krassi]

NIN désolé mais c'est du numérique

Krassi

[Invité]

Re

Et ton champ de ta table ?

Starec

[krassi]

same same c'est aussi du numérique

Krassi

[krassi]

J ai essaye de contourner le pb de syntaxe en créant une nouvelle variable SrtgReq qui donne par espion "[forms].[ActualForm].[Champ1]"
quand j essaye de l'integrer dans ma requete

Code :

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

WHERE ((Table1.Champ1)=" & StrgReq & ")

jai toujours ce message d'erreur : données incompatibles ...
De meme si je fais avec des ' '

Code :

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

WHERE ((Table1.Champ1)="' & StrgReq & '")

Krassi

[DMboup]

Je supposes que ActualForm est déclaré en tant que Form.

Code :

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

1
2
 
... WHERE (((Table1.Champ1)=" & forms(ActualForm)!Champ1 & "

[krassi]

Merci à tous pour le temps passé mais les solutions proposées ne fonctionnent pas, quelque soit la formule utilisée, j'ai toujours ce même foutu message :données incompatibles ...

Krassi

[Invité]

Re

Essaye

Code :

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

1
2
 
forms![ActualForm]!Champ1

Starec

[krassi]

Je crois que j'ai essayé toutes les possibilités:

Code :

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

1
2
3
4
5
6
7
8
9
 
forms![ActualForm]!Champ1 
forms.[ActualForm]!Champ1
forms![ActualForm].Champ1 
[forms]![ActualForm]![Champ1]
[forms].[ActualForm]![Champ1]
" & [forms]![ActualForm]![Champ1] & "
"' & [forms]![ActualForm]![Champ1] & '"
" & [forms].[ActualForm]![Champ1] & " etc

et ca ne marche pas,

Ca me broutte réellement et je crois que je vais faire plus bestial en écrivant en dur toutes les requetes ou ActualForm varie

Merci encore


Krassi

[Arkham46]

bjr,

on ne peut pas utiliser une variable directement
par contre on peut utiliser une fonction
il suffit donc de créer une fonction qui renvoit la valeur de la variable

[DMboup]

on ne peut pas utiliser une variable directement

Alors dites moi pourquoi ceci marche bien?

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Public mform As String


Public Sub test()
Dim mbd As Database

Set mbd = CurrentDb()
Set DTab1 = mbd.OpenRecordset("Select * From Table1 Where (Champ1=" & Forms(mform)!Texte2 & ")")

[DMboup]

Je crois que j'ai essayé toutes les possibilités:
forms![ActualForm]!Champ1
forms.[ActualForm]!Champ1
forms![ActualForm].Champ1
[forms]![ActualForm]![Champ1]
[forms].[ActualForm]![Champ1]
" & [forms]![ActualForm]![Champ1] & "
"' & [forms]![ActualForm]![Champ1] & '"
" & [forms].[ActualForm]![Champ1] & " etc
Krassi

J'i tout vu sauf

Code :

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

1
2
 
" & forms(ActualForm)![Champ1] & "

[Arkham46]

Alors dites moi pourquoi ceci marche bien?

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Public mform As String


Public Sub test()
Dim mbd As Database

Set mbd = CurrentDb()
Set DTab1 = mbd.OpenRecordset("Select * From Table1 Where (Champ1=" & Forms(mform)!Texte2 & ")")

ah ben c'est dans du VBA alors oui ça marche