04-08-13, 06:43 AM
السلام عليكم
- لفترض أن إسم الفورم الأول أو الرئيسي في البرنامج هو Form1 فسيكون كود إغلاق الفورمات كالتالي :
- وكود إغلاق الكائنات إن كانت مفتوحة كالتالي :
- لا أعلم أي من هذه تكون كائنات قاعدة البيانات وأيها للجدوال ، لابد أن تغلق كائنات الجداول أولاً ثم كائنات قاعدة البيانات :
- تحياتي .
- لفترض أن إسم الفورم الأول أو الرئيسي في البرنامج هو Form1 فسيكون كود إغلاق الفورمات كالتالي :
كود :
Dim Frm As Form
For Each Frm in Forms
IF Frm.Name <> "Form1" Then
Unload Frm
End IF
Next- وكود إغلاق الكائنات إن كانت مفتوحة كالتالي :
- لا أعلم أي من هذه تكون كائنات قاعدة البيانات وأيها للجدوال ، لابد أن تغلق كائنات الجداول أولاً ثم كائنات قاعدة البيانات :
كود :
IF rs.State = 1 Then rs.close
IF db.State = 1 Then db.close
IF rb.State = 1 Then rb.close
IF mosh.State = 1 Then mosh.close
Set rs = Nothing
Set db = Nothing
Set rb = Nothing
Set mosh = Nothing
end- تحياتي .
