-
احصائيات المنتدى
-
اجمالي الموضوعات94.4k
-
اجمالي المشاركات657k
-
-
احصائيات الاعضاء
-
مشاركات
-
الملف بصيغة ACCDE ولا يمكن التعديل عليه يا صديقي
-
تم تعديل الكود والتأكد منه وتجربته . انسخه إلى مديول جديد ، واستدعيه بالأمر : ( CopactMyDb ) فقط حدد اسم قاعدة البيانات الخلفية التي بجانب القاعدة الرئيسية . Public Function compactDb(ByVal mydb As String, ByVal mydbb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim f As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) f = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As f Print #f, "CHCP 1256" Print #f, ":checkldb1" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #f, Access & " """ & mydbb & """" & mypass & " /compact" If openIt Then Print #f, ":checkldb2" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #f, Access & " """ & mydb & """" Else Print #f, "del ""%~f0""" End If Close f End Function Public Function CopactMyDb() On Error Resume Next Dim Mypath, CurrDB, BEndTBL As String BEndTBL = "B-TBL.accdb" 'اسم قاعدة البيانات الخلفية CurrDB = CurrentProject.Path & "\" & CurrentProject.Name Mypath = CurrentProject.Path & "\" & BEndTBL Call compactDb(CurrDB, Mypath, "", True) Shell """" & Left(Mypath, InStrRev(Mypath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function Desktop.zip
-
ألا يوجد حل آخر أخي دون الإخفاء لأن الملف يومياً يدخل عليه بيانات وعند إخفاء الصفوف تظهر هذه الرسالة " لا يمكن إزاحة العناصر خارج الورقة "
-
بواسطه كمال على طارق · قام بنشر
السلام عليكم أساتذتى وأحبائى الكرام مشرفين المنتدى الأفاضل .. كنت أود الإستفسار عن هذا , فهل هذا عطل ومشكلة بالمنتدى أم هذا أمر طبيعى ؟!!! وهو ان يكون هناك تفاعل وردود بالمشاركات على الرغم ان عدد القراءات 0 . صفر ؟!!! كما بالصورة باليسار -
جزاك الله خير اخ جعفر حليت لي مشكلة كنت عاجز عن حلها. يبقى فقط كيفية التوسيط ان شاء الله تجد لها حل. ملاحظة يظهر خطاً عندما لايحتوي الحقل المُراد دمجه على بيانات.
-
-
أحدث الموضوعات
-
اعلي المشاركون تقييماً
-
اعلي التحميلات من مكتبة الموقع
-
-
مدونات فرق الموقع
-
بواسطه أ / محمد صالح في مدونة أ / محمد صالح
-
المتواجدين الان (اضغط هنا للقائمه الكامله)