Force

السلام عليكم اذا كانت قاعدة البيانات تحتوي على صور مضمنه في الجداول فهذا بلا شك يزيد جم القاعدة بشكل كبير ولذلك يجب حفظ الصور في ملف خاص على الجهاز وربطها بالجداول عن طريق مسار الصورة فقط ولا تحمل لقاعدة البيانات

للرفع

يتحمل الاكسس على حسب ما قرات عنه لغاية 1 غيغا بايت من متضمناً كائنات الاكس الجداول والنماذج والاستعلامات والماكروات الخ .. ويعمل على شبكه لا تزيد عن عشر طرفيات فقط وانت تقرر ذلك على حسب حجم البيانات تتوقع يتعدى 1 غيغا بايت

تفضل هذا الكود يصلح لحقل واحد او اكثر للتاكد من تكرار ارقام السجلات هذا المثال على ثلاثة حقول كلها تمثل مفتاح اساسي واحد غير اسم الجدول واسماء الحقول التي لديك فقط ضعه في حدث بعد التحديث لاخر حقل في النموذج If (Eval("DLookUp(""[On]& [Tow]& [Three]"",""[Table]"",""[On]& [Tow]& [Three] =form![On]& [Tow]& [Three]"") Is Not Null")) Then Beep MsgBox "Masseg " DoCmd.CancelEvent Forms![Table]![On] = Null Forms![Table]![Tow] = Null Forms![Table]![Three] = Null End If SendKeys "{f2}", False DoCmd.SetWarnings False

السلام عليكم المشكله ليست في المنتدى على ما اظن ان هناك كود يوضع في التاج او التاق للمنتدى لمنع حفظ الصفحات وقد مررت على كود من قبل اظنه بالجافا او بالهتمل يمنع حفظ الصفحات وايضا هناك كود لمنع النسخ ولكن لا اعرفه والله اعلم

نعم اخي الكريم يمكن ذلك عن طريق ربط الجداول بين قواعد البيانات يعني لو عندك نموذج في القاعدة المفتوحه تريد ان يكون مصدر بياناته من جدول في قاعدة بيانات اضغط بزر الفاره الايمن على اطار الاكسس الداخلي اختر منها الخيار ربط جداول ستفتح لك نافذه تحديد قاعدة البيانات التي تريد ربط الجدول بالقاعدة المفتوحة اختر القاعدة ثم موافق سيظهر لك مربع حوار تحديد الجداول حدد الجدول المطلوب ثم اضغط موافق ستجد الجدول ضمن قسم الجداول الان اذهب الى النموذج واجعل مصدر بياناته هذا الجدول المرتبط فقط اذا رغبت ان يكون المصدر استعلام انشأ استعلام مصدره الجدول المرتبط او استورد الاستعلام من القاعدة الخارجيه واسند النموذج اليه

اذهب الى قائمة Tools واخر منها الاختيار الاخير Options سيظهر لك مربع حوار الخيارات اذهب الى التبويب Read ستج اسفل هذا التبويب زر متكوب عليه International settings اضغط عليه وسيظهر لك مربع صغير فيه بالاسفل عبارة Use Default encodink for all incoming messages ستجد يجانبها مربع فارغ اظغط عليه بالفاره لاضافة علامة الصح بداخله ثم اضغط على كلمة اوكي وخلاص راح تقرا اللغة العربيه من رسائل الياهو

مثال Timer.rar

للرفع ايضا

بسيط يا اخي افتح النموذج في عرض التصميم ثم اخرت اضغط على ايقونة خصائص النموذح في شريط الادوات بالاعلى بعدها اختر التبويب - حدث - اذهب الى البند الذي اسمه - عند عداد القوت - ضع الكود التالي مثلا اغلاق نموذج DoCmd.Close بعد ذلك اذهب الي البند الذي اسمه - الفاصل الزمني لعداد الوقت - ضع فيه عدد رقمي مثلا 1000 كل الف تساوي ثانية واحده افتح النموذج ستجده بعد ثانيه واحده من فتحه يغلق تلقائيا يمكن تغير الكود على حسب حاجتك مثلا تشغل نموذج اخر او تشغيل تبيطق او اشياء اخرة كثير وهذا اللي فهمته من سؤالك وهذا مثال على ذلك

السلام عليكم الكود صحيح وليس به اي مشكلة المشكلة في خصائص النموذج الذي تريد فتحه لذا اذهب الى قاعدة البيانات التي بها النموذج المراد فتحه افتح النموذج في عرض التصميم ومن خائص النموذج اختر التبويب -غير ذلك- وغير خيارات البند - منبثق - الى نعم وخيارات البند - شكلي او مشروط - الى نعم ثم اغلق قاعدة البيانات ثم اذهب الى قاعدة البيانات التي تريد فتح ذلك النموذج منها وضع الكود الذي كتبته في زر امر على النموذج عندها سيفتح النموذج كما تريد وهذا الكود تنقله كما هو فقط غير اسم مسار قاعدة البيانات واسم النموذج . Dim objAccess As Access.Application Dim strMDB, strForm As String Set objAccess = New Access.Application strMDB = "c:\DataBase.mdb" strForm = "Form1" With objAccess .OpenCurrentDatabase strMDB .DoCmd.OpenForm strForm End With

السلام عليكم جزاك الله خير يا التقني لكن هذه الطريقة لم تؤمن الحماية لفتح القاعدة وابطال عمل الشفت لانه بمقدور اي شخص اخر ان يفتح قاعدة البيانات بابطال زر عمل الشفت من برنامج اخر بالاكسس يعمل على ابطال عمل الشفت معمول لهذا الاساس

