Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 120 fois - Téléchargée 26 fois
' programme réalisé par Minta Alias Momo Function ouvrirForm() Dim chMsg As String, recevoir As String Dim chEntrée As String, chFiltre As String Dim fonct As String, chMsg1 As String Dim champsEntré As String, champsNom As String Dim message As String tp: chMsg = "Entrez le nom de la Forme " _ & "Que vous voulez voir afficher." ' Invite l'utilisateur à entrer des données. chEntrée = InputBox(chMsg) 'Invite l'utilisateur à entrer le nom d'un Attribu champsNom = "Entrez le nom de la colonne de la table correspondant à la forme " _ & "Que vous voulez voir afficher." champsEntré = InputBox(champsNom) 'nom du critère de recherche (filtre)nom de champ chMsg1 = "Entrez le critère de recherche sur la colonne spécifiée " _ & "Que vous voulez voir afficher." fonct = InputBox(chMsg1) 'vérification que les champs sont bien renseillés If (chEntrée = "") Or (fonct = "") Or (champsEntré = "") Then message = MsgBox(" HÉ HOP! RIEN NE VA PLUS,VEUILLEZ ENTRER LES BONNES VALEURS ", vbYesNo) If message = vbYes Then 'chEntrée = InputBox(chMsg) GoTo tp: ElseIf message = vbNo Then MsgBox "La violation n'est pas une bonne chose. " _ & "Ce n'est pas faute d'avoir éssayé, merci à vous!" End End If Else MsgBox " Affichage du nom de la forme " & chEntrée & " Tout va bien!" 'L 'exemple suivant vous montre comment ouvrir un formulaire 'de la base de données en cours. Seuls sont inclus les choix que vous entrez. 'malheureusement je ne gère pas encore l'erreur sur le nom 'de la forme quand il n'existe pas. 'aussi quand les deux autres champs n'existent pas mais avec le bon nom de la forme DoCmd.OpenForm "" & chEntrée & "", , , "[" & champsEntré & "] = '" & fonct & "'" End If End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.