jjafferr

هذا السبب جعفر

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

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

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

حياالله أخوي رمهان وهذا اللي عملته ، بإستخدام DMax اولا للحصول على القيمة العليا للحقل ID ، اي Order by ID desc ، ثم استخدام قيمة هذا الحقل ، للحصول على الحقول الصحيحة من السجل الصحيح جعفر

السلام عليكم ورحمة الله وبركاته الجزء الاول تم مناقشته هنا هذا الجزء رقم 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

وهذا برنامج آخر ، مليء بالادوات المفيدة وفي اعتقادي اني تكلمت عنه في احد المشاركات ، والرابط: http://www.mvps.org/access/downloads/accwebfaq-10-10-00-A9.zip جعفر

الظاهر ان هذا البرنامج اللي تشتغل عليه يسوى مجموع البرامج اللي فقدتها الحمدلله جعفر

وعليكم السلام المنتدى لدعم اي شيء يمكن ان يساعد احدنا في برامجه ، فأهلا وسهلا بفكرتك جعفر

السلام عليكم احد اهم الحقول اللي عندك هو حقل الترقيم التلقائي ، والذي دائما سيعطي الرقم المسلسل لإدخالك ، فإستعماله سيحل لك المشكلة: Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) Dim x() As String MX = DMax("[ID]", "Transactions", "[Qty in]<>0") DL = DLookup("[add_doc] & '|' & [zdate]", "Transactions", "[ID]=" & MX) x = Split(DL, "|") Me.Text53 = x(0) Me.Text48 = x(1) End Sub جعفر

في هذه الحالة خلينا نسأل ونشوف اذا كان السبب واضح: - هل عملت تغيير في التاريخ في اعدادات الوندوز؟ او اي اعدادت اخرى في الوندوز؟ جعفر

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

السلام عليكم الموضوع ظاهرا ليس ببسيط ، فياريت مرفق ، ونجرب عليه جعفر

العفو أخي عمرو ، كنت بهزّر مع اخونا أوس وهذه طريقتي في طلب معلومات في مشاركاتي لفهم الموضوع ومعرفة المشكلة جعفر

اخبرني الموديل ، وبنعمل لك برنامج يسترجع الملفات اللي تحب ، بس لوسمحت اعطنا تفصيل كامل عن الموديل ونوع الاستخدام الله ان شاء الله يسهل عليك في مصابك جعفر

وعليكم السلام وتوضيحا لجواب اخي شفان = "(" & format([حقل التاريخ],"yyyy/mm/dd") & ")" او = "(" & format([حقل التاريخ],"dd/mm/yyyy") & ")" او = "(" & format([حقل التاريخ],'yyyy/mm/dd') & ")" او = "(" & format([حقل التاريخ],'dd/mm/yyyy') & ")" جعفر

1. الحمدلله 2. الاكسس لا يستعمل ملف خارجي مؤقت لحفظ البيانات عند عمل إضافات سجلات في الجدول ، فهو يُدخل البيانات اولا: أ- ثم يسأل اذا المستخدم موافق او لا (هذه رسالة التأكيد التي تظهر لنا قبل الحاق/إضافة السجلات) ، ب- وثم يتأكد من شروط الحقل اذا تنطبق عليه او لا (مثلا يجب ان يكون الرقم في الحقل بين 1-12 مثلا) وعليه ، فكلما اضاف سجل جديد ، فتلقائيا يكون لكل سجل رقم تلقائي جديد ، والرقم التلقائي اللي ينحذف ما يرجع وفي مثل حالتك ، الرقم 2 راح عليك لأنه بين الارقام ، اما اذا اردتي الرقم التلقائي يبدأ من الرقم 4 ويواصل ، فيجب عليك حذف الارقام 34 و35 ، ثم عمل ضغط واصلاح للبرنامج ، ثم ستجدين ان الرقم التلقائي يبدأ من 5 ، الى ان تقومي بعملية الالحاق والالغاء ونرجع لنفس المشكلة في الواقع هذه ليست مشكلة في البرنامج ، وانما مشكلة المبرمج ، حيث قلت مرارأ وهذه الروابط ستفيدك و جعفر

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

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

الظاهر ان الملف اكبر من ان يقبله المنتدى ، لذا ارفعيه في احد مواقع رفع البرامج ، وارفقي الرابط هنا لإنزاله ومثل https://www.mediafire.com/ جعفر

اذن إحنا محتاجين مرفق ، وتفاصيل عن السجل المطلوب الحاقه بالجدول

ولما تستعملين هذا المعيار ، يعطيك اكثر من سجل ، صح؟ فهذا معناه ان المعيار الواحد الذي في الاستعلام غير كافي ، فيجب ان تضيفي معيار او معيارين اضافيين جعفر

انتي لما تعملي استعلام ، فعندك جميع سجلات الجدول ، ولكي تحصلي على سجل معين ، فيجب ان تستخدمي معيار Criteria لحقل/حقول ، حتى يعطي استعلامك السجلات الصحيحة جعفر

وعليكم السلام هذا معناه ان المعيار الذي تستخدميه ليس فريدا ، وانما هو مشترك بين هذه السجلات جعفر

شكرا ، ان شاء الله انظر في الرابط جعفر