Comment ouvrir un formulaire de la base de données en cours, version vba.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 954 fois - Téléchargée 26 fois

Contenu du snippet

Ce code sert à afficher le resultat d'une recherche effectuée dans un formulaire de la base de données en cours en fonction de la colonne nommée et du critère de recherche. Vous devez le copier dans un module que vous nommerez à votre guise.

Source / Exemple :


' 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

Conclusion :


Vous trouverez sur ce même site des versions améliorées d'ici quelques temps. Si vous avez des idées faites moi part à minta@canataweb.com

A voir également

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.

Du même auteur (cs_minta)