نجوم المشاركات

. . جعفر

. . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر

عندما تجتمع العقول يظهر الابداع ... وقد لاحظت ان الابداع في الاكسس يتجلى في شقين الأمر الاول : هو التفكير المنطقي لتحديد الحاجة من برنامج الاكسس الأمر الثاني : هو المهارة في تحويل الافكار إلى نماذج وتطبيق الكودات المناسبة لإظهار الأفكار كتطبيق مع مراعاة جمالية التصميم كعامل راحة نفسية للمستخدم

هذا الروابط بتفيدك . . . جعفر

السلام عليكم 🙂 عمل جميل اخوي موسى 🙂 والكاسبريكاي ما اعترض على شيء 🙂 جعفر

نصيحة حتى تجد تفاعل اكثر تناول كل موضوع بجزئية وانت حقيقة تطلب تصميم برنامج كامل من خلال طلبك لعدة اكواد ولا اعتقد ان احد لديه الوقت لتصميم برنامج كامل لانه في النهاية منتدى تعليمي .

لا.. يمكنك تغيير اسم النموذج إلا إذا كان مغلقاً.. استخدم عوضاً عن ذلك Screen.ActiveForm

تفضل ... اكتب الكود المطلوب ثم دبل كلك على مربع النص وانظر ..... test (13).accdb

السلام عليكم ورحمة الله وبركاته حياك الله اخي الكريم في بداية يجب عليك اعتماد قواعد المحاسبة في اعداد برنامج محاسبي لتستطيع الوصول الى ما تريده في التقارير يجب عليك اعداد جدولين لسند القيد بحيث عندما تقوم باي عملية يقوم البرنامج بكتابة القيد المحاسبي المزدوج تلقائيا ، ومن ثم من جدولي سند القيد تستطيع استخراج التقرير الذي طلبته اسمح لي ان اقدم لك بعض النصائح التي سوف تحصل على افضل مساعدة من خلالها في المنتدى 1- لا تقوم باخفاء نوافذ اكسس قبل ارسال المرفق 2- لا تضع كلمة مرور للبرنامج عند الفتح حتى تضع اسم المستخدم وكلمة المرور في المنتدى 3- عندما ارفقت الصورة لم يظهر اسم التقرير الذي تريد التعديل عليه ، وعندما فتحت المرفق وجدت الكثير من التقارير و لم اعرف اي تقرير تريد التعديل عليه (لا تشتت من سيجيبك بين كائنات المرفق) 4- الكائنات الغير مرتبطة في سؤال يفضل عدم رفعها او اخفاؤها

واعمل compile للبرنامج قبل ان تعطية المستخدمين : . وانصحك استخدام برنامجي التالي والذي لا استغنى عنه لعدة مرات في اليوم ، والذي يقوم بالعمل اعلاه ، بالاضافة الى العديد من التصفيات ، ويخزن لك نسخة احتياطية : جعفر

كذاك تبغاه الأخ سعيد ؟ 🙂 مدة عمل الموظف.rar

بسم الله الرحمن الرحيم :: (( مكتبة الأكواد الخاصة )) :: وهي عبارة عن حافظة شخصية للأكواد والملفات الخاصة بمبرمج الأكسس أو أي مبرمج آخر .. البرنامج به كم لا بأس به من الأكواد التي كنت أستخدمها في تصميم البرامج، بعضها من إبداعات الإخوة في الموقع وبعضها من مصادر أخرى.. من مميزات البرنامج خاصية البحث السريع للوصول للأكواد بسهولة .. وفيه تقسيمات للأكواد المجربة وغير المجربة .. وكذلك يمكن الإشارة للمرجع الذي تم أخذ الأكواد منه .. وأيضا يمكن حفظ الملفات المرتبطة والأمثلة في مجلدات قرينة بالبرنامج 🙂 البرنامج مفتوح المصدر ويمكن لك أن تغير فيه ما تشاء ليلبي احتياجاتك الشخصية .. :: ما الجديد في النسخة الثانية :: تم زيادة عدد الأكواد إلى أكثر من 170 كود VBA وغيرها .. ( كنز حقيقي 🙂 ) الكثير من الأكواد التي تم اختبارها وإنتاجها بجهود الإخوة في المنتدى تم إدراج العديد من المرفقات المصاحبة لبعض الأكواد كأمثلة حية . تحسينات بسيطة على تصميم المكتبة. إبحث عن ما تريده لعلك تجده في مكتبتنا العامرة :: للتحميل :: مباشرة من مكتبة الموقع 🙂 : مهم جدا :: تأكد من فك ضغط الملف بعد التحميل لتستطيع فتح المرفقات :: 🌷 :: تحياتي :: 🌷 🙂 :: ولا تنسوني من صالح دعواتكم :: 🙂

تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name

أوقات الصلاة

وعليكم السلام 🙂 احفظ البرنامج في مجلد موثوق به ، وافتحه من هناك 🙂 وهذه طرق اخرى لحل المشكلة: https://www.devhut.net/bypassing-microsofts-new-blocking-of-macros-vba-code/ جعفر

السلام عليكم 🙂 الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 المفروض يكون: Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX DoCmd.Close acForm, Me.Name End Sub او Private Sub GO152_Click() On Error Resume Next dim GE2 as long,SX2 as long GE2=me.GE : SX2= me.SX DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & GE2 & " and [NOV]=" & SX2 End Sub جعفر

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

ما رأيك اعمل لك نموذج واحد واستعلام واحد لجميع ازرار الرصيد السابق ؟ لانك الآن تستخدم ثلاث نماذج وثلاث استعلامات

المشكلة في المعايير في الاستعلام الخطأ في استعلامك : 1- لم تضع معيار لتصفية (اصغر من) من تاريخ 2- وجود معيار تصفية من تاريخ الى تاريخ وهذا لا معنى له لاننا نريد جميع التواريخ السابقة علما انه يمكنك التصفية حسب السنة المالية او اتركها خالية ليظهر الجميع T3Q -5.rar

اذا كان ما تقصده ربط الاكسيس بجهاز الكاميرا هو ما تريده فللاسف ليس لدي خبره فى هذه النقطه فممكن تنتظر المساعده من اساتذتى الكرام ( حفظهم الله ) اذا كان هذا ممكنا وكيف الوسيله @jjafferr @ابو جودي@Moosak او من يكن عنده خبره

شكرا لك من أعماق قلبي @المشرفيوممكن تشرح الطريقة😍

وعليكم السلام أخي athal1 🙂 عدل سطر الفلتر إلى هذا : Me.Form.Filter = " [ItemName] LIKE '*" & filter_data & "*' And [InvoiceDate] BETWEEN #" & Me.Text1 & "# AND #" & Me.Text2 & "#" هنا :

أشكرك كثير استاذ وأشكر كذلك كل الاساتذة الذين ساهموا بمشاركاتتهم في هذا الموضوع صحيح هو المطلوب

wor1.xlsm

أحسنت استاذى الكريم وبارك الله فى جهودكم

جزاكم الله خيراً أستاذنا الكريم @بن علية حاجي ، أحسنت ، نحن في بحر زاخر مليء باللآلئ الثمينة تكمن في ثنايا صخورها وما على الغواص البارع إلا استخراجها ، قد تختلف الوسائل والسبل إلى ذلك لكن المهم النتائج...بارك الله بكم وبعلمكم. مع فائق تحياتي لشخصكم الكريم

تفضل أخي الكريم School.xlsx

