ابو جودي

اتمى ان ينال هذا العمل المتواضع على رضاكم ان شاء الله تعالى كل عام وانتم وانتم بخير وان شاء الله كل عام وكل شهر وكل يوم وانتم الى الله تعالى اقرب اخوكم المحب لكم فى الله _ محمد عصام ولمعاينة الفلاش اون لاين بدون قاعدة البيانات المرفقة من الرابط الاتى http://store6.up-00.com/2017-05/149557322361211.swf هديتى المتواضعة اليكم ... رجاء فك الضغط عن الملف المرفق لوجود ملف فلاش مقترن بقاعدة البيانات رمضان كريم.rar

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

راااااااااااااااااااااااااائع ان شاء الله للافضل

اخى الحبيب شوف حضرتك اتعاملت مع النموذج الفرعى >>----> ورقة بيانات ولذلك لا يمكن نقل التركيز الى النموذج الفرعى داخل النموذج الفرعى ولو ان النموذج الفرعى الاول استخدمته نموذج مستمر او نموذج بدلا من ورقة بيانات كان ممكن نقل التركيز الى النموذج الفرعى الاول ثم بعد ذلك نقل التركيز الى النموذج الفرعى للنموذج الفرعى وفى هذه الحالة كان الكود سوف يكون على هذا الشكل Form_xxx!rasael_custmer.SetFocus Form_rasael_custmer!N_rasael_custmer1.SetFocus

انا مش قادر افهم كويس لكن اتمنى يكون ده طلبك ان شاء الله العداد.rar

ضع هذا الكورد فى حدث عند النقر على زر الامر نقل التركيز Form_xxx!rasael_custmer.SetFocus نقل تركيز.rar

اتفضل التالي.rar

اهاااااااا سهله جدا ان شاء الله فقط فى استعلام2 غير المعيار الاتى فى الحقل1 <=1000 الى المعيار الاتى <=DLast("[رقم]";"Sheet1") وممكن برضو <=DMax("[رقم]";"Sheet1") Serial (1).rar

اتفضل Serial.rar فى استعلام2 وضعت المعيار الاتى فى الحقل1 <=1000

طيب ممكن سؤال هل ينفع نبعت صور؟؟؟؟؟؟

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

الملف اللى عندى vcf والاكسس مش بيشوفه

طيب معلش انا اسف اتحملوا اخوكم المسكين انا عارف الجوجل كونتكت ده وبارفع الاسماء دائما على الايميل كل ده تمام ازاى اجيبها على البرنامج علشان اختار منها انا عملت لها تصدير من جوجل الى الكمبيوتر ظهرت فى ملف CSV وده شكل الاسماء Dr Nader Abosaif,Dr,Nader,Abosaif,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,,,Mobile,01222181196,, دى مأساه علشان انتقى الاسماء والارقام واحدث بيها الجدول علشان ارسل الرسائل تم التجربة على رقم ادخلته يديويا فى الجدول وتمام بفضل الله هل من حل لارجاء كل الاسماء بالجدول الخاص بها فى قاعدة البيانات ؟

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

؟! انا كده فصلت ومبقتش قادر افهم واستوعب

طيب هذه هى القاعدة البرنامج الذى ننادى عليه بالامر Shell هو IrfanView للعلم البرنامج مرفق منه فى هذا المرفق نسخه بورتابل لا تحتاج الى تنصيب على الكمبيوتر والكود الذى استخدمه هو Shell (Application.CurrentProject.Path & "\i_view32.exe /batchscan=(,1,1,2,1," & Trim(temp_scan_path) & "" & Me.ID & " ,jpg,0)/scanhidden") ونناادى بالامر Shell على النسخه البورتابل المرفق من نفس مجلد قاعدة البيانات الارشفة بدون اعداد برنامج - IrfanView.zip

استاذى الجليل ومعلمى القدير استاذ جعفر انا اسف للاطاله والاثقال على كاهلكم ولكن اعهدكم اهل الحلم والكرم والجود جزاكم الله خيرا حضرتك قلت كلامكم عن الامر Shell ، ولكنه في حقيقة الامر هو مجرد مشغل لبرنامج آخر/كود ، وهذا البرنامج الآخر/الكود هو الذي يجب ان يعُطى المتغير ، هذا اذا كان يسمح بهذا السؤال هو وهذا البرنامج الاخر / الكود هو الذى يجب ان يعطى المتغير هذا اذا كان يسمح بهذا اذن هناك ما يسمح وما لا يسمح فهل البرنامج الذى نستخدمه هنا فى هذا الموضوع يسمح بهذا وان كان يسمح نستخدم هذا الكود صح Public Function TransferWithoutUI(ByVal sngResolution As Single, _ ByVal tColourType As TWAIN_MDL_COLOURTYPE) As Long ونناديها هكذا: Dim Result as Long Result = TransferWithoutUI(.....) if Result = .... ولو استخدمنا هذا الكود ايه هيكون مكان النقط بين الاقواس وايضا ماذا سيكون مكان النقط فى نتيجة الـ Result

