Moosak

شوف هذا النموذج أخي وليد 🙂

الله يسلمك يابو ماجد .. 🙂 تشابهت الأسماء .. جرب الحين .. ويحتاجلك تحط بيانات زيادة في الجدول لتتضح النتيجة compoboxMoosak.zip

تفضل جرب أبو ماجد 🙂

وعليكم السلام ورحمة الله وبركاته أخي الحلبي .. 🙂 أنصحك بهذا الموقع .. مليئ بالأيقونات بمختلف الأشكال والألوان والأحجام .. وفيه خاصية البحث .. ستجد فيه كل ما تحتاجه من الأيقونات .. وهو مرتب ومنظم في مجموعات .. وووو .. 😁 https://icons8.com/icons/set/Sales

أنا جربت الكود السابق وكانت النتيجة ممتازة .. 👍 وحتى أنه يغنيك عن أكواد النسخ واللصق .. فقط تكتب له ( من ـ إلى .... والقياس المطلوب ) .. والسلام 🙂 شيل كلمة True, اللي بالأحمر هكذا تكتب الدالة بشكل صحيح : WIA_ResizeImage("C:\Users\mostafa\Documents\tt\Pic\1.jpg","C:\Users\mostafa\Documents\tt\Pics\1.jpg",150, 150)

وعليكم السلام ورحمة الله 🙂 من خلال البحث في الانترنت وجدت هذا الكود ، وظيفته أن يغير ( حجم ، قياسات ، أبعاد ، ... ) الصور 🙂 وطريقة الاستخدام مشروحة في الكود نفسه : '--------------------------------------------------------------------------------------- ' Procedure : WIA_ResizeImage ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Resize an image based on Max width and Max height using WIA ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright). It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' Req'd Refs: Uses Late Binding, so none required ' ' Windows Image Acquisition (WIA) ' https://msdn.microsoft.com/en-us/library/windows/desktop/ms630368(v=vs.85).aspx ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sInitialImage : Fully qualified path and filename of the original image to resize ' sResizedImage : Fully qualified path and filename of where to save the resized image ' lMaximumWidth : Maximum allowable image width ' lMaximumHeight: Maximum allowable image height ' ' Usage: ' ~~~~~~ ' Call WIA_ResizeImage("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg", _ ' "C:\Users\MyUser\Desktop\Chrysanthemum_small.jpg", _ ' 800, 600) ' ' Revision History: ' Rev Date(yyyy/mm/dd) Description ' ************************************************************************************** ' 1 2017-01-18 Initial Release '--------------------------------------------------------------------------------------- Public Function WIA_ResizeImage(sInitialImage As String, sResizedImage As String, _ lMaximumWidth As Long, lMaximumHeight As Long) As Boolean On Error GoTo Error_Handler Dim oWIA As Object 'WIA.ImageFile Dim oIP As Object 'ImageProcess Set oWIA = CreateObject("WIA.ImageFile") Set oIP = CreateObject("WIA.ImageProcess") oIP.Filters.Add oIP.FilterInfos("Scale").FilterID oIP.Filters(1).Properties("MaximumWidth") = lMaximumWidth oIP.Filters(1).Properties("MaximumHeight") = lMaximumHeight oWIA.LoadFile sInitialImage Set oWIA = oIP.Apply(oWIA) oWIA.SaveFile sResizedImage WIA_ResizeImage = True Error_Handler_Exit: On Error Resume Next If Not oIP Is Nothing Then Set oIP = Nothing If Not oWIA Is Nothing Then Set oWIA = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: WIA_ResizeImage" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function المصدر : https://www.devhut.net/vba-resize-image/

أخي @alsihran لدي فضول حول هذه النقطة .. 🙂 لماذا لا يقبل السيرفر تشغيل الأوامر البرمجية VBA ؟ هل بسبب تعطيل الصلاحيات من قبل فنيي الحاسب الآلي ؟

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل .. ضع هذه الصيغة في حقل حساب فارق الوقت : IIf(DateDiff("n";[ofical inted];[time in])>=0;DateDiff("n";[ofical inted];[time in]);0) والباقي على الشباب 😊

شكرا جزيلا على البرنامج .. 🙂 بس شكله مصمم ليعمل على نسخة 32 بت ، لم يعمل على نسخة 64 بت .

هذي ما فهمتها !! وش يعني : (سرى مهام ) ؟ سفر في مهام عمل رسمية مثلا ؟ وللأسف بكون بعيد عن الكمبيوتر الأيام القادمة 🙂✌

أهلا بك في المنتدى أخي أحمد.. 🙂 لو تكرمت ضع قاعدة بيانات بها الجدول الذي ذكرته .. وبه عدة بيانات لجميع الحالات التي ذكرتها .. وذلك للتطبيق عليها .

