- Module client serveur avec api winsock pour chat et recherches de documents + access
- Problème Pilotage excel à partir d'Access (ouverture de module, insertion)
- Comment supprimer un module de Formulaire en VBA Access
- [VB6 + Access] Problème avec des requêtes dans un module
- Table access depuis un module
Appeler une procedure dans un module access [Résolu]
Signaler
skwalig
skwalig
- Messages postés
- 15
- Date d'inscription
- mercredi 9 juin 2004
- Statut
- Membre
- Dernière intervention
- 2 février 2009
skwalig
- Messages postés
- 15
- Date d'inscription
- mercredi 9 juin 2004
- Statut
- Membre
- Dernière intervention
- 2 février 2009
A voir également:
- Module access
- Module visual basic - Meilleures réponses
- Visual basic module - Meilleures réponses
- Visual Basic / VB.NET : Module access : requetesql->query->ouerture report->exportation du - Guide
- Utiliser un module Access via VB.NET ✓ - Forum - VB.NET
- Exporter un module Access 97 ✓ - Forum - Visual Basic 6
- Lire code VBA des module Access depuis VB6 ? ✓ - Forum - Visual Basic 6
- Module client serveur avec api winsock pour chat et recherches de documents + access - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
6 réponses
skwalig
- Messages postés
- 15
- Date d'inscription
- mercredi 9 juin 2004
- Statut
- Membre
- Dernière intervention
- 2 février 2009
Problème résolu,
voici le code:
dim bddAccess as Application
set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase bddPath ' bddPath=Chemin d'accès à la base
' Pour lancer une macro:
bddAccess.DoCmd.RunMacro ("nomMacro")
' Pour appeler une procédure:
bddAccess.Application.Run ("nomProcedure")
voici le code:
dim bddAccess as Application
set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase bddPath ' bddPath=Chemin d'accès à la base
' Pour lancer une macro:
bddAccess.DoCmd.RunMacro ("nomMacro")
' Pour appeler une procédure:
bddAccess.Application.Run ("nomProcedure")
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Salut,
Voici un petit exemple :
Private Sub button_click()
Call Look("Toto")
End sub
Private Sub Look(sString As String)
If LenB(sString) = 0 then Exit Sub
MsgBox sString
End sub
A+
Exploreur
Linux a un noyau, Windows un pépin
Voici un petit exemple :
Private Sub button_click()
Call Look("Toto")
End sub
Private Sub Look(sString As String)
If LenB(sString) = 0 then Exit Sub
MsgBox sString
End sub
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Re,
Voir ici aussi, pour plus d'informations....
A+
Exploreur
Linux a un noyau, Windows un pépin
Voir ici aussi, pour plus d'informations....
A+
Exploreur
Linux a un noyau, Windows un pépin
skwalig
- Messages postés
- 15
- Date d'inscription
- mercredi 9 juin 2004
- Statut
- Membre
- Dernière intervention
- 2 février 2009
Dans mons cas, le Call Look("Toto") ne fonctionne pas car VB ne connait pas la fonction Look, elle est dans un module de la base access.
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Re,
Effectivement, j'ai dit une boulette...j'ai pas percuter que c'était un module intègre à la bdd....Je vais regarder sur le net si je trouve une information....
A+
Exploreur
Linux a un noyau, Windows un pépin
Effectivement, j'ai dit une boulette...j'ai pas percuter que c'était un module intègre à la bdd....Je vais regarder sur le net si je trouve une information....
A+
Exploreur
Linux a un noyau, Windows un pépin