للرفع ايضا

السلام عليكم نعم يمكن تغيير خلفية النموذج اذهب الى خصائص النموذج واختر من التبويبات الموجودة بالخصائص التبويب تنسيق ستجد ضمن هذا التبويب بند اسمه صورة اضغط عليه وحدد الصورة التي تريد ان تكون خلفية للنموذج ومن البندين الذين بعد البند صورة ستجد البند وضع حجم الرسم وكذالك البند محاذاة الرسم عدلها على حسب حاجتك فقط

السلام عليكم القاعدة المرفقه ليس بها اي جدول شوف ابحث في المنتدى عن برنامج اسمه AccessFix وهو لسحب جدوال قواعد البيانات المعطوبة وجربة على القاعدة اللي عندك

للرفع

السلام عليكم شكرا لك اخي الكريم ولكن سبق ان بحثت في المنتدى ووجدت مثال ابو هادي وغيره ولكنها ليست هو المطلوب المهم هذا الكود وهو يقرأ حتى الجدول الثالث فقط واذا اضفت المستوى الرابع فانه لا يكون عقدة لكي اضيف مستوى خامس لها بل ينطوي تحت المستوى الثاني فقط ارجو ان اوصلت المعلومة جيده وهذا هو الكود Dim DB As DAO.Database, RS As DAO.Recordset Dim strOrderKey As String, strProductKey As String Me!TreeView.Nodes.Clear Set DB = CurrentDb Set RS = DB.OpenRecordset("Table1", dbOpenForwardOnly) Do Until RS.EOF Me!TreeView.Nodes.Add , , "r" & RS![AutoNumber], RS![CustomerName], "category0", "category1" RS.MoveNext Loop RS.Close ' Fill Level 2. Set RS = DB.OpenRecordset("Table2", dbOpenForwardOnly) Do Until RS.EOF strOrderKey = StrConv("o" & RS![AutoNumber], vbLowerCase) Me!TreeView.Nodes.Add "r" & RS![CodeNumber].Value, tvwChild, strOrderKey, _ RS![CustomerName], "category0", "category1" RS.MoveNext Loop RS.Close ' Fill Level 3. Set RS = DB.OpenRecordset("Table3", dbOpenForwardOnly) Do Until RS.EOF strOrderKey = StrConv("o" & RS![AutoNumber], vbLowerCase) strProductKey = StrConv(strOrderKey & "o" & RS![CodeNumber], vbLowerCase) Me!TreeView.Nodes.Add strOrderKey, tvwChild, strProductKey, _ RS![CustomerName], "category0", "category1" RS.MoveNext Loop Set RS = Nothing Set DB = Nothing لذا امل التكرم منك او من احد الاخوان الخبراء بوضع مستوى رابع وخامس وسادس الى اخره المهم ان يقرأ من الجداول مباشره وليس عن طريق استعلام وانشاء الله ما تقصرون

السلام عليكم هذا مثال لشجرة الحسابات اريد تعديلة ليتناسب مع ما اريده اريد فقط تعديل الكود ليستوعب اكثر من ثلاث مستويات ويستقي بياناته من الجداول فقط عندي مثلا خمس جداول لها علاقة راس باطراف لكل منها اريدها ان تظهر في الشجره كما في العلاقات لا اريد ان تستقي الشجرة البيانات من استعلام او غيره اريدها من الجداول مباشر وياليت اذا كان هناك تعديل للكود يعرض اكثر من عشرين جدول بينها علاقة باطراف وهذا رابط المثال مبسط لما اريدههنا http://www.officena.net/ib/index.php?showtopic=9782

شكرا لك على المساعدة والظاهر انك لم تفهم ما اريده بالضبط اول كود وضعته هو لوضع مسار ملف بتنسيق mdb او mde كلاهما بعد الضغط على زر ما يظهر لي براوز اختيار الملف المراد اضافة مساره في التكست بوكس انا اريد بدل من ذلك ان يقوم الكود باظهار البرواز (مربع حوار ادراج مجلد ) وليس ملف اختار منه اي مجلد موجود على الجهاز وبمجرد الضغط على هذا المجلد يضع مساره في التكست بوكس فقط على العموم انت ما قصرت اخي الكريم واذا فيه تعديل على الكود نفسه يكون احسن واذا ما فيه مشكور على كل حال

السلام عليكم مشكور يا اخ احمد بس ما تغير شي انت غيرت من تحديد قواعد بيانات الى كل التنسيقات ولم يختر مجلد انما يختار ملفات بكل التنسيقات المتوفره فقط انا اريده ان يختار مجلد ويضعه في تيكست بوكس كتحديد لمسار الملجد فقط على العموم شكرا لك واذا فيه حل اخر انا موجود

السلام عليكم اريد تعديل هذا الكود بدلا من اختيار ملف يختار مجلد والتعديل في سطر واحد على ما اظن Dim ofn As OPENFILENAME ofn.lStructSize = Len(ofn) ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = " Berwas " ofn.flags = 0 Dim A A = GetOpenFileName(ofn) If (A) Then Me![COPY_NM] = Trim$(ofn.lpstrFile) Else MsgBox "Cancel was pressed" End If Exit Sub CmdBrowseErrHandler: If Err.Number = 32755 Then MsgBox " You did not change the file name ", 64, "Alert Message " ElseIf Err.Number = 20477 Then MsgBox " Invalid file name ", 16, "Alert Message " Else MsgBox Str(Err.Number) + Err.Description End If Exit Sub السطر المطلوب التعديل عليه هو ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0) شاكر ومقدر لكم المساعدة