Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How can I get the soure code from a deleted module
- Thread starter jcarneir
- Start date
hennep
Programmer
- Dec 10, 2000
- 429
I think it is lost too, but I was able to recover some binary data from a deleted module using this code:
Public Sub SaveDeletedModule(sModuleName As String)
Dim rs As Recordset
Dim f As Integer
Set rs = CurrentDb.OpenRecordset("select * from MSysModules2 where Flags=4 and name='" & sModuleName & "'", dbOpenSnapshot)
f = FreeFile
Open "c:\module.txt" For Output As #f
Print #f, rs.Fields("Module"
Close #f
rs.Close
Set rs = Nothing
End Sub
Can sombody tell me if this is the compiled data of the module's source ?
Public Sub SaveDeletedModule(sModuleName As String)
Dim rs As Recordset
Dim f As Integer
Set rs = CurrentDb.OpenRecordset("select * from MSysModules2 where Flags=4 and name='" & sModuleName & "'", dbOpenSnapshot)
f = FreeFile
Open "c:\module.txt" For Output As #f
Print #f, rs.Fields("Module"
Close #f
rs.Close
Set rs = Nothing
End Sub
Can sombody tell me if this is the compiled data of the module's source ?
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question