Saisie semi-automatique en VBA Access

[@abdelazizchelbi7531]

Vous m'excusez cette fois-ci cher professeur car je ne trouve pas les mots ni pour exprimer mon étonnement et surprise ni pour saluer convenablement votre talent et vos idées. En effet, cet énigme de saisie semi-automatique me tourmentait la tête depuis longtemps et je ne suis jamais arrivé à le résoudre. Et le voilà, comme tombé du ciel, une solution simple, claire et facile !!!§§§???...

Bonjour mon Cher Abdelaziz, je suis ravi que cette astuce vous plaise. En effet, grâce à la puissance d'Access et la maniabilité de VBA, une simple requête à la clause WHERE dynamique déclenchée sur événement, et le tour est joué. Pour un site Web, on optera plutôt pour une base de connaissance, consolidée toutes les nuits par exemple et questionnée côté client afin de ne pas trop solliciter le serveur, surtout si le trafic est dense. Très bonne journée à vous.

[@romlef526]

bonjour, je viens de voir cette video et par la même occasion revoir la précédente histoire de bien se remettre dans le bain !!! et j'avoue que je me suis régalé sur le coup !!! j'ai beaucoup aimé la simplicité pour mettre tout celà en place !! avec peu de vba on arrive à obtenir un résultat de très bonne qualité !!! grand merci à vous !!!

Bonsoir Rom Lef, oui c'est exactement ça, on obtient un résultat convaincant de saisie guidée avec très peu de code VBA et une grande simplicité grâce à l'articulation que proposent les contrôles de formulaires Access. Merci beaucoup pour votre retour et très bonne soirée à vous.

[@hichemboudali6168]

Bravo Stéphane pour le tuto, j'ai réussi à reproduire l'exercice bien que 'ai eu du mal dans la syntaxe SQL (les simples quotte et les doubles quotte) bref après plusieurs tentative j'ai réussi à le faire. Merci beaucoup pour les explications que je trouve vraiment de grande qualité.Bonne continuation

Bonjour Hichem. Merci beaucoup pour votre message. Oui l'alternance des simples et doubles côtes est toujours délicate dans ces syntaxes. Bravo à vous pour la réalisation.

[@hichemboudali6168]

@ plutôt les remerciements reviennent à vous pour l’immense travail que vous êtes entrains de faire.

​@@hichemboudali6168 C'est très gentil de votre part.

[@GeorgeBander]

Bonjour cher professeur ! Encore une fois, un tuto fort attendu, et magnifiquement mit en ligne !! Je viens juste de le terminer, et j'ai une formidable idée désormais pour alimenter une autre base de donnée, qui est importante pour moi...! Un super pouce levé pour ce joli travail et je vous souhaite également une excellente journée !! Merci cher professeur...!

Bonjour Gérard, je suis très heureux une fois de plus de votre retour et de savoir que ce procédé de saisie semi-automatique va vous servir pour l'une de vos bases de données Access. Je vous souhaite une très bonne journée.

[@ericcastorlelaurain1970]

Encore un tuto essentiel ! Merci Stéphane ;-)

Bonjour Eric, merci beaucoup pour ce retour.

[@dewesler]

Merci pour votre courrier Monsieur Rossetti

Je vous en prie Alain, c'est avec plaisir

[@thiernodiallo5394]

j'ai regardé l'exemple que vous m'avez envoyer, c'est vraiment claire et je vous remercie Mais j pense que c n'est pas pareille par rapport à mon polynôme Car dans mon cas j'ai une équation avec plusieurs constantes a,b,c,d,e et f sur des colonnes qui varient d'une ligne à un autre répondant à une seule équation y= f + e*V + d*V ^ 2+ c*V ^ 3 + b*V ^ 4 + a*V ^ 5 avec V comme variable ou inconnue que l'utilisateur doit indiquer avec les constantes données pour calculer la fonction y.

Oui tout à fait mais je pense que des boucles imbriquées sur les variables, en tenant compte des constantes fournies par l'utilisateur ou le programme doivent permettre facilement de résoudre la fonction Y. Quelles sont précisément les variables et leurs bornes de variations ?

[@thiernodiallo5394]

Rossetti Stéphane la variable c'est une vitesse V en km/h qui varie de 5 à 110km/h du coup c'est l'utilisateur qui choisi sa vitesse avc la ligne ou enregistrement le programme calcule directement la fonction Y avec les bonnes constantes

Donc une simple boucle qui fait varier V de 5 à 155 doit résoudre l'équation