السلام عليكم ورحمة الله وبركاته أحبائى أعضاء وأساتذة هذا الصرح العلمى الكبير تحية طيبة وبعد سؤال كثيرا منا يتسائل ما هى أسباب وضع فاصلة أم فاصلة منقوطة في معادلات الإكسل؟ هل تذكر أول مرة كتبت فيها معادلة أو دالة Function في برنامج إكسل، وخاصة إذا كنت تعلمتها بطريقة نظرية – وليست عملية – يعني مكتوبة على ورق وحفظتها وفهمتها ثم تبدأ بالتطبيق العملي باستخدام برنامج الإكسل. ببساطة أنت تبدأ بكتابة المعادلة كما تعلمتها بالضبط، وتحاذر الخطأ، لكن مرة بعد مرة تظهر لك رسالة خطأ السبب بسيط، وهو أنك كتبت فاصلة (,) Comma وكان يجب أن تكتب بدلا منها فاصلة منقوطة (;) Semi-Colon أو العكس. إذًا لماذا تكتب المعادلة نفسها على جهاز آخر بنفس الخطأ، ولا تظهر رسالة خطأ وتسير الأمور بصورة طبيعية وينتج ناتج الدالة بشكل صحيح. لا تنزعج، وتقول عيب الجهاز. يرجع الأمر إلى أن الإعدادات في لوحة التحكم ببرنامج ويندوز Windows قد تختلف من جهاز لآخر. على كل حال إذا أردت من برنامج الإكسل أن يقبل منك الفاصلة في المعادلات أو الفاصلة المنقوطة بدلا منها، فعليك بعمل ذلك مرة واحدة من لوحة التحكم افتح لوحة التحكم من قائمة إبدأ ثم لوحة التحكم. اختر التاريخ والوقت. Date, Time, Language, and Regional Options اختر تغيير تنسيق الأرقام والتواريخ والأوقات. Change the format of numbers, dates, and times اختر تخصيص Customize اكتب في خانة فاصل القائمة List separator أكتب فاصلة أو اكتب فاصلة منقوطة، كما تريد. فهذه الفاصلة أو الفاصلة المنقوطة هي ما ستكتب به المعادلات في الإكسل. انقر موافق Ok ثلاث مرات. انتهي

وعليكم السلام 🙂 تفضل : . . جعفر

تفضل لك ما طلبت العملاء.xlsm

تفضل وأكثر مما تريد فورم ادخال وتعديل وحذف.xlsm

أكرمك الله استاذ مجدى وأحسن الله اليك

بارك الله فيك استاذ مجدى وزادك الله من فضله

احسنت أستاذ مجدى بارك الله فيك

بارك الله فيك استاذ مجدى وزادك الله من فضله

أحسنت استاذ مجدى بارك الله فيك

محمد عفيفى اليك الملف بعد التعديل يتضمن كود تحديد 10 صفوف بداية من الخلية النشطة والى اسفلها وكود لتحديد صف الخانة العاشرة بداية من الخلية النشطة والى اسفلها لنطاق معين يمكنك تعديله من داخل الكود. وكود لتحديد عمود الخانة العاشرة بداية من الخلية النشطة اوفيسنا-test3.xlsm

أحسنت استاذ مجدى كل عام وأنتم بخير

جزاك الله خير الثواب استاذ مجدى

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك وكل عام وانتم بخير

وعليكم السلام -يمكنك ذلك بجعل التنسيق هكذا [$-,2000000]0.00_);[Red](0.00) TEST1.xlsx

يمكنك ذلك بهذه المعادلة =COUNTIFS($C:$C,J5,B:B,"<>"&"") Book2.xlsx

أحسنت استاذ موسى عمل ممتاز جعله الله فى ميزان حسناتك

