
| auteurs : Lou Pitchoun, Starec, jpcheck | Voici un code permettant d'accéder au code d'une base Access non ouverte. Function MajCodeVBA (PathBase As String ) As Boolean
Dim db_encours As DAO. Database
Dim db_temporaire As DAO. Database
Dim RS As DAO. Recordset
Dim strSQL As String
Dim temp As VBComponent
Dim AppAccess As Access. Application
Dim Accmodule As Module
Dim i As Integer
Dim j As Integer
Dim oAccess As New Access. Application
Dim oDb As DAO. Database
strSQL = " SELECT ancienne_valeur, nouvelle_valeur from T_CONVERSION_Queries; "
Set RS = CurrentDb. OpenRecordset (strSQL)
With oAccess
. OpenCurrentDatabase (PathBase)
Set oDb = . CurrentDb
End With
For i = 1 To oAccess. VBE . VBProjects (1 ). VBComponents . Count
For j = 1 To oAccess. VBE . VBProjects (1 ). VBComponents . Item (i). CodeModule . CountOfLines
Do Until RS. EOF
Debug. Print oAccess. VBE . VBProjects (1 ). VBComponents . Item (i). CodeModule . Lines (j, 1 )
oAccess. VBE . VBProjects (1 ). VBComponents . Item (i). CodeModule . ReplaceLine j, Replace (oAccess. VBE . VBProjects (1 ). VBComponents . Item (i). CodeModule . Lines (j, 1 ), RS!ancienne_valeur, RS!nouvelle_valeur)
RS. MoveNext
Loop
RS. MoveFirst
Next j
Next i
RS. Close
Set oAccess = Nothing
oDb. Close
Set oDb = Nothing
MajCodeVBA = True
Exit Function
End Function
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2004
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|