[@thiernodiallo5394]

Bonjour Mr Rosseti.Voici le code que j'ai écris mais je narrive à voir le résultats des calcul en sorti :module 1: Function CalculEmission(aVitesse As Double, aFormula As String, coeffArr As Variant, Vit_min As Double, Vit_max As Double) ' evaluate sped-related emissions functions ' Input: ' aVitesse: vitesse (km/h) ' aFormula: string containing the formula ' coeffArr: range 1x7 containing the the coefficients' Vit_min: minimum speed (km/h) that can be used ' Vit_max : maximum speed (km/h) that can be used ' Output: ' emissions in g/km or fuel consumption in l/100kmDim Vitesse_Util As Double ' check that speed is within range If aVitesse < Vit_min Then Vitesse_Util = Vit_min ElseIf aVitesse > Vit_max Then Vitesse_Util = Vit_max Else Vitesse_Util = aVitesse End If If aFormula = "y= f + e*V + d*V ^ 2+ c*V ^ 3 + b*V ^ 4 + a*V ^ 5" Then CalculEmission = evalPoly(Vitesse_Util, coeffArr) End If End FunctionFunction evalPoly(x As Double, coeffArr As Variant) ' evaluate function of the form "y= f + e*V + d*V^2+ c*V^3 + b*V^4 + a*V^5" ' Input: ' V : speed (km/h) ' coeffArr: range 1x7 containing the the coefficients' Output: ' emissions in g/km or fuel consumption in l/100kmDim a As Double Dim b As Double Dim c As Double Dim d As Double Dim e As Double Dim f As Double a = coeffArr(1, 1) b = coeffArr(1, 2) c = coeffArr(1, 3) d = coeffArr(1, 4) e = coeffArr(1, 5) f = coeffArr(1, 6) evalPoly = f + e * V + d * V ^ 2 + c * V ^ 3 + b * V ^ 4 + a * V ^ 5 End Functionmodule 2Sub getAllEmissions() Dim shtName As String Dim outCell As String shtName = "CO": outCell = "D1": getEmissions shtName, outCell shtName = "HC": outCell = "H1": getEmissions shtName, outCell shtName = "NOx": outCell = "E1": getEmissions shtName, outCell shtName = "PM": outCell = "F1": getEmissions shtName, outCell shtName = "VOC": outCell = "G1": getEmissions shtName, outCell shtName = "FC": outCell = "I1": getEmissions shtName, outCell End Sub Sub getEmissions(shtName As String, outCell As String) Dim spdArr As Variant Dim outArr As Variant Dim lastRow As Long Dim aRow As Long Dim aVitesse As Double Dim aFormula As String Dim coeffArr As Variant Dim Vit_min As Double Dim Vit_max As Double lastRow = 42 spdArr = Sheets("CalculEmission").Range("G1").Resize(lastRow, 1) outArr = spdArr For aRow = 4 To lastRow aVitesse = spdArr(aRow, 1) With Sheets(shtName) aFormula = .Cells(aRow, 4) coeffArr = .Cells(aRow, 10).Resize(1, 6) Vit_min = .Cells(aRow, 11) Vit_max = .Cells(aRow, 12) End With outArr(aRow, 1) = CalculEmission(aVitesse, aFormula, coeffArr, Vit_min, Vit_max) Next aRow ' add headers outArr(1, 1) = "" outArr(2, 1) = shtName If shtName = "FC" Then outArr(3, 1) = "l/100km" Else outArr(3, 1) = "g/km" End If Sheets("CalculEmission").Range(outCell).Resize(lastRow, 1) = outArrEnd Sub

[@OmarLahrimi]

Grand merci.

C'est un plaisir. Merci à vous pour ce message.

[@jessicaholtson9277]

Bonjour monsieur merci pour le tuto ! Je l'ai essayé mais j'ai du mal parce que chez moi le rowsource n'existe pas ducoup le code 'é fonctionne pas chez moi ! Avez vous une autre alternative svp ?

Bonjour Jessica. RowSource est une propriété ancestrale d'un contrôle ListBox. Vous l'avez nécessairement à disposition. Peut-être que vous n'utilisez pas le bon type de contrôle sur votre formulaire.

[@dewesler]

Bjs Monsieur Rossetti, comme tjs un tuto très instructif , petite question est' il possible d'effectuer la même opération sur une liste déroulante SVP, je vous en remercie d'avancea bientôt

