A voir également:
- Verifier si un formulaire est ouvert Access
- Verifier un lien - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
- Formulaire de réclamation facebook - Guide
- Vérifier si mot de passe piraté - Guide
- Verifier compatibilite windows 11 - Guide
2 réponses
Utilisateur anonyme
9 août 2004 à 16:02
9 août 2004 à 16:02
Bonjour,
Personellement, je ne connais pas de fonction ou de propriété
qui permettent cela, voici comment je procède :
Public Sub TesteNom()
Dim NomP, NomA As String
Dim Message As String
NomP = FormulairePresent("Formulaire Table Vidéo")
NomA = FormulaireActif("Formulaire Table Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message
NomP = FormulairePresent("Formulaire Titre Vidéo")
NomA = FormulaireActif("Formulaire Titre Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message
End Sub
'
Public Function FormulairePresent(Recherche As String) As String
Dim DBCourante As Database
Dim DocForm As Document
Dim Compteur As Integer
ReDim FastrFormNames(0)
Set DBCourante = CurrentDb()
Compteur = 0
FormulairePresent = ""
For Each DocForm In DBCourante.Containers("Forms").Documents
If (DocForm.Name = Recherche) Then
FormulairePresent = Recherche
End If
Next
End Function
'
Public Function FormulaireActif(Recherche As String) As String
Dim DBCourante As Database
Dim Formulaire As Form
Set DBCourante = CurrentDb()
FormulaireActif = ""
For Each Formulaire In Forms
If (Formulaire.Name = Recherche) Then
FormulaireActif = Recherche
End If
Next
End Function
Lupin
Personellement, je ne connais pas de fonction ou de propriété
qui permettent cela, voici comment je procède :
Public Sub TesteNom()
Dim NomP, NomA As String
Dim Message As String
NomP = FormulairePresent("Formulaire Table Vidéo")
NomA = FormulaireActif("Formulaire Table Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message
NomP = FormulairePresent("Formulaire Titre Vidéo")
NomA = FormulaireActif("Formulaire Titre Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message
End Sub
'
Public Function FormulairePresent(Recherche As String) As String
Dim DBCourante As Database
Dim DocForm As Document
Dim Compteur As Integer
ReDim FastrFormNames(0)
Set DBCourante = CurrentDb()
Compteur = 0
FormulairePresent = ""
For Each DocForm In DBCourante.Containers("Forms").Documents
If (DocForm.Name = Recherche) Then
FormulairePresent = Recherche
End If
Next
End Function
'
Public Function FormulaireActif(Recherche As String) As String
Dim DBCourante As Database
Dim Formulaire As Form
Set DBCourante = CurrentDb()
FormulaireActif = ""
For Each Formulaire In Forms
If (Formulaire.Name = Recherche) Then
FormulaireActif = Recherche
End If
Next
End Function
Lupin