osama ababneh

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

لا اعرف اخي محمد هل جربت استخدام الكود me.Refresh وانشاء الله ان يكون هو الحل

شكرا اخي على المشاركة

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

هذا الملف مرة اخرى image_by_com.rar

اخي قبل ان تفتح البرنامج اضغط على زر SHIFT وافتح البرنامج وابقى مستمر في الضغط الى ان يفتح البرنامج تماما وسترى النتيجة انشاء الله

اخي الشرح الموجود وافي تماما ولكن للتسهيل 1- ادخل الى وحدات نمطية واضغط على جديد 2- الصق الكود التالي في هذه الوحدة النمطية Option Compare Database Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Public Const acHide = "Hide" Public Const acShow = "Show" Public Const acMinimized = "Minimize" Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function 3- اغلق هذه الشاشة فيطلب منك الحفظ >>>>> احفظ الملف(الوحدة النمطية ) باي اسم تريده 4- ادخل على تصميم النموذج الذي تريدة ان يفتح(النموذج الرئيسي) وقم بالاتي أ - غير القيمة في خصائص النموذج >غير ذلك > منبثق او pop up الى نعم ب - ادخل الكود التالي في حدث > عند الفتح DoCmd.Restore 5 - الان ادخل على ماكرو واختر جديد أ - في الماكرو في السطر الاول اختر Run code الموجودة تحت حدث ب - في اسم الدالة الموجودة في الاسفل اكتب السطر التالي fAccessWindow ("Hide",False, False) ج - في السطر الثاني اختر الامر open form وفي الاسفل اختر اسم الفورم الذي تريدة ان يفتح تلقائيا عند بدئ التشغيل د - احفظ الماكرو باسم autoexec وهذا الاسم ضروري ولا تحاول ان تغيرة وبذلك يكون برنامجك جاهز وما عليك الا اغلاق البرنامج ثم فتحه لترى النتيجة وتوجد مشاركة فيها مثال على الرابط التالي http://www.officena.net/ib/index.php?showt...23698&st=20 وانشاء الله ان اكون قد وفقت في الشرح

اخي بامكانك ان تشغل البرنامج اثناء الضغط على الزر SHIFT وبالتالي تدخل الى البرنامج

السلام عليكم اخي بندر هذا هو الكود الذي طلبتة Private Sub botton1_Click() DoCmd.OutputTo acOutputQuery, "sales", acFormatXLS, "sales.xls" End Sub حيث ان اسم الاستعلام هو Sales واسم ملف الاكسل الذي سيتم انشاؤة هو Sales ايضا

السلام عليكم ورحمة الله وبركاتة كثير منا من يكتب الكود ولكن بطريقة انه نفسة من كتب الكود يضيع احيانا اثناء تتبع الكود وهذا الشيئ يعاني منه غالبا كل من لم يتعلم لغات البرمجة عن طريق الدورات او الكتب ( الهاويين للبرمجة) ولهذا:- احب ان اقدم لكم اليوم برنامج IndenterVBA الرائع لعمل ترتيب لكودات البرمجة لديك سواء في الاكسس او الاكسل لتصبح مفهومة وسهلة الهظم البرنامج صغير وتستطيع الوصول الية عن طريق فتح الكود ثم النقر على زر الماوس الايمن كما في الصورة وهذه صور توضح العملية قبل بعد الملف في المرفقات ويجب عمل Setup بالتاكيد __________________________.rar

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

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

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

اخي يمكنك استخدام هذا الكود If XXX.Value = "AAA" Then XXX.ForeColor = 255 End If حيث ان: ......... XXX هي اسم الحقل (مربع النص) .........AAA هي القيمة (الاسم ) الذي ينطبق علية الشرط ........ 255 هو لون الخط وهو اللون الاحمر

لقد قمت بتصميم هذا المثال وارجو ان يكون هو المطلوب image_by_com.rar

اخي مشكلتك والله اعلم في الاوتلوك واعتقد انه يجب ان تزور منتدى الاوتلوك وتطرح المشكلة وهذا رابط المنتدى http://www.officena.net/ib/index.php?showforum=43 وانشاء الله تستفيد في حل المشكلة

اخي اذا ضهرت معلومات اليميل في الاوتلوك ثم فشل الارسال يكون الخطأ في اعدادات الاوتلوك

العفو اخي صباح المهم ان تكون انت قد استفدت

اخي .... تفضل الملف بعد التعديل والعملية سهلة مجرد وضع الاسم في راس الصفحة ____________.rar

اخي اليك شرح طريقة استخدام النماذج مع مثال Report.rar

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

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

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

اخي بامكانك تحويل قاعدة البيانات الى MDE وذلك عن طريق Tools >>> Database Utilites >>> Make MDE file

اخي عليك ارفاق البرنامج وتوضيح طلبك بالضبط لانه لا يوجد في الاكسس خلايا مثلا b52