Les Cours et tutoriels pour apprendre Access, Les codes Sources Access, Le Forum Access, Offres d'emploi développeur Access et Les FAQs Office
Avant de poster : les choses importantes à lire pour la bonne tenue du forum.
Bonjour à tous !!!
Ce fil est super intéressant !!! MERCI BEAUCOUP :-)
J'ai testé sous 97 et je rencontre qq pb.
La fonction Split n'existe pas sous 97.
Après recherche j'ai trouvé la fonction à utiliser qui remplace la fonction Split en 97 qui est :
Le souci que j'ai est qu'il y a une "Erreur de compilation : Type ActiveX non géré dans Visual Basic" sur
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
35
36
37 Public Function fSplit(expression As String, _ Optional delimiter As String = " ", _ Optional compare As VbCompareMethod = vbBinaryCompare) _ As Variant Dim L%, nb%, p% Dim strResult As String Dim varResult() As Variant If IsNull(expression) Then fSplit = Null Else strResult = expression L = Len(delimiter) If IsNull(delimiter) Or delimiter = "" Then fSplit = expression Else p = InStr(1, expression, delimiter, compare) If p = 0 Then fSplit = expression Else Do While p > 0 nb = nb + 1 ReDim Preserve varResult(nb) varResult(nb - 1) = Left(strResult, p - 1) strResult = Mid(strResult, p + L) p = InStr(1, strResult, delimiter, compare) If p = 0 Then varResult(nb) = strResult Loop fSplit = varResult() End If End If End If End Function
et je ne sait pas comment contourné !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Public Function fSplit(expression As String, _ Optional delimiter As String = " ", _ Optional compare As VbCompareMethod = vbBinaryCompare) _ As Variant
Par avance merci,
@+
Bonjour,
Je ne vois qu'une chose à faire: remplacer le type vbBinaryCompare par le type Long.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Public Function fSplit(expression As String, _ Optional delimiter As String = " ", _ Optional compare As VbCompareMethod = Long) _ As Variant
Salut,
@ boulap : la fonction de remplacement est dans les sources et elle fonctionne au poil
Les Cours et tutoriels pour apprendre Access, Les codes Sources Access, Le Forum Access, Offres d'emploi développeur Access et Les FAQs Office
Avant de poster : les choses importantes à lire pour la bonne tenue du forum.
Merci à vous 2 ! J'ai utilisé la fonction présente dans les sources et c'est OK.
@+
bonjour
tout d'abord bravo pour ce code qui à l'air super.
Malheureusement je n'ai pas encore pu l'utiliser.
Je l'ai mis dans un module et danq je lance un formulaire
il me donne ce message d'erreur;
Erreur de compilation:
Un module n'est pas un type valide.
et il me surligne cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part Public Sub proResolution(ByRef frmRedim As Form)
merci de votre aide
Bonjour j'ai essayé cette méthode, cela fonctionne sur un formulaire unique, mais mal sur un formulaire avec un sous-formulaire ( qui est ds un onglet), que faire
Merci
Bonjour à tous...
Ca fait un petit bout de temps que je ne suis pas venu par ici... Comme j'ai fait qq progrès depuis, je vais me remettre sur ce code...
En tout cas, merci de faire vivre ce message !
A très vite pour une nouvelle version !!!
Dernière modification par seb92400 ; 24/02/2008 à 12h23.
salut, quand j'essaye d'inserer ton code dans un de mes formulaire j'ai l'erreur suivante :
"L'expression sur ouverture entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom"
Est ce qu'il faut mettre certaines propriétés du formulaire à une certaine valeur?
Hello,
Je me suis penché sur le problème de cette erreur... et pour cause, j'ai eu le même sur un autre formulaire, mais je n'avais pas eu le temps d'aller voir...
Lorsque tu cliques sur "aide", tu as déjà un commencement de réponse... ensuite, si tu ne trouves pas la cause dedans... voici ce que j'ai fait (en tout cas, pour mon formulaire) :
1. Faire une sauvegarde de la base
2. Pour le formulaire concerné, copier les lignes de code dans le bloc-notes, puis effacer le module du formulaire.
3. Décompiler et compacter la base
4. Recréer le module et recopier le code
5. Tester.. plus d'erreur pour moi...
Je pense qu'il s'agit d'un des bugs "fantômes" malheureusement présents dans la version 2003...
Ceci dit, la version 2007 est nettement plus stable !! Je n'ai pas encore constaté ce genre bugs avec... J'ai même pu ouvrir un vieil essai de base 2003 qui ne s'ouvrait plus...
Bon courage pour la suite...
Bonjour seb92400,
Par un lien signalé par Starec, je suis tombé sur ton code ! bravo !
Je suis en Access97, j'ai donc remplacer la fonction Split par la fonction de remplacement bien connue de ceux qui sont encore en Access97 !
Par contre où trouves tu le code de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part MsgBoxPlusErreur
d'avance merci.
fevec
Bonjour,
De mémoire, c'est une fonction de gestion d'erreurs perso de Seb.
Essaie de remplacer simplement par quelque chose comme :
Si ça ne fonctionne pas, relit l'entier de la discussion, je suis certain que le sujet a déjà été abordé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2MsgBox Err.Number & " : " & Err.Description Err.Clear
Domi2
Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor)
Ici, on ne perd pas de temps ! On en passe...
Access : créer des codes-barres 128 en VBA
Access : les commandes intégrées des menus
Ce message (ou un autre) vous a aidé ? Votez pour lui avec
Bonjour, tous d'abort chapeau pour ce code.
Ensuite, je suis sous Access 97, est ma question est ou puis-je trouver la modif pour le split ?, l'est po trouver dans les sources ?
Merci d'avance
Bonjour,
Elle est dans la FAQ.
Domi2
Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor)
Ici, on ne perd pas de temps ! On en passe...
Access : créer des codes-barres 128 en VBA
Access : les commandes intégrées des menus
Ce message (ou un autre) vous a aidé ? Votez pour lui avec
ok, bon je croit, que c'est pas de mon niveau la
Serieux, je suis sencer remplacer un mot par tous sa !!!
C'est a mettre dans un module, a remplacer dans de code (si oui comment) ?
Désolé, mais je suis novice en VBA, est c'est le premier module que je vais utiliser
Donc la modif, ce met bien dans un module
par contre sa marche bien, si je monte la resolution, mais pas en la baissant
Bonjour,
Je ne trouve pas la procédure de centrage dont il est fait question pour que le redimmensionnement fonctionne pile poil car j'ai le même problème que Domi2 au début.
Merci pour votre aide parce que ça fait deux heures que je cherche dans la FAQ et dans les sources et je n'ai rien trouvé...
Bonjour,
En tapant simplement "Centrer" dans la FAQ, je trouvre ceci.
Domi2
Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor)
Ici, on ne perd pas de temps ! On en passe...
Access : créer des codes-barres 128 en VBA
Access : les commandes intégrées des menus
Ce message (ou un autre) vous a aidé ? Votez pour lui avec
Bonjour à tous !
Content de voir que mon code plait toujours autant... Je passe moins souvent ici en ce moment... Et Merci à Domi2 de prendre la peine de renseigner sur le code !
Bonne continuation à tous...
Quand je mets le code pour centrer le formulaire, j'ai l'impression que cela ne fonctionne pas, j'ai toujours mes barres déroulantes sur les côtés... Je crois que vous aviez eu le même problème au début Domi2
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager