内存不足!!
我的access程序运行不正常,常常占四十几兆内存,出现内存不足的现象
我怀疑是以下地方内存泄漏了,大家帮忙指点一下
Dim db As Database
Dim rel1 As Relation
Set db = CurrentDb
Set rel1 = db.CreateRelation("relModule_" & dtabName, "模块", dtabName)
With rel1
.Fields.Append rel1.CreateField("模块码")
.Fields!模块码.ForeignName = "IT_MCODE"
End With
db.Relations.Append rel1
这里是否还需要Set db = Nothing?
DoCmd.Echo False
DoCmd.OpenReport "report", acViewDesign
With Reports("report")
.Visible = False
.RecordSource = strSql
End With
DoCmd.Close acReport, "report", acSaveYes
DoCmd.Echo True
这样是否会造成内存泄漏?