SABER_EDP

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

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

السلام عليكم كيف يمكن تمكين امان الماكرو او عدم تمكينة برمجيا فى اكسس 2003؟ حيث عند عمل SETUP للقاعدة وتشغيلها على جهاز اخر تظهر رسالة الماكرو المزعجة؟ لكم التحية اخوكم صابر

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

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

فكرة رائعة شكرا ولى سؤال: كيف يمكن منع المستخدم من فتح قاعدة البيانات باكملها اكثر من مرة على نفس الجهاز?

السلام عليكم اريد كود يختبر هل الماكرو موجود فى قاعدة البيانات ام لا؟ فاذا كان موجود يقوم بتشغيلة ثم يحذفة وان كان غير موجود يتم الغاء العملية ارجو المساعدة اخوكم صابر

ملاحظة :الكود من عمل الاخ احمد الحربى وياليت نرى قريبا تسجيل اكتف اكس اليا ملاحظة:يعمل الكود على XP ولايعمل على 97 و يا ليت نرى حلا *** عملت بريمجين (كودين) : ( هما الآن في زرين لتجربتها من قبلكم ) الأول يعمل والبرنامج في جهازك عن طريق زر أمر ويقوم بالآتي : 1- بأخذ نسخة من كل مرجع ونسخها في مجلد القاعدة .. لذا ضع القاعدة في مجلد لوحدها . ومن ثم انسخ المجلد واحمله إلى الزبون . 2- بحفظ أسماء المراجع المستخدمة فقط في جدول أسميته (tblReferenceNameOnThisDB) في حقل (referenceName) من أجل استخدامها في إضافة المرجع في الكود الثاني . الثاني : ويعمل في الشاشة الافتتاحية للبرنامج عند حدث الفتح أو التحميل مثلاً ويقوم بالأتي : 1- إضافة المراجع الموجودة أسماؤها في الحقل (referenceName) . 2- إزالة علامة صح من حقل InsertOkOrNO (نعم/لا) حيث (نعم) بمعنى أضيف و(لا) بمعنى لم يضف .. تمهيداً لإعادة إضافتها في كل مرة يفتح البرنامج .. لأنه قد يحدث أن يعبث بها عابث . الكود الأول : كود: Private Sub cdmCopyReferences_Click() 'نسخ المراجع المستخدمة إلى مجلد القاعدة On Error Resume Next Dim ref As Reference Dim strFilePath As String Dim strCopyToPath As String Dim i As Byte Dim RefName As String Dim SetSQL As String Dim delSQL As String delSQL = "Delete * from tblReferenceNameOnThisDB " DoCmd.SetWarnings False DoCmd.RunSQL delSQL For Each ref In References strFilePath = ref.FullPath strCopyToPath = CurrentProject.Path i = 0 Do i = i + 1 b = "\" & RefName RefName = Right(strFilePath, i) Loop While RefName <> b FileCopy strFilePath, strCopyToPath & RefName SetSQL = "insert into tblReferenceNameOnThisDB(referenceName) values(" & "'" & RefName & "'" & ")" DoCmd.SetWarnings False DoCmd.RunSQL SetSQL Next MsgBox "تم نسخ ملفات المراجع المستخدمة في هذه القاعدة إلى المجلد :" & Chr(13) & strCopyToPath End Sub الكود الثاني : -------- كود: Private Sub InsertReference_Click() ' إدراج المراجع كما كانت On Error Resume Next Dim ref As Reference Dim strFileDBPath As String Dim RefName As String Dim conRef As Integer Dim sqlUpdate As String Dim pathAndNamefile As String Dim i As Byte strFileDBPath = CurrentProject.Path conRef = DCount("[referenceName]", "tblReferenceNameOnThisDB") For i = 1 To conRef RefName = DLookup("[referenceName]", "tblReferenceNameOnThisDB", "InsertOkOrNO =" & False) sqlUpdate = "Update tblReferenceNameOnThisDB set InsertOkOrNO=" & True sqlUpdate = sqlUpdate & " where referenceName='" & RefName & "'" DoCmd.RunSQL sqlUpdate pathAndNamefile = strFileDBPath & RefName Set ref = References.AddFromFile(pathAndNamefile) Next i sqlUpdate = "Update tblReferenceNameOnThisDB set InsertOkOrNO=" & False DoCmd.RunSQL sqlUpdate MsgBox " تم إضافة المراجع المطلوبة" End Sub

السلام عليكم هل يمكن تسجيل عنصر تحكم اكتف اكس بالكود مع تحديد المجلد الذى يوجد بة هذا العنصر مع ملاحطة انى استخدمت الكود التالى: DoCmd.RunCommand acCmdRegisterActiveXControls ففتح قائمة التسجيل وانا اريد ان اشير الى موقع المجلد الذى يحتوى على عنصر التحكم مباشرة ولكم الشكر