Formulaire d'inscription en VBA Excel

Formations Excel, Access et bien d'autres

Подписаться 104 тыс.

Просмотров 8 тыс.

50% 1

Inscrire un candidat en base de données Access externe par le biais d'un Userform Excel géré par le code Visual Basic exécutant des requêtes SQL. Après avoir rempli les informations requises, l'utilisateur clique sur le bouton Valider du formulaire. Un code VBA se charge de contrôler la validité des données, notamment pour l'adresse Mail. Puis, il exécute une première requête SQL pour vérifier que l'identifiant n'existe pas déjà en base de données. Dès lors, l'ajout d'information est effectué dans la base de données Access, par une requête SQL action, pilotée par le code VBA Excel. Ce volet est le troisième des six formations consistant à bâtir l'application Excel pour évaluer les candidats, par le biais de QCM archivés en base de données Access externe.
#ApplicationExcel
#ProgrammationExcel
#VbaExcel
#ApprendreVBA
Sources et formation détaillée sur le site Web :
www.bonbache.f...

Опубликовано:

19 сен 2024

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист

Посмотреть позже

Комментарии : 16

@romlef526 5 лет назад

bonsoir stéphane, excellent tuto !!!!! c'est très intéressent cette mise en place avec access !!! merci à vous, je garde très précieusement :) :) c'est passionnant, merci encore , passez une bon WE

5 лет назад

Bonsoir mon Cher Rom Lef, comme toujours votre passage est précieux. Merci infiniment et excellent Week End à vous.

@frogeregis 5 лет назад

Encore bravo Stéphane

5 лет назад

Merci beaucoup François

@micropat3883 5 лет назад

Bonjour Stéphane : Encore bravo pour cette formation d'une grande utilité. j'attend avec impatience la suite des 3 autres formations. Petite remarque le volume des enregistrements de vos formations est un peut bas ce qui nous impose de mettre le volume du pc à 100 et le volume de vidéo du site également à fond.

5 лет назад

Merci Micropat pour votre message en retour. Le volume sonore est réglé dans les formations suivantes.

@martinvasseur743 5 лет назад

Bonjour Stéphane, j'ai un petit problème ; je n'arrive pas a avoir accès à la base de données Access depuis le lien RAR sur votre site. Pourrais-je avoir de l'aide s'il vous plaît ?

5 лет назад

Bonjour Martin, le lien est tout à fait fonctionnel, je vous le confirme. Il est proposé vers le début de la formation : www.bonbache.fr/formulaire-d-inscription-en-vba-excel-334.html Et la base de données y figure bien.

@martinvasseur743 5 лет назад

@ oui merci par contre j'ai un soucis au niveau du chemin d'accès vers la base de données access, en effet j'ai réunis le fichier Excel et le fichier access dans un dossier sur mon bureau pouvez vous m'aider s'il vous plaît car il m'affiche une erreur dans le test final... merci d'avance

5 лет назад

Le bureau est absolument déconseillé. Vous devriez placer ces sources dans un dossier du disque, de préférence non protégé et le souci disparaîtra, dans la mesure ou vous reproduisez scrupuleusement le code VBA.

@martinvasseur743 5 лет назад

@ Super ça fonctionne parfaitement 😀 Passons à l'étape 4 ! Merci pour ces vidéos très intéressantes

5 лет назад

Je vous en prie Martin.

@ss-lp6eh 4 года назад

bonjour Mr.Stéphane:je tien tout d'abord à vous remercier pour vos vidéos précieux et instructifs. quand j’exécute le code il m'affiche erreur au niveau de "MsgBox 'Cet identifiant ne peut pas être utilisé' (erreur de compilation). merci de m'aider. Private Sub Valider_Click() Dim chemin_bd As String: Dim requete As String Dim enr As Recordset: Dim base As Database Dim test As Boolean If (mel.Text "And Nom.Text " And Prenom.Text " And vid.Text ") Then If (mel.Text "Votre adresse Mail" And Nom.Text "Votre nom" And Prenom.Text "Votre prénom" And vid.Text "Votre identifiant de connexion") Then If (InStr(1, mel.Text, ".") > 0 And InStr(1, mel.Text, "@") > 0 And Len(vid.Text) > 3) Then test = False chemin_bd = ThisWorkbook.Path & "questionnaires-evaluations.accdb" Set base = DBEngine.OpenDatabase(chemin_bd) Set enr = base.OpenRecordset("SELECT inscrit_identifiant FROM msy_inscrits WHERE inscrit_identifiant= " & vid.Text & "", dbOpenDynaset) If (enr.RecordCount = 0) Then requete = "INSERT INTO msy_inscrits (inscrit_identifiant, inscrit_nom, inscrit_prenom, inscrit_mail) VALUES (" & vid.Text & "," & Nom.Text & "," & Prenom.Text & "," & mel.Text & ")'" base.Execute requete test = True Else MsgBox 'Cet identifiant ne peut pas être utilisé' End If enr.Close base.Close Set enr = Nothing Set base = Nothing Else MsgBox 'Votre adresse mail n'est pas conforme' End If Else MsgBox 'Toutes les informations sont requises' End If Else MsgBox 'Toutes les informations sont requises' End If If (test = True) Then Connexion.identifiant.Value = vid.Text Inscription.Hide Connexion.Show End If End Sub

4 года назад

Bonjour. Pour le MsgBox, je vous conseille d'utiliser des doubles côtes (Guillemets) et non des simples côtes. Mais surtout, vous avez plusieurs erreurs de syntaxe dans la requête Sql. Il faut alterner les simples et doubles côtes : "INSERT INTO msy_inscrits (inscrit_identifiant,inscrit_nom,inscrit_prenom,inscrit_mail) VALUES ('" & vid.Text & "','" & Nom.Text & "','" & Prenom.Text & "','" & mel.Text & "')"

@ss-lp6eh 4 года назад

@ merci Mt stéphane.mais si je met simple cõtele code m affiche erreur

4 года назад

@@ss-lp6eh Il faut alterner les simples et doubles côtes pour l'égalité avec les parties textuelles, selon la syntaxe que je vous ai fournie. Si malgré cela, il y a encore une erreur, cela signifie qu'il y a d'autres soucis de syntaxe dans votre code.