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

وجدت لك هذا @Elsayed Bn Gemy انظر لعدد السجلات في التقرير .... KANORY.accdb

بارك الله فيك على التوضيح وننتظر دره لربما يرد شيئ اخر ......

لاحظ الصورتين ...... أين الفرق وضح .....

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

تفضل أخي عبداللطيف تجربة متعددة.accdb

الان شيئ حاضر لتحديد عدد السجلات غير متوفر .... لكن جاري البحث في المنتدى .... ابشر

بعض اجهزة الباركود لانعمل الا على انواع معينة من الباركود .... لربما جهاز السائل من هذه الانواع .... بارك الله فيك أخي احمد

غير في هذه الاعدادات وحرب واحدة تلو الاخرى .....

احسنت اخى خالد جزاك الله كل خير وكما قال اخى واستاذى ومعلمنا العزيز تنوع الحلول فيه فوائد كثيره بارك الله فيكم اخوانى واساتذتى جزاكم الله خيرا

يمكنك استخدام مثل هذا الكود : Me.srver_Time = Make_File() if format(Make_File(),"dd-mm-yyyy") <> format(date(),"dd-mm-yyyy") then msgbox "تاريخ السيرفر غير عن تاريخ الجهاز" end if . جعفر

وعليكم السلام بارك الله فيك اخى مرفق مثال اخى @kanory بعد ضبطها لك جزاهم الله خيرا اخوانى واساتذتى ومرفق صوره ايضا للطريق لان هدفنا التعليم بالتوفيق اخى New Microsoft Access Database(3).accdb

هناك اداة يجب تثبيتها ليعمل لديك الباركود أخي احمد ....

اخى اشرف نزلت مثالك بالخط وثبت الخط ولكن لم يظبط معى فما السبب ؟ وفيك بارك الله اخى لعل الاستاذ مصطفى يوافينا بنوع القارىء لنبحث معه على نوعيه الخطوط التى يقرئها

تسلم أخي أحمد لك 😘 لجهودك المتميزة في المنتدى بارك الله فيك وفي امثالك .

منور اخى صالح @ابوآمنة جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

السلام عليكم مبادرة بسيطة بس طويله مع اخوتي kanory و أحمد الفلاحجى تحياتي New Microsoft Access Database.rar

جزاك الله خيرا اخى @kanory اعتقد هو شافهم مثلى عمود واحد تحت بعض مثلى ولرؤيتهم صف واحد بجوار بعض يجب ضبط طريقه العرض الافتراضيه على معاينه قبل الطباعه جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

وعليكم السلام اخى الفاضل محاوله منى على قد ما قدرت اخى الفاضل برجاء اختيار عنوان مناسب بعد ذلك للموضوع - مثلا (مشكله باستعلام الحاق وتصدير للاكسيل) فى حقول كتير لم يتم استيرادها من بعد اخر حقل الدمج اول حقل بعده الثانى لم يتم الثالث والرابع والخامس تركت لك استعلام الالحاق حتى لو اردت ان تعدل عليه ( هو مالوش لازمه حاليا يتم الاستيراد بالكود ) صدر واستورد ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_Database.accdb

وعليكم السلام 🙂 الطريقة الجديدة اللي توصلت لها هي عمل وحدة نمطية ، في برنامج الواجهة (ليس على السيرفر) تقوم بالتالي: - عمل ملف txt صغير على جهاز السيرفر، - قراءة الوقت الذي تم فيه عمل الملف (من اعدادات الملف) ، وهو الوقت الذي نريده ، -حذف الملف Public Function Make_File() Dim BE_Path, PauseTime, Start 'get the server path BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\")) BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path End Function . وننادي هذه الوحدة النمطية هكذا: Me.srver_Time = Make_File() . وبما ان ملف الجداول يكون في مجلد يسمح فيه بإنشاء/تعديل/حذف ملف ، فهذه الطريقة المفروض انها تشتغل 🙂 طريقة العمل هي ان تضع ملف my_BE.mdb على السيرفر ، وملف my_FE.mdb على كمبيوترك ، ثم تربط جدول الواجهة مع جدول الخلفية (سيسألك البرنامج عن فتحه) 🙂 جعفر Server Time.zip

اتفضل اخى حسين ان شاء الله يكون ما اردت امسح السجلات من النموذج وبعد تاكيد الحذف هتلاقى الكود اتغير و التاريخ اتمسح جرب ووافنا بالنتيجه بالتوفيق ان شاء الله A_UpdateNew.accdb