الله يحفظك أخي أبو ماجد ويتقبل دعواتك .. بالنسبة للنموذج الآخر من شكله الظاهر أن له قصة مختلفة عن النموذج mm .. يحتاج تشرح أيش فكرته .. وبأيش يختلف عن الأول 🙂 أو جرب أنت تطبق ما تعلمته من اللي عملناه سابقا .. وإن شاء الله تضبط معاك 🙂

تفضل يابو ماجد 🙂 fff.rar وكثر من دعوااااتك 😄

الحين النموذج كل مرة يفتح يشيل علامات الصح من كل الجدول .. والاستعلام يظهر كل السجلات اللي موجودة في الجدول الأول ومو موجودة في الجدول الثاني .. الحين أنت أي السجلات تريد تطبع بالضبط ؟؟ لأن السجلات اللي عليها الصح بتختفي من النموذج mm .. ويرجع الكود يشيل الصح من الجميع .. 🙂

اللهم آآآآمين وإياك أخي أبو ماجد 🙂 بعض الأوامر في الماكرو ما تظهر إلا إذا شغلت هذي :

تفضل يا أبو ماجد 🙂 غيرت مصدر بيانات النموذج mm إلى Query1 وتم تكملة المطلوب 🙂 fff.rar

السلام عليكم .. 🙂 وأنا جالس أخبص طلعت عندي هذي النتيجة ،، عسى ما أكون دخلت عرض بس .. 😄 الاستعلام الأول يجيب آخر تاريخ .. ( LastMogadra_Q ) والاستعلام الثاني يجمع البيانات.. ( LastMgadraForEachOne_Q) ALI.rar

من باب التنويع وتعدد الأفكار .. ومشاركة الأساتذة 🙂 هناك طريقة سهلة أيضا نفذتها على السريع .. 😉 فكرتها أنها تقوم بعمل سجل لكل التعديلات التي تجري على كل سجل وتكتب: ( اسم المستخدم ، اسم الحقل ، التاريخ والوقت ) .. وتلخيصها كالتالي : كل ما ستحتاجه هو حقل من نوع [ نص طويل ] تضيفه في الجدول .. وهذه الدالة في محرر الأكواد الخاص بالنموذج : Function WhoChangeWhat() Dim t As Date Dim U As String Dim Ctrl As String t = Format(Now, "yyyy/mm/dd HH:nn:ss") U = Environ("username") Ctrl = Screen.ActiveControl.Name Me.Changes = Changes & vbCr & " user : (" & U & ") change The Feiled : (" & Ctrl & ") At: " & t End Function ولك أن تغير ما تريد أن تكتبه لك الدالة في مربع النص .. 🙂 ولتطبيقها بأسهل طريقة : تقوم بتحديد جميع الحقول القابلة للتعديل .. ثم من لوحة الخصائص عند حدث ( بعد التحديث ) تكتب اسم الدالة هكذا : =WhoChangeWhat() ولك الخيار في الإبقاء على الحقل ظاهراً .. أو إخفائه بحيث يظهر للمدير فقط 🙂 UsersActions.accdb

وعليكم السلام أخي @hougar 🙂 تكرما .. إشرح الفكرة كاملة لكي تتضح الطريقة المطلوبة .. ( كأنك تحاول تصميم لعبة أو مسابقة من نوع ما ؟! ) .. ما هي الآلية التي تريدها ؟ كم عدد الحروف التي ستظهر كل مرة ؟ وماذا بعد ظهور الحروف ؟

تجدها في القائمة : 🙂

ما لا يُدرَكُ جُله .. لا يُترك كُله 😊 بارك الله فيك مهندسنا ووالدنا العزيز خالد 🙂 مثالك هو أحد السيناريوهات الكثيرة التي قد تحصل .. وعندك حق في هذا .. ولكن أنا كان جل تفكيري في الموضوعات التي بإقرار صاحب الموضوع على حصوله على الإجابة الأفضل وقد يشير إليها ( ولكنه لا يضغط على الزر ) .. !! وكذلك المواضيع التي تُحل ويمضي عليها فترة من الزمن ( ليست بالقليلة ) ولا يضغط صاحبها على الزر أيضا !! وهذه هي المواضيع التي أشرت على أنها قد تمثل 70% من مواضيع المنتدى .. ( هذا العدد كبير في نظري ) .. سؤالي كان : أنتركها هكذا كما هي ؟؟ أم نعين صاحبها على هذا الزر المسكين فنضغطه نيابة عنه ؟ 😅

وعليكم السلام ورحمة الله 🙂 جرب الدالة Round مثلا .. وهذا شرح استخدامها ومميزاتها من موقع مايكروسوفت : https://support.microsoft.com/en-us/office/round-function-921ce538-c9a6-41e2-be87-28e685b59935 وهذه بعض الأمثلة عليها : Round (12.55, 1) Result: 12.6 (rounds up) Round (12.65, 1) Result: 12.6 (rounds down) Round (12.75, 1) Result: 12.8 (rounds up)

