• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

نجوم الكون

اعضاء
  • عدد المشاركات

    94
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة نجوم الكون

  1. بسم الله الرحمن الرحيم   السلام عليكم ورحمة الله وبركاته   كما هو واضح من العنوان قمت بعدت محاولات حتى تمكنت من اخفاء شاشة الاكسس الرمادية (ليس اخفائها بمعنى الغائها بل تصغيرها وظهور نموذج شفاف تستطيع من خلاله رؤية سطح المكتب)   هكذا       هذا كود اخفاء الشاشة الرمادية Dim dwReturn As Long 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 وهذا الاستدعاء في  حدث عند الفتح او التحميل لنموذج رئيسي نقوم بتعيينه ليكون هو اول من يظهر عند فتح القاعدة Call fSetAccessWindow(0) اما كود الشفافية فهو Option Explicit Option Compare Text Dim hamad As Byte '=================================================================================== Private Const conModuleName As String = "mdlFadeForm" Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 '=================================================================================== Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long '=================================================================================== Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long '=================================================================================== Private Declare Function SetWindowOpacity Lib "user32" _ Alias "SetLayeredWindowAttributes" (ByVal hwnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long '=================================================================================== Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) Private Const conFadeForm As Boolean = True Public Const conFadeSleep As Long = 50 'ÊÍÏíÏ ÏÞÉ ÇáÔÇÝíÉ ÚäÏ ÇáÇÛáÇÞ ÈÈØÆ Public Const conOpacityStep As Long = 2 'ÊÍÏíÏ ÏÞÉ ÓÑÚÉ ÇáÔÇÝíÉ ÚäÏ ÇáÇÛáÇÞ ÈÈØÆ Public blnFadingInProgress As Boolean '=================================================================================== Public Sub FadeInOut(ByVal strFormName As String, _ ByVal lngSaturation As Long, _ ByVal strInOut As String) Dim lngOpacity As Long blnFadingInProgress = True If (conFadeForm) Then If FormIsLoaded(strFormName) Then Select Case strInOut Case "In" For lngOpacity = 0 To lngSaturation Step conOpacityStep FadeForm Forms(strFormName).hwnd, lngOpacity Sleep conFadeSleep DoEvents Next lngOpacity Case "Out" For lngOpacity = lngSaturation To 0 Step -conOpacityStep FadeForm Forms(strFormName).hwnd, lngOpacity Sleep conFadeSleep DoEvents Next lngOpacity End Select End If End If ExitProcedure: On Error Resume Next blnFadingInProgress = False Exit Sub ErrorHandler: Resume ExitProcedure End Sub Public Sub FadeForm(ByRef lhWnd As Long, _ ByVal bytOpacity As Byte) Dim lngReturn As Long If (conFadeForm) Then lngReturn = GetWindowLong(lhWnd, GWL_EXSTYLE) lngReturn = lngReturn Or WS_EX_LAYERED SetWindowLong lhWnd, GWL_EXSTYLE, lngReturn SetWindowOpacity lhWnd, 0, bytOpacity, LWA_ALPHA End If ExitProcedure: Exit Sub ErrorHandler: Resume ExitProcedure End Sub Public Function FormIsLoaded(ByVal strFormName As String) As Boolean If (SysCmd(acSysCmdGetObjectState, acForm, strFormName)) Then If (Forms(strFormName).CurrentView) Then FormIsLoaded = True End If End If ExitProcedure: Exit Function ErrorHandler: Resume ExitProcedure End Function استدعائه FadeForm Me.hwnd, 150 حيث ان 150 كما تعلمون للتحكم بمقدار الشفافية   كذلك يتعين علينا جعل النموذج يأخذ مساحة الشاشة كاملة بـ DoCmd.Maximize قمت كذلك باخفاء شريط الادوات المعروف بـ Ribbon     بـ DoCmd.ShowToolbar "ribbon", acToolbarNo بعض الاعدات التي عليك عملها هي في خيارات اكسس --- قاعدة البيانات الحالية --- اختر النموذج الذي تريده كخلفية اساسي عند فتح القاعدة (الذي طبقنا عليه الاعدادات)   في نفس الصفحة جعل النوافذ متراكمة   ازالة الصح عن عرض شريط المعلومات و شريط علامة التبويب   النماذج لا بد ان تكون مشروط ومنبثق حتى تكون ظاهرة   كذلك اضافة في النموذج الاساسي استدعاء النموذج الذي تريد العمل عليه بـ DoCmd.OpenForm "test", acNormal حيث ان test اسم النموذج يعيب هذه الطريقة في حال كان استدعاء النموذج بـ Call fSetAccessWindow(0) 1- ان نوافذ تكون مشروطة اي لا يمكنك الانتقال الى نموذج سابق مثلا الا باغلاق اخر نموذج   2- عند تصغير النموذج مثلا يذهب خلف النموذج الاساسي  وبما ان النموذج مشروط فلن تسطيع تصغير النموذج الاساسي الشفاف :(   3- اختفاء ايقونة الاكسس من شريط المهام   في حال كان الاستدعاء بـ Call fSetAccessWindow(2) 1- تظهر ايقونة الاكسس في شريط المهام لكن عند النقر عليها تظهر الخلفية الرمادية مرة اخرى خلف النموذج الشفاف وهذا مالا نريده   2- من الممكن الاستغناء عن شكلي و مشروط في النموذج لكن النموذج الذي نريد ان نعمل عليه عند فتح النموذج الرئيسي لا يظهر او يختفي خلف النموذج الشفاف فلا يمكنك الوصول اليه بسهوله   ما اود الوصول اليه هو التغلب على المشاكل التالية   1- اتاحة ايقونة اكسس في شريط المهام   2- في حال النقر على الايقونة من اجل استدعاء البرنامج بقاء خلفية الاكسس الرمادية مخفية او مصغرة كي لات ظهر خلف النموذج الرئيسي الشفاف   3- عند تصغير احد النماذج الاخرى لا يذهب خلف النموذج الشفاف وفي هذه الحالة لا يمكن للمستخدم استدعائه ولا يمكن تصغير النموذج الاساسي لان النمذوج المصغر شكلي ومشروط ولا يسمح لك باختيار نماذج اخرى الا باغلاقه   4- مع امر اخفاء او تصغير الخلفية الرمادية لا تظهر النماذج الا في حال كونها شكلي ومشروط وهي عقبة في حال اردنا اختيار نمذج اخر وجعل النموذج مفتوح   5- لو افترضنا ان تم الاستغناء عن شكلي ومشروط وتم النقر بالخطاء على النموذج الرئيسي الشفاف فان النماذج المفتوحة ستذهب خلف النموذج الشفاف ولا يمكن الوصول لها بسهولة     تجدون ايها السادة الكرام المثال بالمرفقات فهل من الممكن تجاوز هذه العقبات ؟       important .zip
  2. طلب تغيير المعرف لو سمحتوا

    ممتاز بارك الله فيكم اشكر الف شكر :)
  3. السلام عليكم ورحمة الله وبركاته   هذا المعرف ايها الاخوة اثار حيرة العلماء والمشرفين والاعضاء على حد سواء هل هذا الشخص رجل ام فتاة ههههههههههههه لهذا اريد تغيير المعرف من نجوم الكون الى الازدي بارك الله فيكم
  4. ياقوم اريد عند تصغير نموذج او تقرير لا يذهب خلف النموذج main اي الرئيسي الذي وضعته خلفية فهل هذا ممكن
  5. اشكر لكم ردكم الكريم بارك الله فيكم لكن مازال العمل يحتاج بعض التعديلات ولا نستغني عن الخبراء   ثم اني اخ لكم ولست اخت .... ربما علي تغيير المعرف ههههههههههه
  6. مشكلة حقل مرتبط في جداول

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

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

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

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

    انت الذي لم تستوعب   الرسالة التي نظهر لك والتي وضعت صورتها تظهر خلل في برنامج الاوفيس وكلامك ان القواعد التي تفتحها في جهازك تعمل بشكل سليم في الاجهزة الاخرى وبأعلى الموضوع تقول لا تدري ماحدث بجهازك اصبحت تظهر لك اخطاء ورسائل عند فتح القواعد   قلت لك جرب البرامج الاخرى ليس ان تفتحها بل تفتح ملف اكسل او ملف وورد واخبرنا ان ظهرت نفس الرسالة ام لا لانه سبق وان ظهرت معي نفس المشكلة ولم تحل الا بـتنصيب اوفيس 2010   انظر هنا الوورد يعاني من نفس المشكلة بينما البرامج الاخرى سليمة     هنا الاكسل به نفس المشكلة والبرامج الاخرى سليمة   http://nielsccian-msofficetroubleshooting.blogspot.com/2012/02/excel-2007-there-was-problem-sending.html   ان كانت المشكلة في برنامج الاكسس فقط فالامر يختلف انظر هنا حل تعديل بعض قيم الرجيستري للبرنامج     https://superuser.com/questions/41877/why-does-access-report-it-cant-receive-a-command-to-its-program     حل آخر واخير  وهو   افتح الاكسس ثم اختر العلامة التي بالصورة هذه     ثم خيارات   ثم خيارات متقدمة   ثم اختر تجاهل طلبات DDE او قد تجد  خيار تجاهل التطبيقات الأخرى قم بتعليمه   وقد اعطيتك حل بردي الاعلى بتشغيل البرنامج في وضع توافق فيستا ولا اظنك كلفت نفسك بتطبيقه ان لا اتكلم من فراغ عندما سألتك هذه الاسئلة وطرحت عليك بعض الحلول واعلم ان طرحي لهذه الحلول ليس من اجلك فقط بل من يبحث لحل عن هذه المشكلة قد يقع على هذا الموضوع ويوفر عليه عناء البحث        
  13. اعتذر هناك خطأ وهو عند تغير تاريخ اليوم لا تتغير عدد الايام تلقائيا         تم الاصلاح الان تجدوه بالمرفق ابوحمد.zip
  14. تفضل  ABTH4000ونعتذر على التأخير ابوحمد.zip
  15. خلل في تشغيل برنامج الاكسس

    هل المشكلة في الاكسس خاصة ام في برامج الاوفيس كامل  جرب جميع برامج الاوفيس و اخبرنا بالنتائج اضافة الى ذلك جرب فتح القواعد على برنامج اكسس على جهاز آخر   جرب كذلك تشغيل البرنامج في وضع التوافق اذهب الى ابدا ثم كافة البرامج ثم مجلد microsoft office  ثم انقر بالزر الايمن على ايقونة الاكسس واختر خصائص ثم توافق واختر windows vista service pack 2
  16. خلل في تشغيل برنامج الاكسس

    اخي اعد تنصيب الاوفيس او نصب 2010 بعد ازالة الاوفيس 2007
  17. خلل في تشغيل برنامج الاكسس

    هل لديك برنامجي اوفيس 2007 و 2003 منصبة سويا على الجهاز ؟
  18. بارك الله فيكم اخي ramhan  نعم فعلا كلامك سليم الكود الان يعمل بعد التعديل Dim intStore As IntegerintStore = DCount("[vdate]", "[ÚÇã]", "[vdate] <=Date()-15 ") If intStore = 0 Then Exit Sub Else If MsgBox("íæÌÏ " & intStore & "ãä ÇáãÓÊÍÞÇÊ áã íÊã ÇÑÓÇáåÇ ÈÚÏ ", VBA.VbMsgBoxStyle.vbOKOnly) Then DoCmd.OpenForm "new", acNormal Exit SubEnd If End Subهذا السطر لم يكن له داعي لا ادري لماذا وضعته من الاساس !؟ If [vdate] <= Date - 15 Then حلت المشكلة اشكرك جزيل الشكر
  19. السلام عليكم ورحمة الله وبركاته   الاخوة والاخوات بارك الله فيكم اعذروني اثقلت عليكم والله لا غنى لي عنكم في مساعدتكم لاني والله احاول ولم تنفع معي لقلة خبرتي في تنفيذ الاكواد   لا اطيل   لدي هذه الدالة وهي عند مضي اكثر من 15 يوم من تاريخ تسجيل الحالة فهناك رسالة تظهر تخبر بعدد السجلات المتأخرة الدالة تعمل وصحيحة لكن عند وضعها في حدث عند الفتح او التحميل او بعد التحديث او غيرها لاتعمل او قل لا تنشط الا في حدث الحالي وذلك بعد النقر على التاريخ المتأخر   هذه هي الدالة Dim intStore As Integer intStore = DCount("[vdate]", "[ÚÇã]", "[vdate] <=Date()-15 ") If [vdate] <= Date - 15 Then If MsgBox("íæÌÏ " & intStore & "ãä ÇáãÓÊÍÞÇÊ áã íÊã ÇÑÓÇáåÇ ÈÚÏ ", VBA.VbMsgBoxStyle.vbOKOnly) Then DoCmd.OpenForm "new", acNormal Else Exit Sub DoCmd.OpenForm "new", acNormal End If وفي المرفقات المثال :blush:           important .zip
  20. شكرا لاستجابتكم اخي الكريم   لكن والله لا اعلم مالسبب انا الان احاول بما ذكرتم ولم اتوصل الى نتيجة حتى اذا وضعت زر ونقرت عليه لا يحدث شيْ
  21. اخي اكرم العولقي اسال الله ان يكتب اجرك ويمد عليك الصحة و العافية تماما كما اريد
  22. السلام عليكم ورحمة الله وبركاته   اخواني اخواتي     اريد ان اطبق هذه الدالة If Me.t = "ÓÑíÚ" Thenvdate = Now()Elsevdate = ""Exit SubEnd Ifحيث اني اريد في حال ان الحقل t تغيرت القيمة الى كلمة "سريع" فانه يكتب في حقل vdate تاريخ اليوم وان كان غير ذلك فلا يكتب شي   الدالة الاخرى مماثلة في حال ان الحقل t يحمل القيمة "صرف" فانه يكتب في حقل vdate تاريخ اليوم + 7 ايام وان كان غير ذلك فلا يكتب شي If Me![t] = "ÕÑÝ" ThenMe![vdate] = Now() + 7ElseMe![vdate] = ""Exit SubEnd Ifمع ملاحظة اخواني الكرام انه في حال  تحقق الشرط وتمت كتابة تاريخ تغير الحالة ان لا يتأثر بتغير السجل الذي بعده   مثال احد السجلات تغير حالته الى سريع بتاريخ اليوم 15 / 4 /1435 اذا تحقق الشرط  وكتب تاريخ اليوم اي يحفظ تاريخ اليوم الذي تغير فيه حالة هذا السجل الى سريع ولا يتأثر بما بعده   ثم بعد ثلاثة ايام كان هناك سجل آخر وغيرنا حالته حالته الى سريع طبعا تاريخ هذا اليوم سيكون 18 / 4 1435 ولا يؤثر في السجل الذي قبله   حاولت تطبيق هذا الكود لاحد الاخوة ولم ينجح http://arabteam2000-forum.com/index.php/topic/225080-%D9%85%D8%B7%D9%84%D9%88%D8%A8-%D8%AA%D8%B7%D8%A8%D9%8A%D9%82-%D8%AF%D8%A7%D9%84%D8%A9-if-%D8%B9%D9%84%D9%89-%D9%86%D9%85%D9%88%D8%B0%D8%AC-%D8%A8%D8%B3%D9%8A%D8%B7/   كذلك الدوال التي بالاعلى  كانت تعمل معي لكنها تعمل على اول سجل فقط لكنها لم تعد تعمل لا ادري لماذا   المثال لمحاولاتي اليائسة في المرفقات :blush:     important .zip
  23. بيض الله وجهك اخي اكرم انا اكتب من الجوال الان سارد عليك حال تجربة المرفق ... لك مني اجمل تحية
  24. مشكلة فى كود فلتر اكسيس 2007

    تفضل اخينا جرب وترى     ex2.rar ex2.rar
  25. اخي مانوع القاعدة التي عندك accdb ام mdb وما اصدار الاكسس الذي لديك ؟