Discussion :

[Nessie37]

Bonsoir,

Qq1 pourrait me dire ce qui ne vas pas dans mon code ?

Code :

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

1
2
3
4
5
Private Sub Prénom_KeyPress(KeyAscii As Integer)
DoCmd.RunSQL "SELECT proper(Prénom) AS Prénom_in_Proper_Case "
FROM DETAIL;"
 
End Sub

Erreur de syntaxe.

La requête à lancer est :

Code :

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

1
2
SELECT testText, proper(testText) AS testText_in_Proper_Case
FROM MyTestTextList;

Merci

[Nessie37]

euh j'ai oublié de préciser que bien évidemment dans la requête, test Text est remplacé par Prénom et elle fonctionne.
La requête que je vous ai mise était l'exemple que j'ai trouvé dans la FAQ...

Quel est la bonne syntaxe pour lancer cette requête ?

Merci bcp

[berti]

salut,

le principe du docmd.runsql("la requête") est que tu ne peux éxecuter que des requêtes "d'action" (insertion, modification, suppression).

Le code que tu utilises ne va pas pour un select.

1.Le mieux est d'afficher le resultat de ta requête SQL dans une liste

Code :

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

1
2
3
4
sql = "SELECT proper(Prénom) AS Prénom_in_Proper_Case FROM DETAIL;"
 
Me![list].RowSource = sql
Me.Repaint

tu actionnes ce code via un button sur click et logiquement ça fonctionne

2.sinon tu crées un formulaire via ta requête avec l'assistant d'Access et tu crée un bouton qui ouvre ce formulaire c'est une autre solution simple également

[GrooveRage]

Bonsoir,

Pour lancer une requete dans une fonction, j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
 
 
    Dim rst As DAO.Recordset
 
    Set rst = CurrentDb.OpenRecordset("SELECT proper(Prénom) AS Prénom_in_Proper_Case FROM DETAIL;")
 
    rst.Close

Après sur rst tu as des fonctions comme EOF, MoveFirst, MoveNext pour te déplacer sur les enregistrements..
Chez moi sa marche bien, mais je ne suis pas expert en vba ! xD

Bon courage !

[Nessie37]

salut,


1.Le mieux est d'afficher le resultat de ta requête SQL dans une liste

Code :

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

1
2
3
4
sql = "SELECT proper(Prénom) AS Prénom_in_Proper_Case FROM DETAIL;"
 
Me![list].RowSource = sql
Me.Repaint

tu actionnes ce code via un button sur click et logiquement ça fonctionne

Qu'entends-tu par afficher le résultat dans une liste ?

[tribaleur]

Juste comme ça...J'ai déja eu une erreur d'éxecution de requête dans VBA.
Cette erreur venais du mots AS dans la requette (le mots Sql ). Apparement VBA n'aimais qu'on l'utilise.

[Nessie37]

Vi mais moi qui n'y connait rien, je dois faire quoi ?

[Nessie37]

Je reprends :

Mon est de mettre automatiquement en majuscule les premières lettres de prénoms et prénom composés, à la saisie dans mon form.

La requête, elle fonctionne mais je voudrais la mettre (et je ne suis pas sûre d'ailleurs que ce soit comme ça) au niveau de mon champs "Prénom".

Est-ce la bonne démarche ?

[Lou Pitchoun]

Tu t'y prends mal.
Le mieux serait de lancer la fonction sur l'évènement 'après mise à jour' et nom sur pression de la touche. Par contre, je ne crois pas que Proper soit une fonction Access (tout au moins sur la version 97)

Code :

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

1
2
3
4
5
Private Sub Texte4_AfterUpdate()
 
    Me.Texte4 = StrConv(Me.Texte4, vbProperCase)
 
End Sub

[Nessie37]

Ah ? euh aucune idée j'ai vu cette requête je ne sais plus où, (pas ici dans la FAQ, je me suis trompée) sur le site

Code :

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

support.microsft

je crois.

J'ai office 2003.

En tout cas la requête fonctionne

[Nessie37]

Tu t'y prends mal.
Le mieux serait de lancer la fonction sur l'évènement 'après mise à jour' et nom sur pression de la touche. Par contre, je ne crois pas que Proper soit une fonction Access (tout au moins sur la version 97)

Code :

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

1
2
3
4
5
Private Sub Texte4_AfterUpdate()
 
    Me.Texte4 = StrConv(Me.Texte4, vbProperCase)
 
End Sub

Ok, donc sur l'évènement AFterUpdate mais je la lance finalement comment ? Comme ça je vous dirai si ça marche.

PS : si proper n'est pas une fonction access, aurais-je un message d'erreur ? Car j'ai déjà essayer de la lancer, elle ne fonctionne pas mais pas de message d'erreur..

[Nessie37]

Tu t'y prends mal.
Le mieux serait de lancer la fonction sur l'évènement 'après mise à jour' et nom sur pression de la touche. Par contre, je ne crois pas que Proper soit une fonction Access (tout au moins sur la version 97)

Code :

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

1
2
3
4
5
Private Sub Texte4_AfterUpdate()
 
    Me.Texte4 = StrConv(Me.Texte4, vbProperCase)
 
End Sub

Autre chose, si je ne m'abuse (arrêtez-moi si je me trompe) et d'après mes lectures, StrConv permet de mettre en majuscule la première lettre mais ne prend pas en charge des casse comme les traits d'union
expl : jean luc -> Jean Luc OK
mais jean-luc -> Jean luc pas OK
La requête que j'ai trouvée elle permet la conversion qq soit la casse...

[lvr]

Essaye UCase(xxx)

[Nessie37]

Essaye UCase(xxx)

Connais pas !
Tu m'expliques stp ?

[lvr]

Connais pas !
Tu m'expliques stp ?

J'avais pas bien lu le problème
Tu peux faire ça en plusieurs fois. Tu coupes à chaque éléments non alphabétique, tu mets la majuscule, tu remets l'élement, tu passes au morceau suivant.

[Nessie37]

Toujours pas compris...

[Domi2]

Bonjour,

Si j'ai bien compris, tu cherches à vérifier la saisie de noms propres.

jean-luc ==> Jean-Luc

Je ne pense pas qu'une requête (du moins simple), soit suffisante.

Regarde cette fonction.

Domi2

[Nessie37]

Bonjour Domi,

Je cherchais à lancer une requête que j'ai trouvée je ne sais plus où, qui me permettait effectivement de mettre automatiquement les prénoms en majuscules, y compris ceux composés.
Ma requête, elle fonctionne, mais je voulait la mettre dans mon form de saisie, dans le champs "Prénom" et je ne savais pas comment faire...

Je vais essayer d'appliquer ton lien et je te tiens au courant.

Merci.

[lvr]

Tu dois combiner une fonction du type de celle que Domi2 t'a montré et l'event After_Update de ton champs prénom.

[Nessie37]

Bonjour,

Si j'ai bien compris, tu cherches à vérifier la saisie de noms propres.

jean-luc ==> Jean-Luc

Je ne pense pas qu'une requête (du moins simple), soit suffisante.

Regarde cette fonction.

Domi2

Bonjour,

Je me suis penchée su la fonction que tu m'as donnée et ça ne fonctionne pas.
Je ne sais plus quoi faire