تتمة : والقائمة الموجودة في هذا الموضوع ( دروس وشروح وتطبيقات وأفكار _ مواضيع مهمة مثبتة) أيضا تحتاج لتحديث مستمر .. وترتيب وتصنيف وتنسيق 🙂

وعليكم السلام ورحمة الله وبركاته أستاذنا العزيز @jjafferr 🙂 وعودا حميدا .. من أجل التطوير والتحسين لدي عدة مقترحات .. : 1- أن يتم تبيين من هم المشرفون على المنتدى ( لكل قسم على حده )، وذلك للتعريف بهم والتعرف عليهم ولتسهيل عملية التواصل معهم ، أو لأي غرض آخر. 2- إعطاء المشرفين صلاحية تبيين أفضل إجابة ( في حال غفل أو تجاهل صاحب الطلب تعيينها ) ، ناقشت هذا الأمر سابقا ،و الواقع يقول أن تقريبا في حدود 70% من المواضيع متروكة بدون تعيين الإجابة الأفضل على الرغم من من أنها محلولة .. وتعلمون إيجابيات وسلبيات هذا الأمر ( لا داعي لذكرها الآن ). 3- ( تثبيت المواضيع المتميزة ) : تمر فترات يتم فيها طرح مواضيع متميزة جدا ومتعوب عليها وفيها اجتهاد وسبق ولكنها تندفن بين ثنايا المواضيع الاعتيادية ثم تنجرف مع تيار المواضيع ولا يلتفت إليها إلا من يمعن النظر والتركيز ، لذلك نتمنى أن يتم النظر لهذا الأمر بجدية وذلك تشجيعا وتكريما لهؤلاء المجتهدين والذين آثروا طرح أفكارهم الاستثنائية في هذا الصرح المبارك .. ( وهذا السبب الذي جعلني أعرض مواضيعي المميزة في خانة التوقيع ، على الرغم أني أعرف أنها مزعجة بصريا .. والقائمة تطول ) 4- نتمنى أن يكون هناك تفاعل من قبل المشرفين الأكارم مع مواضيع الأعضاء على فترات متقاربة .. بحيث نشعر بوجودهم معنا ، فأحيانا يغيب المشرفين فترات طويلة ( قد تمتد لأشهر ) ولا نسمع لهم خبرا .. والغائب عذره معه طبعا .. ولكن أحيانا يغيب الجميع مرة واحدة 😅. 5 - ( مكتبة الموقع ) : هي عبارة عن كنز حقيقي للمنتدى ولكنها غير مرتبة كما تستحق وغير منظمة نوعا ما .. وغير مستغلة لإبراز أهم مخرجات المنتدى .. بحيث يصل الباحثون بسهولة إلى الفوائد والفرائد من إنتاجات الأعضاء .. فعدد المواضيع بها قليلة ( مقابل الإنتاجات الكثيرة الموجودة فعلا في المنتدى ) .. وكذلك البعض يخطئ ويفتح مواضيع استفسارات بها وتترك كما هي . 6- الحقيقة يساورني القلق حيال المساحة المحدودة لدي لإرفاق الملفات ، فأنا بطبيعتي إنسان بصري أحب أن أدعم مواضيعي بالصور التوضيحية وكذلك في حال المشاركة بالرد على استفسارات الإخوة ، فالصورة الواحدة تغنيك عن ألف كلمة كما يقولون 😄 ولكن كل مرة أعيد حساباتي قبل الرد بصورة ( خصوصا لما أشوف العداد يزيد ) 😅 .. أعرف أن البدائل موجودة ولكن مع مرور الوقت والزمن أغلب المواقع تحذف هذه الصور .. وستبقى المواضيع مشوهة ولا توصل الفكرة !! 7- أحينا أقوم بفتح موضوع جديد أعرض فيه فكرة معينة، ثم مع المناقشة مع الإخوة الخبراء يتم الخروج بتحديثات جديدة وأفكار تصحيحية للموضوع الأصلي فأحتاج للرجوع إلى تعديل أصل الموضوع ( النص أو المرفقات ) ولكن تكون فترة السماح بالتعديل قد انتهت فيظهر الموضوع للزائرين والمتابعين بأخطائه وعيوبه وهذا أمر غير محمود ، والواقع يقول أن القلة القليلة من الناس من يتابع النقاشات والتي تمتد أحيانا لعدة صفحات لمعرفة الخلاصة .. فالناس يريدون ( زبدة الموضوع ) والتي عادة ما تكون في أول مشاركة. 🙂 هذا ما يحضرني الآن .. مع تمنياتي لكم بالتوفيق ،، وشكري وتقديري لجميع جهودكم المبذولة .. 😊🌹