Bonjour Alain, merci beaucoup pour votre retour. La même opération avec une liste déroulante ne pose aucun souci dans la mesure où ce contrôle objet propose exactement la même propriété RowSource pour la charger. Bonne journée à vous.

[@adnanehafid2566]

Instructif merci Stéphane je plonge pour un essai souhaite moi bonne chance

Merci à vous pour ce message. Je vous souhaite bonne chance avec plaisir mais vous le constaterez, le code n'est pas compliqué pour un résultat cependant très intéressant.

[@David-wy8hu]

Bonjour Stéphane j'utilise cette procédure sur un formulaire de saisie. Mon problème est que si je rajoute un nom qui n'est pas dans la liste déroulante le carré de la liste déroulante reste ouvert et cache mes autres champs. Comment faire dans ce cas là ? Merci

Bonjour Chartreuse38. Il suffit de faire un test (If) sur le contenu (=""). Dans ce cas, il reste à basculer sa propriété Visible à false par le code.

[@David-wy8hu]

@ voilà mon code If liste_mail = "" Then liste_mail.Visible = False Mais fonctionne pas

Oui tout dépend où vous le placez et le nom des objets que vous avez définis. Il s'agit d'une adaptation de la formation que je propose. Mais dans la philosophie, c'est bien le principe. Vous pouvez aussi tester sur le retour des résultats de la requête avec la fonction Count en SQL.

[@David-wy8hu]

@ Merci pour votre réponse rapide voilà le code complet sur click Private Sub liste_mail_Click() txtemail.Value = liste_mail.Value txtemail.SetFocus If liste_mail.Visible = True Then liste_mail.Visible = False If liste_mail = "" Then liste_mail.Visible = False End Sub Peut on mettre 2 if à la suite ?

Oui, on peut, mais dans ce cas de figure je ne comprends pas bien votre imbrication.

[@moohjji2471]

bonjour prof ,merci 1000 fois pour le tuto et pour tout se que vous faite.je suis un débutant sur Access et j'ai quelque question.ma première question j'ai une table qui contient du matériel consommable(joint,filtre...) et ils ont des références,comment activer la saisie auto sur un formulaire d'ajout pour une désignation précise c.à.d au moment de l'ajout,quand je tape"123"dans la case de référence je veux avoir dans la case "designation" les designations(saisie semie auto) qui correspond aux "123" seulement pour éviter d'entrer 02design pour la même référence. ma 2eme question si vous le permettez;j'ai une table du personnel ayant comme champs(nom,prénom,date de naiss,numéro social..ect)disant 10 champs,alors,comment crée un formulaire en se servant de "case a coche" qui me permet d'afficher les champs que je veux par exemple 05 champs seulement pour pouvoir l'imprimer directement tout en faisant attention a la mise en forme..merci d'avance et j’espère avoir une réponse..

Bonjour Mooh Jji et merci beaucoup pour votre message. Pour enrichir un formulaire selon un choix, vous pouvez exploiter la fonction RechDom comme expliqué dans cette formation : www.bonbache.fr/recolter-les-donnees-sur-un-formulaire-access-441.html Vous n'avez plus qu'à lui greffer le principe de la saisie auto en VBA. Pour permettre l'édition restrictive en fonction de choix cochés depuis votre formulaire, vous devez créer une requête dynamique qui restreint et filtre ses enregistrements en fonction de ce choix, issu du formulaire. Ensuite, vous bâtissez un état sur cette requête et le tour est joué.

[@moohjji2471]

merci pour voter réponse rapide prof;je vais suivre vos indication..et si vous le permettez je me vous dérangerais avec d'autres questions si j'ai des soucis..merci beacoup

@@moohjji2471 Si j'ai les réponses, je vous les fournirai, s'il faut étudier le cas, je vous avoue que cela sera plus compliqué car je reçois de très nombreuses demandes chaque jour. Merci pour votre message.

[@mamyantenainarasoloson778]

Merci pour le tuto. Mais j'ai un petit problème. Le cmd SQL ne s'exécute pas LIKE & ' " moteur.Text & "*' "). J'ai essayé toutes les places de ' , ", * , ça ne marche pas. Peut-être qu'il y a des composants manquants dans Access... ou bien !... quoi... Je veux de l'aide s'il vous plaît. Mes remerciements.

Bonjour Mamy Antenaina Rasoloson. Il y a un problème de placement de vos simples côtes. La bonne syntaxe est la suivante : "SELECT DISTINCT nom_commune FROM liste_communes WHERE nom_commune LIKE '" & moteur.Text & "*'".