السلام عليكم ورحمة الله وبركاته الجزء الاول تم مناقشته هنا هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg والعمل غير مكتمل 100% ، هذا البرنامج يشتمل على الرقم 1 كذلك (وهو نفس نسخة الرابط اعلاه وبدون تغيير) ، هذا البرنامج يعتمد على البرنامج الخارجي (RobotEyez.exe) ، وهذا رابطه: https://batchloaf.wordpress.com/2011/11/27/ultra-simple-machine-vision-in-c-with-roboteyes/ وهذا كود برنامج التصوير عن طريق كاميرا Webcam: Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'RobotEyez location App_Location = BE_Path & "Camera_App\WebCam\RobotEyez.exe" Save_images_to = BE_Path & "images\" 'Debug.Print App_Location iview_Folder = BE_Path & "image_App\i_view32.exe" File_Path = Save_images_to & Me.Employee_ID & ".jpg" SetCurrentDirectory Save_images_to 'cmmd = App_Location & " /devnum 1 /delay 1000 /width 1920 /height 1080 /bmp" cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'convert bmp to jpg Call ShellWait(iview_Folder & " " & Save_images_to & "frame.bmp" & " /convert=" & File_Path, vbNormalFocus) 'Delete the bmp image Kill Save_images_to & "\frame.bmp" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" MsgBox Timer - istart . المرفق فيه جميع البرامج المطلوبة لجعل هذا البرنامج يعمل ، ولكن ، 1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ، فرجاء تغيير هذه الارقام: width 1280 /height 720 فتجربتي على الكاميرتين كانا: Logitec HD c615 : 1920 x 1080 Creative Live (VF0610)e : 1280 x 720 وهذه قائمة بالاحجام العامة للكاميرات ، وانا انصح بالبدء بالحجم 640x480 ، وعند ظهور الصورة ، تستطيع ان تزيد الحجم بالتجربة: . 2. اذا عندك اكثر من Webcam ، مثلا تستخدم كاميرا اللابتوب واخرى خارجية ، فيجب تغيير الرقم الى 2: devnum 1 وهذا هو سطر الكود الذي يحتاج الى تغيير: cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" . وبما ان هذا البرنامج للتجربة ، فالرجاء ابداء ملاحظاتكم جعفر Camera_Scanner.zip

السلام عليكم co2002co ان شاء الله مفهومي لشرحك صحيح ، لأنه كان جدا صعب عليّ واخذ وقت طويل !! تفضل: المرفق فيه نموذجين فقط Form1 و Form2 ، وتقوم الوحدة النمطية بإنتاج نسخ من Form2 كلما ضغطت على احد سجلات مربع القائمة: . هاي الوحدة النمطية المسؤلة عن انتاج نسخ من النموذج: Option Compare Database Option Explicit 'Author: Allen J Browne, July 2004 'Email: allen@allenbrowne.com Public clnClient As New Collection 'Instances of frmClient. Function OpenAClient() 'Purpose: Open an independent instance of form frmClient. Dim frm As Form 'Open a new instance, show it, and set a caption. Set frm = New Form_Form2 frm.Visible = True frm.Caption = frm.Hwnd & ", opened " & Now() 'Append it to our collection. clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd) Set frm = Nothing End Function Function CloseAllClients() 'Purpose: Close all instances in the clnClient collection. 'Note: Leaves the copy opened directly from database window. Dim lngKt As Long Dim lngI As Long lngKt = clnClient.Count For lngI = 1 To lngKt clnClient.Remove 1 Next End Function . وهاي كود النموذج Form1: Private Sub TopicList_AfterUpdate() Call OpenAClient End Sub . وهاي كود النموذج Form2: Private Sub Form_Load() Me.Text1 = Forms.Form1.TopicList.Column(0) Me.Text2 = Forms.Form1.TopicList.Column(1) Me.Text3 = Forms.Form1.TopicList.Column(2) Me.Text4 = Forms.Form1.TopicList.Column(3) Me.Text5 = Forms.Form1.TopicList.Column(4) End Sub جعفر 284.db.mdb.zip

وعليكم السلام . تفضل ، المرفق في هذا الرابط يقوم بفتح النموذج عدة مرات ، بدون ان يعمل نسخ جديدة: http://allenbrowne.com/ser-35.html جعفر

م / ياسر البنا فكرة رائعه ان تعرض هذا الامر ... جزاك الله خيراً .. تقبل خالص تحياتى

أخي الغالي : ياسر ألف شكر على التّوضيح .. بارك الله فيك و زادك من علمه و فضله .. لطالما تنوّر منتدانا بخبايا الاكسل الكثيرة باسم الله تبارك الله خالص إحتراماتي لشخصك الكريم

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل ياسر فتحي البنّا على هذا الدّرس البسيط مفاهيمه الثّمين محتوياته سؤال عزيز ياسر : أنت ذكرت بالشّرح فاصلة أو فاصلة منقوطة ..هل يمكن أن أكتب بلوحة التحكّم .. الاثنين معًا ..؟؟ فائق إحتراماتي