والدى الحبيب واستاذى الجليل ومعلمى القدير استاذ @jjafferr انا نفذت على مثال اخر لانى لا املك ماسح ضوئى الان للتجربة ولكن حدث شئ واستنتج شئ من نسج خيالى اريد التساؤل عنه بعد تجربة المرفق جرب الازرار الصلاله ولاحظ الفرق التساؤل لو ظهرت الرساله بعد الانتهاء من المسح الضوئى قد يكون المسح الضوئى فشل لاى شئ اى كان انا لاحظت الرسالة تظهر بعد اغلاق التطبيق الذى نستدعيه بالامر شل اذن لن تكون للرساله علاقة باتمام العمليه من عدمها هل استنتاجى صحيح ؟! وهذا مرفق استاذى الجليل ومعلمى القدير ووالدى الاستاذ @ابو خليل وذلك بعد اضافة الموديول واستخدام الامر ShellWait استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

استاذى الجليل ومعلمى القدير ووالدى الحبيب ابو عبد الله جزاكم الله الخير كله انا بصراحة لم اجرب الطريقة الثانية ابدا اما الاول ى اعرفها واعمل بها فى عملى ولكن سأجرب الـ طريقة الثانية حتما ولتمام الفائدة رابط تحميل الاداة من الموقع الرسمى لها https://www.petges.lu/download

اولا انا سعيد جدا جدا جدا الحمد لله تعالى انى قدرت البى طلب حضرتك انت لم سالت انا خطر فى بالى فكرة موضوع البورتابل ولم اكن اعلم ان كانت ستفلح الطربقة وتنجح معى ام لا استعنت بالله عزوجل ورتبت افكارى وبفضل الله ونعمته هدانى الى الطريقه وانت أكدت انها تعمل بفضل الله سبحانه وتعالى ولكن فى شئ اخى الكريم لا تنسيى ان كان الجهاز المستخدم للمرة الاولى يجب نسخ الملف " TWAIN32d.dll " فى المسار " C:\Windows\System32 " وبخصوص الحماية للملف لو المجلد بهذه الطريقة اعلمها انا اعتقدت ان هناك طريقة برمجية لذلك سألت حضرتك اخى الفاضل كل الشكر والتقدير والاجلال لحضرتك لاهتمامك وحسن خلقك الكريم وحلمك وصبرك انت وكل من ساهم فى اخراج هذة الطريقة بهذا الشكل فلولا فضل الله تعالى اولا ثم افكار كل اساتذتنا الكرام التى استرشدنا بها فى طريقة تفكيرنا وكذلك افكار كل اخواناا الكرام الى ايضا غيرت وحرفت احيانا مسار فكرتنا الى الافضل فقطفنا من كل بستان زهرة حتى وصلت الى هذا الشكل جزاكم الله خيرا ايون استاذ جعفر فعلا انحنا فاهمين كده الرساله هتخرج فور بعد تنفيذ الشل لكن قبل الاكتمال من تنفيذ ما استدعاه الشل وممكن اتقل على حضرتك هحاول افهم من الرابط واطبق ولو ما قدرت استأذن حضرتك ارجع لك تساعدنا جزاكم الله خيرا

بعد تجربة ان شاء الله عندما تنجح لو تكرمت ممكن حضرتك تقولى طريقة الحمايه على المجلد من عدم الحذف ازاى ؟

جرب المرفق ده كده معلش مش معايا ماسح ضوئى الان الارشفة بدون اعداد برنامج - IrfanView.rar منتظر ردك لو تكرمت يا استاذ @sandanet

طيب فى حل تانى ولكن هى فكرة ممكن اجربها واوافيك بالنتيجة 1- وجود نسخة من البرنامج بوتابل لا تحتاج الاى اعداد وتكون ضمن مجلد قاعدة البيانات 2- نسخ الملف الخاص بتعريف الماسح الضوئى لربطه بالبرنامج 3- عمل كود عند تحميل النموذج يربط نفسه بالنسخة البوتايل من البرنامج كل ده ممكن عمل تقريبا ولكن لو نجح ذلك اذا تم حذف البرنامج البورتابل من مسار قاعدة البيانات فلن يتم عمل المسح الضوئى وهى نفس المشكلة لذا تنصيب البرنامج افضل وغير ذلك لتنصيب البرنامج فوائد اعظم وهى يمكنك الاستفاده من اضافة الإضافات المساعدة لتلك الادة PlugIns والتى تزيد فوائد استخدام البرنامج

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

انا غيرت السطر من الكود ده Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(,1,1,2,1," & Trim(temp_scan_path) & "" & Me.ID & " ,jpg,0)") الى Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(,1,1,2,1," & Trim(temp_scan_path) & "" & Me.ID & " ,jpg,0)/scanhidden") Archive v10.rar هو حضرتك ده مسار اعداد البرنامج اللى على الديسكتوب ده شورت كت فقط من هذا المسار