OVH Cloud OVH Cloud

Limite

4 réponses
Avatar
Alexandre
Bonjour,=20
dans les macros, est-il possible d'augmenter le nombre de=20
caract=E8res que peut recevoir "condition where". Si oui=20
comment?
Merci,
Alexandre

4 réponses

Avatar
Logipro
Bonjour Alexandre,

Au lieu d'utiliser une Macro utilise :

CurrentDb.Execute " Ton SQL avec ta condition where"

De cette façon tu n'aurra pas de limite à 256 caractères !


Bonne continuation !


Robert Simard
Logipro


"Alexandre" a écrit dans le message de
news:184001c46f4c$0c5fa950$
Bonjour,
dans les macros, est-il possible d'augmenter le nombre de
caractères que peut recevoir "condition where". Si oui
comment?
Merci,
Alexandre
Avatar
Alexandre
Merci,
mais je suis supposé faire ça à quel endroit? en vba? ou
dans une requête quelconque??

Ce macro sert à faire un lien entre un formulaire et un
autre. La condition where fait s'ouvrir le second
formulaire, selon une zone de texte dans le premier
formulaire.

Merci,
Alexandre
Avatar
Logipro
Oui dans le VBA, sur le même évenement que tu déclanche ta macro


Robert

"Alexandre" a écrit dans le message de
news:20e101c46ff5$9f955090$
Merci,
mais je suis supposé faire ça à quel endroit? en vba? ou
dans une requête quelconque??

Ce macro sert à faire un lien entre un formulaire et un
autre. La condition where fait s'ouvrir le second
formulaire, selon une zone de texte dans le premier
formulaire.

Merci,
Alexandre
Avatar
Alexandre
ReBonjour,
Je ne suis pas très callé en VBA et je ne comprends pas
très bien quels arguments utiliser pour mener à bien mon
ouverture de formulaire, avec votre commande.

Par ailleurs, j'ai essayé ceci, mais ça ne fonctionne pas
(Incompatibilité de type). De plus ceci recherche une
valeur égale au lieu d'une valeur "comme".:


Private Sub Commande945_Click()
On Error GoTo Err_Commande945_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Manufacturier_Prod_Rep"

stLinkCriteria = "[Manufacturier]=" & "'" & Me!
[Modifiable784] & "'" Or "[Représentants]=" & "'" & Me!
[Modifiable784] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande945_Click:
Exit Sub

Err_Commande945_Click:
MsgBox Err.Description
Resume Exit_Commande945_Click

End Sub



Merci,
Alexandre