[@mamyantenainarasoloson778]

@ Merci. Je vais essayer.

[@mamyantenainarasoloson778]

J'ai essayé mais il ne se passe rien dans la zone de liste !?

@@mamyantenainarasoloson778 Cela signifie que vous avez un autre souci, antérieur ou postérieur dans le code.

[@ericmpengele-3478]

👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍

[@saad22022]

Bonjour, comment vous avez fait pour la recherche des communes sans utiliser le code VBA ?

Bonjour. C'est un critère de requête dynamique qui permet de faire le lien avec le sous formulaire dont elle remplit le contenu au clic sur le bouton. Cette requête se nomme : Extraction_dynamique. Elle est présente dans la source offerte au téléchargement : www.bonbache.fr/saisie-semi-automatique-en-vba-access-210.html

[@saad22022]

@ Je vous remercie. Comment s'appelle le tableau dans lequel vous affichez des donnés ?

Il s'agit d'un sous formulaire. Tout cela est expliqué dans la formation.

[@kouamebertrandago5325]

Bonjour Monsieur je suis vos vidéos qui sont très riche elles m'ont permis d'avancer énormément. J'ai une question: je m'exerce sur un programme pour une supérette et j'aimerai utiliser un lecteur code barre, normalement après un scanne les info s'affichent l'à ou se trouve le focus. Apres avoir trouvée le code correspondant au produit comment faire un affichage auto de la table produit

Bonjour Monsieur et merci pour votre message. A mon sens vous devez déclencher un code VBA sur un événement précis : After_Update de la zone en question. En d'autres termes, cet événement réagit à la mise à jour des informations dans la zone. Donc le code VBA inclus dans les bornes de la procédure s'exécute pour commander l'affichage de l'élément que vous souhaitez.

[@kouamebertrandago5325]

@ Bonjour monsieur merci pour votre disponibilité et de votre promptitude. je vais m’exercer et vous faire un retour de la suite. Cordialement....

[@kouamebertrandago5325]

@ Merci Monsieur cela fonctionne lorsque je click dans le champs suivant ou même quand j’appuie la touche enter les info s'affichent mais j'aimerais savoir s'il est possible que les info s'affiche automatiquement sans que je ne click ou même la touche entré?

Il y a tout un tas d'autres événements associés à un textBox comme sur entrée qui se déclenche dès qu'une lettre est tapée, donc dès qu'un scan est réalisé ou encore Sur changement à essayer. Ces événements sont censés déclencher le code automatiquement à réception de la donnée.

[@philipperivero6438]

Bonjour, je bois tes paroles :D ... comment faire pour lorsque on vide le champ moteur, que la listbox se ferme ? on notera que lorsque on supprime le contenu on a un son type erreur VBA... un grand merci.

Bonjour Philippe et merci beaucoup pour votre message. Il suffit d'exploiter la propriété visible du contrôle : If moteur.Text = "" Then liste_villes.Visible = False Exit Sub End If

[@atchao90]

salut cela fait un bout de temps que je suis vos tutos et cela m'aide enormement. cependant je cree une base de donnee pour les membres d'une eglise et j'aimerais ajouter pour chaque membre une photo, mais je ne sais comment. svp pouvez-vous faire un tuto a ce sujet? Merci Cordialement

Bonjour, je vous remercie pour votre retour. Pour les images dans les formulaires, c'est très simple, en création de table, vous attribuez le type de données Objet OLE au champ. Ensuite depuis la table ou le formulaire conçu sur cette table de préférence, vous réalisez un clic droit / Insérer l'objet et vous désignez l'image. Cependant, si vous souhaitez qu'elle soit visible sur le formulaire directement sans cliquer dessus, vous devez choisir des images de type Bitmap (BMP). Bonne soirée.

[@atchao90]

Salut a vous, Merci pour votre reponse. Jaimerais savoir comment imprimer des utilisateurs avec leurs photo

Bonjour, c'est tout l'intérêt des fonctionnalités d'Access. Une fois que vous avez construit votre formulaire sur la ou les tables, celui-ci vous permet de modifier les utilisateurs, ajouter des photos etc.. Ensuite, vous devez construire de la même façon. L'état est un rapport, une vue figée mise en page destinée à l'impression. Et vous pouvez même créer des interactions entre les formulaires et les états, comme le propose cette formation : www.bonbache.fr/apprendre-a-creer-des-etats-access-et-a-les-relier-aux-formulaires-74.html

