• الإعلانات

    • فيصل الحربي

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

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

البحث في المنتدى

Showing results for tags 'اظهار ، اخفاء ،'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 34 نتيجة

  1. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج اكسيس بمجرد الضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  2. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج اكسيس بمجرد الضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  3. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج بالضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  4. السلام عليكم ورحمة الله وبركاته كل التحية والتقدير لكم جميع أعضاء المنتدى العظيم طرحي هو عملية حماية ملف اكسس وقد استفدت من المنتدى الكثير واخص بالذكر استاذتنا زهرة (ام عهود) لها كل  التحية والتقدير وقد استفدت ان الحماية بخطوات كالتالي: 1- إخفاء الجداول والاستعلامات وهي يمكن اظهارها من خارج قاعدة البيانات بالتالي يجب تشفيرها. 2- الغاء تفعيل مفتاح الشيفت Shift  ويممكن تجاوز ذلك من خارج قاعدة البيانات. 3- عمل كلمة سر للكود كاملا في قاعدة البيانات ، وكذلك يوجد برامج لتجاوز كلمة السر للكود. 4- عمل اسم مستخدم وكلمة مرور ويمكن اين يكون اكثر من مستخدم بصلاحيات خاصة او شاملة يكون في اول فورم يتم تحميله ويكون منبثق ومشروط. 5- إخفاء لوحة التنقل Navigation Pane التي تحتوي مكونات قاعدة البيانات واخفاء الأشرطة التي تمكن الوصول الى لوحة التنقل Ribon وبما في ذلك إخفاء قائمة (ملف) التي تكون ابتداء من اكسس 2010 . 6- تحويل ملف قاعدة البيانات الى ملف accde او accdr . 7- عمل فورم ابتدائي لتسجيل البرنامج على الجهاز مثل رقم الهارد كما تفضل احد الزملاء ويمكن التسجيل برقم اللوحة الام ورقم البيوس والاشتقاق منها معادلة معينة ثابتة تكون رقم تسجيل لأول مرة على الجهاز. 8- إخفاء شاشة الاكسس الخلفية في اول فورم خاصة. ويشرفني ان تشاركوني بآرائكم ، وأتمنى من اتشرف بمشاركة استاذتنا زهرة (ام عهود) وبقية الخبراء في المنتدى بما ذكرت في النقاط السابقة وبما سوف استفسر وأسأل عنه  تالياً: - اعتقد ان موضوع تجاوز حماية الشيفت هو المحور الأساس فهل عند التحويل الملف الى accdr أيضا يتم تجاوز الشيفت وكذلك اذا اجتمعت الحمايات التي ذكرتها سابقا في ثمانية نقاط هل تضعف فعالية اختراق الشيفت بنسبة كبيرة جدا. - وما هي نسبة الاختراق للقاعدة وهل يتم الاعتماد عليها كحماية شبه تامة. - كما وارجو توضيح موضوع تشفير البيانات في الجداول والاستعلامات . ولكم كل الشكر والتقدير اخوكم عبدالله بشير
  5. السلام عليكم ورحمة الله وبركاته ارجو التكرم بالمساعدة في وضع كود على الفورم الرئيسي وبالتحديد في مربع اختيار ليظهر لي الفورم المطلوب وفقنا الله وايكم   hide_show form.accdb
  6. بسم الله الرحمن الرحيم   السلام عليكم   أود استفسر حول الكود المناسب لاضافة صفحة الاستجرام على موقعي الخاص بحيث اي شخص يدخل الموقع الخاص بي تظهر له صفحتي الاستجرام مباشرة دون الحاجه إلى الضغط على رابط ويتحول الى صفحة الاستجرام   وأنما عندما يفتح موقعي تظهر له صفحة الاستجرام ؟ 
  7. اخواني ارجو المساعدة فلا اعرف ماذا حدث تم اختفاء قائمة الخصائص التي يتم فتحها على الجانب الايمن من برنامج الاكسيس ولا استطيع ان استعرض اي خصائص لاي نموذج او تقرير والتحكم بما بهم من اوامر كما مبين بالصورة الثانية علما بأن الخيارات في access option في current database معلم عليها جميعا كما موضح بالصورة الاولى ارجو الافادة السريعة من فضلك ولكم جزيل الشكر :(
  8. السلام عليكم ورحمة الله وبركاته   اخواني بالمرفق :   المطلوب :   اذا كانت الشركه 1  : ان يتم اخفاء الخصم الاولي والثانوي وان يظهر الصافي بجانب المجموع مباشرة. اذا كانت الشركة 2 : يتم اخفاء الخصم الاولي فقط على ان يكون مربع التسمية (الخصومات المقدمة ) بحجم الخصم الثانوي ويكون ظاهرا عليه فقط ومحاذيا له. اذا كانت الشركة رقم 3 : ان تظهر كل العناصر     TabledRpt.rar
  9. اخواني بالمرفق   وفي التقرير الفرعي المطلوب :   في حالة اخترت بالنموذج المجموعه كلها ان يتم اظهار عنوان المجموعة الفرعية ، واذا اخترت عنصر واحد او بعض عناصر هذه المجموعه ( اي ليست كلها ) ان يتم اخفاء عنوان المجموعه الفرعيه مع ضهور العناصر التي اخترتها فقط اضافة الى عنوان المجموعة الرئيسيه ؟   مثلا لدينا المجموعة الرئيسية Chemistry  مجموعتها الفرعيه RFT   وعناصر هذه المجموعه هي (Urea   +  Creatinie ) ولكني لم ادخل كل عناصر المجموعه الفرعيه كلها بل ادخلت فقط ال Urea   المطلوب هو اخفاء المجموعه الفرعيه RFT في التقرير بينما تبقى ال Urea تحت الاعنوان الرئيس Chemistry بدون عنوان فرعي (مخفي)   واليكم المرفق : RptGroups.rar
  10. الى الاساتذة الافاضل  مرفق مثال   و المطلوب بداخل التقرير  TEST_AMIN.rar
  11. قرأت كثيرا فى برمجة الداتا جريد فيو ولكن كلما طبقت يظهر عندى خطأ ولذلك ارجو من اهل العلم ان يشرحو لى كيف ابرمج  الدتا جريد فيو ل 1=اظهار السعر والوحدة وكذلك اظهار الرصيد  2=الحفظ عند الخروج من الصف 3=اظهار اجمالى الروشتة وكذلك الايراد اليومى 4= ضرب السعر فى الكمية والخصم   والشكر موصول لكل اصحاب الخبرة والعلم  ولى رجاء الشرح الوافى  اخيكم فى الله  عادل شاذلى ROSHTA.rar
  12. بسم الله الرحمن الرحيم   السلام عليكم ورحمة الله وبركاته   كما هو واضح من العنوان قمت بعدت محاولات حتى تمكنت من اخفاء شاشة الاكسس الرمادية (ليس اخفائها بمعنى الغائها بل تصغيرها وظهور نموذج شفاف تستطيع من خلاله رؤية سطح المكتب)   هكذا       هذا كود اخفاء الشاشة الرمادية 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
  13. السلام عليكم ورحمة الله وبركاته   اخواني الكرام   لدينا في المرفق نموذج وبداخله صفحات اربع   المطلوب هو ان يتم ظهور زر الامر Print في كل الصفحات الا الصفحه الرابعه بحيث اذا انتقلت اليها ان يتم اخفاء هذا الزر ؟   اليكم المرفق   hidebuttn.rar
  14. اريد ان يظهر الرصيد من الاستعلام A فى النموذج الفرعى بالنموذج الرئيسى بدالة DLOOOKUP RASED.rar
  15. ارجو معرفة كيفية عمل انذار في قواعد بيانات اكسيس اذا وصل التاريخ ليوم محدد وشكرا
  16. الاخوة عباقرة المنتدى السلام عليكم عند اختياري بند من بنود الكمبوبكس في النموذج الفرعي اريده (البند او السجل)الذي قمت باختياره الا يظهر لي ثانية في القائمة عندما اقوم باختيار بند جديد في نفس الكمبوبكس لنفس السجل الرئيس ( في النموذج الرئيس ). ارجو ان يكون طلبي واضحا...   ryy.rar
  17. السلام عليكم اخواني لدي بالمرفق النموذج الرئيس MainFrm وبه الرقم التأميني وبخاصية نموذج تحرير عناصر القائمة (ادخلت اسم نموذج بيانات الموظف )   وحتى لا الجأ لانشاء نموذج جديد بنفس البيانات وبدون معايير يفتح لي سجل الموظف . ماهي الطريقه لفتح النموذج EmploeeDataFrm بشرط اظهار الموظف الحالي ؟ واذا كان الموظف غير موجود يفتح لي سجل جديد لادراج بيانات موظف جديد ؟   اما اذا ضغطت الزر بيانات الموظفين من النموذج MainFrm فيفتح لي النموذج كما هو بحالته الراهنه   وهذا المرفق :   OpenFrm.rar    
  18. السلام عليكم ورحمة الله وبركاته   اخواني الاعزاء عندي التقرير report1 به التسميه Sinature اذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 تظهر التسميه Sinature عدا ذلك لا اريد ظهورها   واذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 ان يظهر عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك لا اريد ظهورهما     واذا كانت قيمة عنصر التحكم TitleServi بالتقرير الفرعي لاتساوي 1 ان يختفي عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك اريد ظهورهما     ارجو ان يكون مرادي واضحا   وهذا المرفق Reprt.rar
  19. السلام عليكم.   في مشاركة سابقة بنفس العنوان كانت الاخت زهرة قد اجابتني و لها الشكر مرة ثانية.   اظهار القيمة المدخلة بالسجل السابق تلقائيا في السجل الحالي من نفس الحقل   أين استعملت الكود التالي في حدث after update للحقل qty DoCmd.GoToRecord , , acNewRec("Me.productName = DLast("[productName]", "produtsMe.productName.SetFocusقمت باضافة الحقل uprice للجدول products و اضفت الحقل tprice الذي به العملية الحسابية tprice:qty*uprice للاستعلام reqProduct المبني عليه النموذج الفرعي frmB.   المشكلة هي انه عند وضع الكود السابق في الحقل الجديد tprice للحصول على نفس النتيجة كما في مثال الاخت زهرة السابق نجد ان الكود لا يعمل. ما التعديلات التي يجب اجراءها ؟ شكر مسبق للجميع. auto remp mod.rar
  20. السلام عليكم ورحمة الله وبركاته ممكن تساعدوني في ايجاد كود الوظيفة منه انه عند الضغط على (زر خيار) يقوم باظهار مربع نص محدد , وعند الضغط مرة اخرى على (زر خيار) يقوم باخفاء مربع النص  ارجو اني استطعت ان اوصل الفكرة ,, واشكركم مقدما
  21. السلام عليكم اهل المنتدى. في نموذج فرعي مبني على استعلام، كيف يمكن اظهار القيمة المدخلة بالسجل السابق تلقائيا في السجل الحالي من نفس الحقل. مثلا في المثال المرفق: في السجل الأول عند ادخال أو اختيارالقيمة " حليب " مثلا في الحقل productName ثم ادخال اي قيمة في الحقل qty ولتكن مثلا 5 المطلوب : عند الانتقال الى السجل الثاني نجد الحقل productName قد اخذ تلقائيا القيمة " حليب " المدخلة في السجل السابق وهكذا كلما انتقلنا الى سجل جديد نجد انه قد اقترح علينا القيمة المدخلة في السجل الذي قبله و هذا فقط بالنسبة للحقل productName. أرجو ان يكون المطلوب واضحا و شكرا مسبقا.   auto remp.rar
  22. أريد الحصول على مكون مجاني في الدلفي من أجل اظهار رقم المتصل عن طريق المودم و شكرا
  23. السلام عليكم ورحمة الله وبركاتة هل يمكن اظهار واخفاء حقول محددة في استعلام بناء علي قيمة حقل اخر في نفس الاستعلام ؟ و من ثم جمع الحقول المحددة فقط ؟   في المثال المدرج يخوض طلاب من الصف الاول الي السادس اختبارا و مواد الاختبار مختلفة تماما من صف الي اخر   في حقل [grade] يتحدد في اي صف الطالب هل ممكن وضع شرط لظهور الحقل الخاص بالمواد وربطة بالصف و هل ممكن ربطة بالمجموع ايضا بحيث نبعد عن فكرة جمع حقول غير مدرجة اساسا مما قد يسبب خطأ qeraaia _test.rar
  24. السلام عليكم يا اخواني الكرام ارجوا المساعدة في اخفاء قوائم الاكسس وفتح الفورم مباشرةً بدون ظهور الجداول اي عند الضغط على ايكون البرنامج يفتح البرنامج و يفتح الفورم اوتوماتيك و يا ريت لو اضفتم فورم جديد تتضمن اليوزر و بالسورد     للعلم سويت البرنامج باكسس 2010 azad.rar
  25. بسم الله الرحمن الرحيم   لدى قاعدة بيانات موضوعة على سيرفر وقاعدة اخرى جداولها مرتبطة بالقاعدة الاصلية يعمل عليها حوالى 100 مستخدم   وبسبب كثرة المستخدمين يصعب تغيير مكان القاعدة الأصلية   المطلوب اخفاء لينكات جداول القاعدة الأصلية ضد اى متطفل يحاول أخذ اللينكات لدية والعبث بمصادر الجداول او الأدخال المباشر على الجداول   وشكرا