Option Compare Database
Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Functionهذا هو الكود ... ارجو من لديه فكرة عن تعطيل هذا الكود ووتوابعه "
مع العلم لايمكن حفظ التعديلات ... لو تمكنت من فتح قاعدة البيانات فستظهر هذه الرسالة المزعجة ...
the microsoft jet database engine stopped the process because you and another user
وبعد ذلك
is not an index in this table
... وراحت قاعدة البيانات