منا اساسا مكنتش فاهم فقلت اضيف رد مفيد ان كان فتمام مكنش فسياتى التوضيح هههههههههههههههههههههههههههه

بارك الله فيك هذا ما كنت اريده تماما

سؤال هل قمت بتثبيت الباركود ؟ مرفق ملف لتقريرك اطبعه ووافنا بالنتيجه REPORT.pdf ان لم تكن ثبت الباركود قم بتثبيته مرفق ملف الباركود وملف لتسهيل التثبيت ووافنا بالنتيجه بالتوفيق تسجيل ادوات اكتيف اكس وعند تسجيل اي اداة وذلك بالضغط بالماوس الايمن عليها ستجد هذا البرنامج موجود ضمن القائمocxdllreg.rar B-barcodex.rar

العفو اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق ان شاء الله

المرفق الاخير يعمل وننتظر الاخ مصطفى رده بعد تجربته

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

في الخدمة يا أخي عبداللطيف😘

اشكرك أخي الغالي @ابوآمنة

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

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

السلام عليكم المشكلة لم تكن في الكود بل المشكلة في الخلايا المدمجة بالأعلى في الورقة، تم إلغاء دمج الخلايا في الصفوف السبعة الأولى (من 1 إلى 7) بالملف واستعمال خاصية "التوسيط عبر التحديد" للمحافظة على التنسيق المطبق على الخلايا المدمجة سابقا... وتم أيضا (استعادة) الأمر التالي والذي تم التعديل عليه سابقا في الكود : .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i) بدلا من الأمر : .Range(a).EntireRow.Offset(h * i - h + 1).Copy .[A1].Offset(h * i) أرجو أن يفي الغرض المطلوب.... واعذرني لعدم الإجابة على طلبك لهذه اللحظة لأني كنت مشغولا بصب علامات الفصل الثاني في المؤسسة... بن علية حاجي GN HICHAM niv1 v4.xlsm

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

🙂

السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id) بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ اعلمنا النتائج تحياتي صورة الموظف.rar

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

بالنسبة لبقية البيانات ممكن عمل ذلك بواسطة معادلة بسيطة في الخلية D11 من الشيت Final =IF($C11="","",INDEX(Salim!D$11:D$100,MATCH($C11,Salim!$C$11:$C$100,0))) لا حظ الملف بعد تنفيذ الماكرو يمكن توقفيه (بواسطة الفاصلة العليا) واخفاء شيت Salim وأعادة تسمية شيت final الى اي اسم اخر لتكون مرجعاً و بذلك تبقى شيت Salim (مع الماكرو بداخلها) للتعديلات او الاضافات تعود اليها في وقت الحاجة من صف لاخر 2.xlsm

شكرا جزيلا استاذنا الفاضل ....

وعليكم السلام 🙂 عندك المعلومة هنا . وكل اللي لازم تعمله هو تحسب عدد : P = Present = حضور A = Absent = غياب جعفر

شاهد هذا الفيديو

برنامج الكنترول المدرسي اليمني إهداء لكل مدارس اليمن – مجاني ولا يسمح المتاجرة به . المهام يقوم البرنامج بالمهام التالية : إحصائيات حافظة الدوام إقرار بالقوى العاملة بيانات هيئة التدريس طباعة بيانات الشهادات الرسمية سجل توزيع الكتب كشف أسماء الطلاب خاص بيانات ورصد الطلاب تقسيم الشعب سجلات الغياب الرصد الشهري كشوف المحصلة الأولى والثانية شيت كنترول نصفي وآخر كشوف المناداة نصفي وآخر دليل الطالب نصفي وآخر دليل سري نصفي وآخر استمارة تفريغ درجات نصفي وآخر كشوف نهائية نصفي وآخر أوائل نصفي العام وآخر نتيجة نصفي وآخر تحليل مواد على مستوى الشعب نصفي وآخر رفع درجات نصفي وآخر خلاصات عامة وصف ومواد إعداد أرقام الجلوس والأرقام السرية الحساب التراكمي للمدارس التي تعمل بالحساب التراكمي يمكن تحميل البرنامج المحدث من الرابط التالي : https://cutt.us/ur8My للاخوة مستخدمي برنامج الكنترول المدرسي والسكرتارية يمكنكم التواجد بهذه المجموعة على الواتساب ليصلكم كل جديد عن البرنامج ولتلقي ملاحظاتكم . https://chat.whatsapp.com/Cxlu6FtAS6QL9G2ddVcgEB

السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم fDateFormat: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function وطريقة استعمال الكود كالأمثلة التالية: a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) او ("Select DISTINCT cen, [Date] From TTTT Where [Date]=" & DateFormat(Me.Idate)) او عدة طرق اخرى اليكم مثالين في البرنامج المرفق ، كيف ان الدالة DateFormat تعطيني نتائج صحيحة مباشرة ، بينما استخدام الطريقة التقليدية للتاريخ لا تعطيني النتيجة مباشرة: الجدول يحتوي على تاريخين ، 1-5-2015 و 2-5-2015 ، وهنا سنقوم بالتجربة على التاريخ 1-5-2015 (ويمكنكم استخدام التاريخ التاثي 2-5-2015) ، وللتأكد من نتائجنا ، عملنا استعلامين : و استخدام الكود في Recordset 1. مع استعمال الدالة DateFormate Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=" & DateFormat(Me.idate)) rst.MoveLast: rst.MoveFirst RC1 = rst.RecordCount والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 2. مع عدم استعمال الدالة DateFromat ، وانما استخدام الطريقة التقليدية للتاريخ: Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Me.idate & "#") rst.MoveLast: rst.MoveFirst RC2 = rst.RecordCount والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: استخدام الدالة Dcount 3. مع استعمال الدالة DateFormat RC3 = DCount("*", "tbl_T", "[Date]=" & DateFormat(Me.idate)) والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 4. مع عدم استعمال الدالة DateFormat ، ، وانما استخدام الطريقة التقليدية للتاريخ: RC4 = DCount("*", "tbl_T", "[Date]=#" & Me.idate & "#") والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: جعفر 84.DateFormat_Examples.mdb.zip

وفقك الله اخى تحياتي

نعم مثل ما قلت حولها الى xlsm او xlsb

اهلا بك اخى واستاذنا طلابك تحت امرك ان شاء الله مرحبا اخى واستاذى @kanory اسعد بمشاركتكم اخوانى واساتذتى لاتعلم واستفيد اكثر جزاكم الله عنا كل خير ساشرح لك ما فعلته لك بالاول قمت فى وضع التصميم بوضع حقل غير منضم وسميتهtxt ثم بتعديل مصدر السجل من الجدول لاستعلام من الجدول ثم قمت باختيار الحقول كلها كانه استعلام تحديد عادى ثم قمت بوضع معيار فى حقل الموظف بالاستعلام كالتالى [Forms]![جدول1]![txt] ثم قمت فى حدث بعد التحديث لحقل txt الكود التالى Me.Requery لتحديث النموذج بالبيانات المطلوبه فى الحقل txt وهى كود الموظف وفى حدث عند فتح النموذج كود لفتح النموذج فارغ DoCmd.GoToRecord , , acNewRec هذا ما تم عملهوما عن باقى الاستفسارات فان شاء الله يسعفنى الوقت بعملها بعد الارتياح قليلا من العمل واما عن المراجعه افانصحك استاذى الغالى بتحميل 9 ملفات قبل الاخير فى توقيعى للمراجعه وطلابك معك ان شاء الله على قدر معرفتهم واخواننا واساتذتنا لايقصرون جزاهم الله كل خير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

تاكد من اعدادت اللغة كما هو موضح بالصور

السلام عليكم مرفق نموذج وفى بعض الابدعات ليس من تصميمي ولكان منقول عن واحد مبدع لعلك تستفيد منهم - تحياتي نموذج جميل و روعه.rar

السلام عليكم الحل في المرفق Database2.rar

اولا: جزاك الله خير ع ماتقدمه ثانيا: مش كان افضل تحسب حساب المبتدئين زي كذا وتشرح لنا ايش طبيعة المعاناة اللي كنت تعانيها وايش اللي توصلت له وماذا يعني الكود اللي فوق بالدور الثاني^_^ واين يكون؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ معليش ومنتظر توضيحك ياجعفر افندي والا نعتبر المقال خاص بالمحتفرين, اقصد المحترفين.. هههههههههههههههههههه

اضافة جديدة للتقرير هل يمكن تفعليها ( أعتقد أنها مهمة جداً ) وهي عرض الإيجارات المستحقة والعقود المطلوب تجديدها خلال فترة زمنية على أقل تقدير 30 يوم الحركة العامة للمستأجرين.rar