jjafferr

وعليكم السلام اخي شكرا على هذه المعلومة ، ولكن لا اعرف مدى ربط هذا المنتج بالسؤال!! فالسؤال هو عن استعمال كامرا الابتوب Webcam لقراءة الباركود جعفر

اخي هاني الخطوات هي كالتالي: 1. تمنع المستخدم من الدخول للبرنامج بالضغط على مفتاح الشفت ، 2. تجعل المستخدم لا يرى الكائنات ، غير النماذج والتقارير التي يفتحها عن طريق الازرار ، 3. تعمل قائمة جديدة للزر اليمين ، بحيث تحذف منه الدخول الى وضع التصميم. بهذه الطريقة لا يمكن لآحد ان يُغير التصميم جعفر

أختي الفاضلة سؤالك كان والجواب هو اما 1. فأنتي المفروض انه عندك الكود جاهز ، لهذا السبب انتي طرحتي هذا السؤال ، ومعظم المبرمجين لا يعرفون كيف يستفيدون من كود مكتبات البرامج الاخرى غير الاكسس ، 2. ابطأ من الطريقة الاولى ، وليس بطيء جعفر

وعليكم السلام الاجابة هي نفسها التي اقترحتها من اول مشاركة ، استخدمي Late Binding جعفر

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

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

هذا مثال جعفر

وعليكم السلام الظاهر من كلامك انك محتاج تصفية لكل مدينه ، والافضل ان تتم التصفية من الاستعلام ، بحيث لما يدخل المدير في النموذج ، تلقائيا يقوم النموذج بتصفية بيانات النموذج حسب مدينته جعفر

شكرا على المعلومة منذ الصباح ابحث عن هذه البرامج كما تفضلت ، وبالفعل موجودة ، والبرنامج الوحيد "المجان" الذي وجدته والذي "اعتقد" بأننا نستطيع التحكم فيه من الاكسس هو: https://sourceforge.net/projects/zbar/ لأن فيه نظام التحكم عن طريق Commanline (كما هو الحال في التحكم في البرامج التي في رابطي اعلاه) ، والبرنامج يحتاج تنصيب وتجربة!! جعفر

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

وعليكم السلام نعم الامثلة كثيرة في المنتدى ، والرابط التالي فيه كود يعمل بطريقة الربط المتأخر Late Binding وستلاحظ ان مكتبة الاكسل غير مُختارة فيه ، كما ستلاحظ هذين السطرين في اول الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook هذا معناه اني واثناء البرمجة ، استخدمت طريقة الربط المسبق Early Binding لكي تساعدني مكتبات الاكسل ، وعند الانتهاء من البرنامج حذفت مكتبة الاكسل وغيّرت السطرين اعلاه والمهم هنا ان تُجرب البرنامج بعد تغييره الى الربط المتأخر Late Binding ، للتأكد ان الكود لايزال يعمل بطريقة صحيحة ، ومعظمها سيعمل ان شاء الله ولكن ، الرابط التالي يُخبرك انه لا تستطيع دائما ان تستخدم نفس الكود بين الربط المسبق والربط المتأخر: جعفر

شكرا اخي @sandanet على الملاحظة 1. اخي حمدي رجاء مراعاة شروط المنتدى ، 2. اها ، اذن يجب ان يكون عندنا اجتماع على قهوة مع اخي @Shivan Rekany لمناقشة هذه العادة جعفر

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

وعليكم السلام واهلا وسهلا بك في المنتدى هذا الرابط فيه طريقة التصوير باستخدام 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-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف المنتدى مليان بمواضيع التفقيط والنسخ الاضافية ، وكل ما عليك عمله هو البحث. جعفر