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

وجدت لك هذا @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

وعليكم السلام -اهلا بك فى المنتدى ,لك ما طلبت fixed Time.xlsm

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

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

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

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

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

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

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

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

السلام عليكم اريد التكرم بالمساعدة في عمل فلترة للبيانات بناءا على الشرط تجربة متعددة.accdb

جرب الخط نزل النموذج وجرب معاه الخط النموذج غير الاصل IDAutomation Code128 Demo Font.rar BarCode_up.accdb

جرب كدة مرفق الخط المستخدم BarCode_up.accdb IDAutomationSC128XS.zip جرب وافدني

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

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

🙂

السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف 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

السلام عليكم اخي @رابح1999 اظن الملف المرفق هو ماتريد ان تعمله بالضبط اتمنى يكون المطلوب اعلمنا النتائج تحياتي بحث بالقائمة الفرعية والاسم معا.rar

السلام عليكم جرب المرفق اخي الكريم اتمنى يكون المطلوب اعلمنا النتائج تحياتي ProgClac44.rar

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

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

Try This File Last_Cell.xlsm

السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم 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

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

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

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