jjafferr

وعليكم السلام واهلا وسهلا بك في المنتدى هذا الرابط فيه طريقة التصوير باستخدام WebCam ، وكاميرا اللابتوب تُعتبر WebCam كذلك استخدام السكانر او اي نوع من انواع الكاميرات سوف يُنتج لنا صورة ، وبإستخدام البرامج المتخصصة ، هناك اشياء يمكننا قراءتها من الصورة مثل: الطول والعرض ، عدد الالوان ، وهناك برامج تستطيع قراءة الصورة وتحويل الكتابة التي بها الى نص (Optical Character Reader, OCR) ، ولا اعرف عن برنامج يمكنه قراءة خطوط الباركود في الصورة وتحويلها الى ارقام في حقل الباركود في البرنامج ، وحتى وان وُجد هذا البرنامج ، فالتحدي سيكون في سرعته فالجواب بإختصار ، لا ، لا يمكن حاليا على الاقل جعفر

اعطني مثال لوسمحت ، انزلت المرفق وما عرفت اوصل لكلامك جعفر

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

السلام عليكم اولا انا اعتذر بأني اخطأت في التسميات في مشاركتي السابقة ، فبدل كلمة المرجع كان لازم اقول مكتبة ، وبدل Bounding كان المفروض ان اقول Binding الربط المسبق Early Binding: 1. ان تختار مكتبة الاكسل (طبعا لهذا المثال) ، . 2. ثم الكود يكون شيء من هذا القبيل: Dim oExcel As Excel.Application Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True والمشكلة هنا ، انه اذا اخترت مكتبة اكسل الاقل (مثلا اكسل 8) ، فأي كمبيوتر يحتوي على اكسل 8 او اكبر (9 ..12..15) فالمكتبة/البرنامج سوف يشتغل بطريقة صحيحه ، بينما اذا كان عندك اكسل 6 ، فستحصل على خطأ ، ولن يعمل الكود الميزة الموجودة في هذه الطريقة ، انها اسرع في العمل ، والاهم من هذا ، انها تساعدك في اعطائك الاوامر (مثلا تكتب امر معين ثم تكتب نقطة . فتظهر لك الاوامر التي تستطيع استعمالها). اما اذا استعملنا الربط المتأخر Late Binding فإننا لا نحتاج الى اختيار مكتبة الاكسل ، ونكتب الكود اعلاه هكذا ، والذي يشتغل على جميع اصدارات الاكسل: Dim oExcel As Object Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True المشكلة هنا ، اننا يجب ان نعتمد على انفسنا لعمل الكود ، فالاكسس لن يساعدنا ، وهو ابطأ من الطريقة الاولى. جعفر

السلام عليكم مثل ما اخي شفان قال ، انا لم الحظ تأخير في فتح النموذج ، ولكن ملاحظاتي هي: . النموذج به عدد مهول من الكائنات = 116 كائن + 3 اقسام (اقصى عدد لكائنات النموذج هو 754 كائن) ، والذي يجب ان تفكر في طريقة لتفكيكه الى اكثر من نموذج ، وإلا فأنت تُخاطر ان يصيب احد هذه الكائنات اي عطب ، ويوقف عمل لنموذج بالكامل ، كائن ActiveX من الكائنات البطيئة في العمل ، عند فتح النموذج ، فإنك تطلب بيانات من الجدول 16 مرة وهذا عدد كبير ، عند فتح النموذج واخذ البيانات من الجدول ، وعند طلب مربعات التحرير والسرد الـ 14 بياناتها من الجدول ، وعند استخدامك الامر Dlookup في حدث فتح النموذج ، معظم كود فتح النموذج هو للزينة (تكبير النموذج والكائنات فيه) ، ويعمل حساباته على جميع الكائنات في النموذج لتكبيرها ، وحساب مقاسات كل كائن تتطلب الخول في 4 Subs ، وانا يدويا حسبت عدد مرات الدخول في Subs والذي وصل الى 464 مرة وتوقفت عند هذا الحد (صحيح ان الكمبيوتر سريع ويحسب جميع حساباته بسرعة فائقة ، ولكنه يحتاج الى حسابها والذي يأخذ وقت) ، بالاضافة الى وجود امر Dir مرتين في فتح النموذج ، وهذا الامر معروف عنه انه بطيء نوعا ما. نصيحتي للعمل هي: تفكيك النموذج الى اكثر من نموذج ، توقيف كود تكبير كائنات النموذج ، تقليل عدد كائنات النموذج ، كائن تصفح الانترنت "Microsoft Web Browser" ActiveX ، لم تختار له مكتبه من صفحة الكود Tools>Reference ، والتي هي عادة ieFrame.dll في C:\Windows\System32 ، بينما عملت له ربط متأخر عن طريق الكود : Set web = Me.objIE.Object ، مما يجعله ابطأ في العمل والتحميل. جعفر