[@atchao90]

Merci Monsieur pour votre reponse, voila que jai un nouveau soucis: comment Ouvrir un formulaire à partir d'une ligne de données d'une zone de liste afin de modifier les informations qui y sont rattachées. Merci cordialement

Bonjour Monsieur, cette formation : www.bonbache.fr/transmettre-donnees-entre-formulaires-par-vba-access-192.html montre comment accéder à un formulaire après un choix par le biais d'une liste déroulante afin d'y accéder en conception par le code VBA.

[@kouamebertrandago5325]

Bonjour monsieur, j'ai suivi vos vidéo et je me suis exercé sur un logiciel pour une supérette. Je tenais à vous remercier car il fonctionne parfaitement. Mon seul souci c'est comment faire pour que l’utilisateur n'ai pas accès a la base de donnée une fois le projet lancé?.

Bonjour Monsieur et merci beaucoup pour votre message en retour. Vous pouvez définir les options Access : www.bonbache.fr/restreindre-les-autorisations-et-acces-a-une-base-de-donnees-98.html Et pour plus de sécurité, vous n'autorisez l'accès que par console d'identification, en VBA : www.bonbache.fr/verrouiller-et-proteger-une-base-de-donnees-access-197.html

[@kouamebertrandago5325]

@ Merci Monsieur de votre disponibilité. Je me met au travail et je vous fait un retour. Cordialement....

[@kouamebertrandago5325]

@ Bonsoir Monsieur je vient lire le tuto via le lien que vous m'avez envoyé, encore une fois je vous remercie car je suis rassuré de savoir qu'on ne peut plus voir les tables pour une modification. Merci monsieur

Je vous en prie Monsieur et merci à vous pour l'intérêt que vous portez à ces travaux.

[@karimfares9280]

Bonjour ça ne marche pas avec access 2007

Bonjour Karim. Je suis très étonné, c'est du VBA, il n'y a pas de raison.

[@stephanejycanel-imhotectec4557]

Merci Prof! il y a un problème lorsqu'il y a des noms dont on trouve des apostrophes (') . Merci de m’éclaircir svp. le tuto est très bon!!!!!!!!

Bonjour Stéphane, Oui tout à fait les apostrophes sont des caractères latins non prévus par les développeurs américains aux balbutiements des ordinateurs. C'est la raison pour laquelle dans cette base toutes les apostrophes sont remplacées par des espaces. Une solution que je vous suggère est de remplacer dans la table l'apostrophe par un caractère remarquable comme # ou @ par exemple et de détecter par le code VBA la saisie de l'apostrophe puis de rechercher à la place ce caractère pour restituer le nom de ville comme si de rien n'était. Dans certains langages, comme le PHP, il existe même des fonctions dédiées pour traiter ces caractères spéciaux.

[@stephanejycanel-imhotectec4557]

Rossetti Stéphane merci beaucoup

Je vous en prie Stéphane, c'est avec plaisir.

[@David-wy8hu]

Bonjour merci pour le tuto mais un peu plus compliqué si on a plusieurs champs de recherche. Pour ma part j'en ai 3 et je bloque.

Bonjour et merci pour votre message. Pour votre problématique, il s'agit de recouper les critères par la syntaxe SQL que j'enseigne en formations.

[@David-wy8hu]

@ Merci pour votre retour. Je vais essayer de faire çà.

Je peux aussi vous proposer cet exemple en VBA Excel : www.bonbache.fr/extraire-les-donnees-d-une-base-access-dans-excel-249.html

[@David-wy8hu]

@ Ok merci. Est ce que le code fonctionne sous Access ?

Oui, il faut l'adapter pour pointer sur les objets du formulaire à la place des cellules Excel.

[@bipbipcoyote5520]

Cette vidéo est intéressante car elle fait découvrir quelques astuces, mais que du blabla. Je suis d'accord qu'une description détaillée est parfois utile, mais trop de détails tuent le détail... Maintenant, il y a des trucs moins sophistiqués pour trier et filtrer des données. Tout dépend de l'interface que l'on veut offrir à l'utilisateur final . J'en ai plusieurs exemples sur bipbipcoyote2000.be/pages/access.php et la plus pratique et rapide est le double clic sur un champ , par exemple ici sur un champ nommé "Noms". On peut reproduire ce code sur chaque champs du formulaire Private Sub Noms_DblClick(Cancel As Integer) DoCmd.ApplyFilter , "Noms = '" & [Noms] & "'" End Sub

