ابو جودي

اللهم امين امين امين كل الشكر والتقدير واطيب الامانى والتهانى

اللهم امين استاذى الجليل منا ومنكم وكل المسلمين ان شاء الله تعالى كل الشكر والتقدير واطيب الامانى والتهانى

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

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