للأسف ، لا نستطيع القيام بهذه العمليات في ذيل الصفحة Page Footer ، بل نستطيع ان نستعمل: Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.total = nz(DSum("[raseedafter]", "raseed", "[nationalty]=" & Me.nationalty),0) End Sub . والنتيجة جعفر 680.3.الاجازات - Copy.accdb.zip

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

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

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

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

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

وعليكم السلام نعم ، وكما قال أخي sandanet ، فقارئ الباركود يرسل رقم الباركود وامر الانتقال الى حقل آخر (Enter او Carriage Return) ، وهذه ميزة لمعظم البرامج ، بحيث تستطيع ان تضع كود في حدث "بعد تحديث" الحقل الذي فيه الباركود فاذا اردت ارجاع المؤشر الى نفس حقل الباركود ، فاستعمل الكود التالي (انا استخدمت اسم اي كائن/حقل في النموذج باسم Next_Field) Private Sub BarCode_AfterUpdate() Me.Next_Field.SetFocus Me.BarCode.SetFocus End Sub جعفر

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

وعليكم السلام تو مو ذه ، مو قالو لك اشتغل بالبخور وفي راسي جني او شيخ ، يخبروني باللي ما خبرتني عنه وما اشوفه عندك اختيارين: 1. تصبر عليّ ليلة الجمعة انزل زيراني واعرف منهم ، وارد عليك ، 2. او ترفق لك مرفق جديد فيه المشكلة ، وتشرح لي وين المشكلة ، وكيف تريد الحل جعفر

وعليكم السلام اعمل التغيير التالي على استعلامك . بدل Current_User اكتب اسم حقل المستخدم اللي في النموذج ، وفي حدث "تحميل" النموذج اكتب : me.requery جعفر

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

وعليكم السلام الصور التالية هي من المرفق اعلاه: . . . وكما تلاحظ فالمجموع في ذيل التقرير يساوي مجموع التقارير الفرعيه ، حسب الرقم القومي ، والجمع صحيح استاذنا الفاضل ، دعني ارى ما تراه انت ، وعليه احاول ان اجاوب على سؤالك جعفر

تفضل 1. نفكك السنة والشهر واليوم (هذا بسبب وجود صفر في اليوم/الشهر ، والذي سنحوله الى 1) . 2. والنتيجة: . 3. الآن نضع المعادلات اعلاه في الامر DateSerial لتحويلها لصيغة تاريخ ، في استعلام تحديث: . 4. والنتيجة المطلوبة: . جعفر . 706.نموذج بيروت بيانات.accdb.zip

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

وعليكم السلام شكرا لك أخي شوقي جعفر

وعليكم السلام هذا البرنامج يؤدي الكثير من الاشياء للأكسس ، ومنها طلبك: http://www.skrol29.com/us/vtools.php جعفر

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

وعليكم السلام رجاء ترفق لنا هذه الجزئية من برنامجك علشان نراه ، وقبل ان ترفعه على الموقع يجب عليك ان تضغظه بواسطة winrar او winzip. جعفر

وعليكم السلام اذا عندك 10 سجلات مثلا ، فكيف ستأخذ قيمة من السجل رقم 4 مثلا؟ المعيار سيكون وسيلتك لتصفية هذا السجل ، او معيارين مثل ID=4 او fName='جعفر' المعادلة هذه نستخدمها عادة لأخذ قيمة من جدول ، ولكننا نستطيع استخدامها لأخذ قيمة من استعلام كذلك ، كما هو الوضع في حالتك جعفر