Bonjour et merci pour votre message. Il ne s'agit pas de trier et filtrer les données dans cette formation, mais de livrer une saisie semi-automatique ce qui est légèrement plus complexe. C'est pourquoi le procédé est décomposé. Les explications me semblent nécessaires et justifiées. Je propose maintes formations au sujet des filtres et tris dynamiques et sans faire intervenir VBA. Donc c'est encore plus simple. Il s'agit simplement de faire interagir les objets Access comme les contrôles de formulaire avec les requêtes pour bâtir des critères dynamiques, grâce au générateur d'expression.

[@bipbipcoyote5520]

Bonjour, j'ai bien dit "cette vidéo est intéressante", n'y voyez pas une critique négative, c'est du très bon travail. J'ai été juste un peu gêné à certains endroits par la lenteur du discours, mais c'était sans doute dû à mon impatience de découvrir les étapes suivantes. En effet l'affinage de la zone de liste est intéressant mais au final, cela sert bien à appliquer un filtre. Perso, je n'ai rien contre VBA , au contraire. D'ailleurs, je me souviens que l'on conseillait de convertir toutes les macros en VBA car en exécution sur de grosses base de données, le programme est plus rapide... Bien sûr, de nos jours, avec les performances des pc modernes, on y voit guère la différence... Bref, merci pour ce tuto, que j'ai refait et incorporé dans mon aide mémoire, bonne continuation

Bonjour, oui en effet, on exploite les propositions intuitives pour réaliser une extraction sélective afin de démontrer l'intérêt de cette saisie automatique qui reste le point central de cette formation. Je décompose volontairement les explications pour prendre soin de ne pas aller trop vite. Vous avez sans doute déjà de bonnes bases avec Access et VBA. Dans votre cas, je comprends que certaines explications ne semblent pas nécessaires. En revanche, je me mets à la place de tous ceux qui souhaitent reproduire l'application sans souci et sans avoir les prérequis. En tous cas merci pour votre intérêt et pour votre message.

[@thiernodiallo5394]

Bonjour Rosseti ,Merci de vos vidéos sa m'a bcp aidées sur ma conception de ma BDMai parexemple si on voulais faire un calcul dans une formulaire avec une formule polynomiale y= f + e*V + d*V ^ 2+ c*V ^ 3 + b*V ^ 4 + a*V ^ 5 avec a,b,c,d,e et f connu et varie une valeur min et max et sa à l'utilisateur de le mettre Comment procéder ? Cordialement

Bonjour cher Monsieur, tout d'abord merci pour votre retour. Concernant votre problème qui résulte dans la résolution d'une équation à plusieurs inconnues, je peux vous proposer cet exemple en VBA Excel : www.bonbache.fr/distributeur-de-billets-en-visual-basic-excel-143.html qui consiste à résoudre une équation à 3 inconnues pour simuler un distributeur de billets et fournir les coupures correspondant au montant demandé au guichet en fonction des coupures disponibles. Dans votre cas, il me semble donc qu'une imbrication de boucles consistant à faire varier chacune des variables à chaque passage et à vérifier si l'égalité correspond, devrait faire l'affaire.

[@babacardiallo4942]

Bonjour cher professeur je tiens a vous félicité vraiment le tuto clair est facile à comprendre. sinon j'ai un problème concernant la syntaxe liste_communes.RowSource = "SELECT DISTINCT Nom_Commune FROM Liste_communes WHERE Nom_Commune LIKE "" & moteur.Text & "* "" ca marche pas je sais si c'est à cause des signe ' car avec ma version d'access ca ne prend que les signe ".

Bonjour Babacar, il ne s'agit pas d'une question de version mais de syntaxe, voici la bonne : liste_communes.RowSource = "SELECT DISTINCT Nom_Commune FROM Liste_communes WHERE Nom_Commune LIKE '" & moteur.Text & "*'" Il y a une simple côte juste avant la double côte située après le LIKE et une simple côte juste après l'étoile. En recopiant celle que je vous ai donnée, cela devrait fonctionner.

[@babacardiallo4942]

Merci Stéphane vous avez raison c'etait un probleme de syntaxe. Je renouvelle mes félicitations au cher professeur et bonne continuation

Je vous en prie Babacar

[@frogeregis]

3♥♥♥

[@khadimseye3186]

merci Rosseti mai on a besoin la video complète du A a Z. comment positionner la zone de texte et la fenetre qui affiche les données