• الإعلانات

    • فيصل الحربي

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

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

نجوم الكون

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

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

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

السمعه بالموقع

2 عادي

عن نجوم الكون

  • الرتبة
    عضو
  1. طلب تغيير المعرف لو سمحتوا

    ممتاز بارك الله فيكم اشكر الف شكر :)
  2. ياقوم اريد عند تصغير نموذج او تقرير لا يذهب خلف النموذج main اي الرئيسي الذي وضعته خلفية فهل هذا ممكن
  3. السلام عليكم ورحمة الله وبركاته   هذا المعرف ايها الاخوة اثار حيرة العلماء والمشرفين والاعضاء على حد سواء هل هذا الشخص رجل ام فتاة ههههههههههههه لهذا اريد تغيير المعرف من نجوم الكون الى الازدي بارك الله فيكم
  4. اشكر لكم ردكم الكريم بارك الله فيكم لكن مازال العمل يحتاج بعض التعديلات ولا نستغني عن الخبراء   ثم اني اخ لكم ولست اخت .... ربما علي تغيير المعرف ههههههههههه
  5. بسم الله الرحمن الرحيم   السلام عليكم ورحمة الله وبركاته   كما هو واضح من العنوان قمت بعدت محاولات حتى تمكنت من اخفاء شاشة الاكسس الرمادية (ليس اخفائها بمعنى الغائها بل تصغيرها وظهور نموذج شفاف تستطيع من خلاله رؤية سطح المكتب)   هكذا       هذا كود اخفاء الشاشة الرمادية 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
  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