• الإعلانات

    • فيصل الحربي

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

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

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

Showing results for tags 'اخفاء تاريخ مشروط بالتقرير'.

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

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

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

  1. توضيح عملية اضافة ايام او شهور او سنوات على تاريخ محدد الدالة المستخدمة هي دالة DateAdd() هناك 2 طريقة لعمل اضافة على تاريخ محدد سواء كانت الاضافة سنوات او شهور او ايام  الطريقة الاولى من الجدول نفسة وهذه تضيف ايام فقط الطريقة الثانية من الاستعلام و هذه نستخدم فيها الدالة المذكورة ويمكن اضافة باليوم او الشهر او السنة عن طريق حقل محسوب فقط نقوم بعمل حقل محسوب و جمع حقل التاريخ + حقل عدد الايام المطلوب اضافتها مثال  اجازة موظف تبدا من يوم 2019/1/1ولمدة 10 ايام تكون نهاية الاجازة يوم  2019/1/10 و تاريخ العودة الى العمل  2019/1/11. يمكن عن طريق حقل محسب فى الاستعلام استخدام دالة DateAdd()لإضافة ايام او شهور او سنوات على التاريخ المحدد  صيغة كتابة الدالة كالتالى .... DateAdd(“d”;[عدد الايام المطلوبة]; [التاريخ المطلوب الاضافة علية]) الوسيط الاول هو تحديد نوع الاضافة المطلوبة عن طريق رمز اختصار (يكتب بين علامات تنصيص)بيان الرموز كالتالي : yyyy = Year q = Quarter m = month y = Day of the year d = Day w = Weekday ww = Week h = hour n = Minute s = Second شاهد الشرح بفديو على اليوتيوب من هنا https://youtu.be/_2lNtuptRQE https://youtu.be/_2lNtuptRQE https://youtu.be/_2lNtuptRQE https://youtu.be/_2lNtuptRQE <iframe width="560" height="315" src="https://youtu.be/_2lNtuptRQE" frameborder="0" allowfullscreen></iframe>
  2. السلام عليكم اعمل على تصميم برنامج لاداره صاله الجيم اواجه صعوبه فى عمل استعلام عن عدد زيارات اللاعب خلال فتره اشتراكه الشهريه التى تبدا فى اى وقت من الشهر مع العلم انها متغيره بتجديد الاشتراك  ولكم جزيل الشكر
  3. السلام عليكم اعمل على تصميم برنامج لاداره صاله الجيم اواجه صعوبه فى عمل استعلام عن عدد زيارات اللاعب خلال فتره اشتراكه الشهريه التى تبدا فى اى وقت من الشهر مع العلم انها متغيره بتجديد الاشتراك  ولكم جزيل الشكر
  4. السلام عليكم اعمل على تصميم برنامج لاداره صاله الجيم اواجه صعوبه فى عمل استعلام عن عدد زيارات اللاعب خلال فتره اشتراكه الشهريه التى تبدا فى اى وقت من الشهر مع العلم انها متغيره بتجديد الاشتراك  ولكم جزيل الشكر
  5. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج اكسيس بمجرد الضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  6. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج اكسيس بمجرد الضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  7. السلام عليكم    ممكن مساعدة في انجاز تطبيق بمجرد مثال يشبه طلبي. وهو اريد مثلا إنشاء  نموذج  فيه مربع نص  المواد و مربع نص اخر لتواريخ ويكون مصدرهما من الفتورة البيع  لكي عندما اختار مادة تم اختار سنة من هذا النموذج يعطيني كل ما بعته في تلك السنة من مواد وشكرا 
  8. السلام عليكم اخواني وخواتي الاعزاء في هذا المنتدى الرائع الذي لطالما استفدنا منه كثير ارجو التفضل بالاجابة حول سؤالي وهو اريد عمل دالة تاريخ في استعلام في اكسيس 2003 وهي تعطيني تواريخ متسلسلة بين تاريخين انا احددها مثلا اريد من الدالة تعطيني تواريخ متسلسلة من تاريخ 1/1/2017 لغاية 13/11/2017 مع الشكر
  9. تقرير لاخراج بيانات الشهر الحالى او السابق او نص سنوية او ربع الخ تلقائيا بدون ادخل تاريخ طريقة سهل جدا لاخراج البيانات النص سنوية او الربع سنوية او شهرية الى اخرة  بطريق تلقائية بدون ادخل تاريخ بداية او نهاية  شاهد الشرح بفديو على اليوتيوب من هنا https://www.youtube.com/watch?v=K2C1dPEaHUA https://www.youtube.com/watch?v=K2C1dPEaHUA https://www.youtube.com/watch?v=K2C1dPEaHUA <iframe width="560" height="315" src="https://www.youtube.com/watch?v=K2C1dPEaHUA" frameborder="0" allowfullscreen></iframe>
  10. السلام عليكم ورحمة الله وبركاته اريد اظهار حقل مخفي في نموذج بالضغط على زر مع الشكر والتقدير لجميع اعضاء المنتدى قاعدة بيانات.accdb
  11. السلام عليكم ورحمة الله وبركاته كل التحية والتقدير لكم جميع أعضاء المنتدى العظيم طرحي هو عملية حماية ملف اكسس وقد استفدت من المنتدى الكثير واخص بالذكر استاذتنا زهرة (ام عهود) لها كل  التحية والتقدير وقد استفدت ان الحماية بخطوات كالتالي: 1- إخفاء الجداول والاستعلامات وهي يمكن اظهارها من خارج قاعدة البيانات بالتالي يجب تشفيرها. 2- الغاء تفعيل مفتاح الشيفت Shift  ويممكن تجاوز ذلك من خارج قاعدة البيانات. 3- عمل كلمة سر للكود كاملا في قاعدة البيانات ، وكذلك يوجد برامج لتجاوز كلمة السر للكود. 4- عمل اسم مستخدم وكلمة مرور ويمكن اين يكون اكثر من مستخدم بصلاحيات خاصة او شاملة يكون في اول فورم يتم تحميله ويكون منبثق ومشروط. 5- إخفاء لوحة التنقل Navigation Pane التي تحتوي مكونات قاعدة البيانات واخفاء الأشرطة التي تمكن الوصول الى لوحة التنقل Ribon وبما في ذلك إخفاء قائمة (ملف) التي تكون ابتداء من اكسس 2010 . 6- تحويل ملف قاعدة البيانات الى ملف accde او accdr . 7- عمل فورم ابتدائي لتسجيل البرنامج على الجهاز مثل رقم الهارد كما تفضل احد الزملاء ويمكن التسجيل برقم اللوحة الام ورقم البيوس والاشتقاق منها معادلة معينة ثابتة تكون رقم تسجيل لأول مرة على الجهاز. 8- إخفاء شاشة الاكسس الخلفية في اول فورم خاصة. ويشرفني ان تشاركوني بآرائكم ، وأتمنى من اتشرف بمشاركة استاذتنا زهرة (ام عهود) وبقية الخبراء في المنتدى بما ذكرت في النقاط السابقة وبما سوف استفسر وأسأل عنه  تالياً: - اعتقد ان موضوع تجاوز حماية الشيفت هو المحور الأساس فهل عند التحويل الملف الى accdr أيضا يتم تجاوز الشيفت وكذلك اذا اجتمعت الحمايات التي ذكرتها سابقا في ثمانية نقاط هل تضعف فعالية اختراق الشيفت بنسبة كبيرة جدا. - وما هي نسبة الاختراق للقاعدة وهل يتم الاعتماد عليها كحماية شبه تامة. - كما وارجو توضيح موضوع تشفير البيانات في الجداول والاستعلامات . ولكم كل الشكر والتقدير اخوكم عبدالله بشير
  12. ارجو المساعدة  يوجد بالملف المرفق تاريخين مختلفين اريد حساب الفرق بين التاريخين  اليوم - الشهر - السنة  -  و الوقت  ابو البراء.rar
  13. اخواني ارجو المساعدة فلا اعرف ماذا حدث تم اختفاء قائمة الخصائص التي يتم فتحها على الجانب الايمن من برنامج الاكسيس ولا استطيع ان استعرض اي خصائص لاي نموذج او تقرير والتحكم بما بهم من اوامر كما مبين بالصورة الثانية علما بأن الخيارات في access option في current database معلم عليها جميعا كما موضح بالصورة الاولى ارجو الافادة السريعة من فضلك ولكم جزيل الشكر :(
  14. السلام عليكم ورحمة الله وبركاته   اخواني بالمرفق :   المطلوب :   اذا كانت الشركه 1  : ان يتم اخفاء الخصم الاولي والثانوي وان يظهر الصافي بجانب المجموع مباشرة. اذا كانت الشركة 2 : يتم اخفاء الخصم الاولي فقط على ان يكون مربع التسمية (الخصومات المقدمة ) بحجم الخصم الثانوي ويكون ظاهرا عليه فقط ومحاذيا له. اذا كانت الشركة رقم 3 : ان تظهر كل العناصر     TabledRpt.rar
  15. اخواني بالمرفق   وفي التقرير الفرعي المطلوب :   في حالة اخترت بالنموذج المجموعه كلها ان يتم اظهار عنوان المجموعة الفرعية ، واذا اخترت عنصر واحد او بعض عناصر هذه المجموعه ( اي ليست كلها ) ان يتم اخفاء عنوان المجموعه الفرعيه مع ضهور العناصر التي اخترتها فقط اضافة الى عنوان المجموعة الرئيسيه ؟   مثلا لدينا المجموعة الرئيسية Chemistry  مجموعتها الفرعيه RFT   وعناصر هذه المجموعه هي (Urea   +  Creatinie ) ولكني لم ادخل كل عناصر المجموعه الفرعيه كلها بل ادخلت فقط ال Urea   المطلوب هو اخفاء المجموعه الفرعيه RFT في التقرير بينما تبقى ال Urea تحت الاعنوان الرئيس Chemistry بدون عنوان فرعي (مخفي)   واليكم المرفق : RptGroups.rar
  16. الى الاساتذة الافاضل  مرفق مثال   و المطلوب بداخل التقرير  TEST_AMIN.rar
  17. بسم الله الرحمن الرحيم   السلام عليكم ورحمة الله وبركاته   كما هو واضح من العنوان قمت بعدت محاولات حتى تمكنت من اخفاء شاشة الاكسس الرمادية (ليس اخفائها بمعنى الغائها بل تصغيرها وظهور نموذج شفاف تستطيع من خلاله رؤية سطح المكتب)   هكذا       هذا كود اخفاء الشاشة الرمادية 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
  18. السلام عليكم ورحمة الله وبركاته   اخواني الكرام   لدينا في المرفق نموذج وبداخله صفحات اربع   المطلوب هو ان يتم ظهور زر الامر Print في كل الصفحات الا الصفحه الرابعه بحيث اذا انتقلت اليها ان يتم اخفاء هذا الزر ؟   اليكم المرفق   hidebuttn.rar
  19. تحية طيبة   ارجو من الاخوة الكرام انا سويت عملية الفرز بين التاريخين (من بداية شهر الى نهاية الشهر ) ويطلع عندي نتيجة بالتقرير وفيها تاريخ وايضا مجموع عدد شركات  وطنية واجنبية المطلوب هو هل يمكن ان يتم الفزر تاريخ حسب شركات وطنية او اجنبية(مجموع عدد شركات وطنية وايضا مجموع عدد شركات اجنبية طبعا حسب تاريخ ) في نفس التقرير او حتى مربع نصي ، سوف ارفق لكم الملف   بارك الله فيكم    بالتوفيق DBase.rar DBase.rar
  20. السلام عليكم   تحية طيبة للجميع    ارجو ان تساعدني كيف اسوي  ترتيب تاريخ بهذا الشكل (dd/mm/yyyy)    لان في الحقل التاريخ سويت في خصائص  الحقل في الجدول بهذة الشكل dd/mm/yyyy بس طلع dd بالنصف ما اريد ذلك     شكرا لكم  
  21. السلام عليكم ورحمة الله وبركاته   كيف يمكن  استخراج العمر من تاريخ الميلاد بالسنه والشهر واليوم ..... هذا الكود لكن المشكله ان النتيجه ليست المطلوبه حيث ان القيمه تطلع بالسالب  ارجو المساعد وجزاكم الله الف خير Declare @dateofbirth datetimeDeclare @currentdatetime datetimeDeclare @years varchar(40)Declare @months varchar(30)Declare @days varchar(30)set @dateofbirth='2007-11-23'--birthdateset @currentdatetime =getdate()--current datetimeselect @years=datediff(year,@dateofbirth,@currentdatetime)-- To find Yearsselect @months=datediff(month,@dateofbirth,@currentdatetime)-(datediff(year,@dateofbirth,@currentdatetime)*12)-- To Find Monthsselect @days=datepart(d,@currentdatetime)-datepart(d,@dateofbirth)-- To Find Daysselect @years  +' years,   ' [email protected] +' months,   '[email protected]   +' days' asYearMonthDay
  22. قمت بتصميم جدول يوجد به حقل التاريخ الحالى و حقل اخر التاريخ التالى وقمت بإنشاء نموذح مبنى على هذا الجدول . المشكلة التى لدى اريد عندما تحديد التاريخ فى الحقل التاريخ الحالى يتحدث تلقائياً حقل التاريخ التالى الى اول الشهر القادم تلقائيا ً . مثال عندما اختر تاريخ اليوم فى حقل التاريخ الحالى 29/7/2014 بتحدث تاريخ حقل التاريخ التالى الى 1/8/2014 Next_Date.zip
  23. السلام عليكم   كيفكم اخواني في هذا المنتدى الرائع   عندي برنامج بسيط لمتابعة المخزون لمستودع مواد غذائية  ساقوم برفعه عند الانتهاء منه لتعم الفائدة للجميع   ولكن واجهتني مشكلة  اني عند اضافة وارد الى المستودع اقوم بكتابة تاريخ الصلاحية يدويا ولكن عند تسجيل الخارج من المستودع اريد عند كتابة اي منتج يظهر تاريخ صلاحيته تلقاءيا  علما انه يمكن ان يكون للمنتج الواحد اكثر من تاريخ صلاحية   ارجو المساعده لتعم الفائدة اخوكم ابو حمزة
  24. ارجو معرفة كيفية عمل انذار في قواعد بيانات اكسيس اذا وصل التاريخ ليوم محدد وشكرا
  25. يعطيكم االعافية ... انا عم اعمل موقع لبازار ... عندي الداتا بيز فيها اسم المنتج وسعرو وتاريخ التعديل ......كلما عدلت السعر بينضاف المعلومات للجدول .. بدي احصل على اخر تعديل للسعر ... شو الطريقة المناسبة