at_aziz قام بنشر أبريل 24, 2017 مشاركة قام بنشر أبريل 24, 2017 بارك الله فيك وجزاك الله خير اخي حسين الحقيقه موضوع سحب الصور دفعه واحده مهم جدا واقتراحك الاخير راح يكون حو الحل اذا لم يوجد حل للسحب من الاسكنر مره واحده وفقكم الله جميعا رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 24, 2017 الكاتب مشاركة قام بنشر أبريل 24, 2017 UP رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 25, 2017 الكاتب مشاركة قام بنشر أبريل 25, 2017 (معدل) استاذتي الافاضل ممكن اعدل علي كود حذف الصور من النموذج الفرعي بحيث عند حذف صوره يتم حذفها من الفولدر وليس من الجدول فقط On Error Resume Next Dim Msg, Style, Response DoCmd.SetWarnings False Msg = "هل انت متأكد من عملية الحذف " & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings True نظام الصادر والوارد.rar تم تعديل أبريل 25, 2017 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 25, 2017 الكاتب مشاركة قام بنشر أبريل 25, 2017 (معدل) 6 ساعات مضت, حسين العربى said: استاذتي الافاضل ممكن اعدل علي كود حذف الصور من النموذج الفرعي بحيث عند حذف صوره يتم حذفها من الفولدر وليس من الجدول فقط On Error Resume Next Dim Msg, Style, Response DoCmd.SetWarnings False Msg = "هل انت متأكد من عملية الحذف " & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings True نظام الصادر والوارد.rar تم الوصول الي حل والكود هيكون كلاتي On Error Resume Next If Len(Dir$(ImagePath)) > 0 Then Kill (ImagePath.value) Else MsgBox "الفيل غير موجود" Undo Exit Sub End If ''''''''' Dim Msg, Style, Response DoCmd.SetWarnings False Msg = "هل انت متأكد من عمليه الحذف " & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings True طبعا الكود بيروح يشك علي الفيل موجد ام لا اذا كان غي موجود يعطي رسالة الفيل غير موجود اذا كان موجود بيحذفه تم تعديل أبريل 25, 2017 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 25, 2017 مشاركة قام بنشر أبريل 25, 2017 (معدل) @حسين العربى أخي حسين بعد المحاولات العديدة توصلت الى المرفق التالي .. https://www.sendspace.com/file/7la1i1 لكن بخصوص اختيار جميع الملفات داخل المجلد بضغطة زر بدون فتح نافذة لم افلح في عملها ..ارجو من الاساتذة الكرام ايجاد حل لذلك @ابوخليل انت صاحب الكود فانت ادرى منا بذلك أما بخصوص عملية المسح من السكانر سواء العادية او من نوع اوتوفيدر ارجو التجربة وموافاتي بالنتيجة بالنسبة للسكانر من نوع اوتوفيدر يجب عليك اختيار مكان حفظ الصور في مجلد اسمه scanner الذي يجب عليك انشاؤه بجانب البرنامج ومن ثم بعد اكتمال عملية المسح اذهب الى زر اضافة مرفقات من جهاز الكومبيوتر واختار جميع الصور اعدادات السكانر من نوع اوتوفيدر موضحة بالصور المرفقة ملاحظة: لاتنسى عمل مجلد جديد وتحديد مساره من البرنامج لنقل الصور اليه ماشاء الله اول مرة ارى موضوع يصل عدد القراءات فيه الى هذا العدد 2,127 قراءات هذا يدل على اهمية البرنامج تحياتي تم تعديل أبريل 25, 2017 بواسطه sandanet 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أبريل 25, 2017 مشاركة قام بنشر أبريل 25, 2017 2 ساعات مضت, sandanet said: @حسين العربى أخي حسين بعد المحاولات العديدة توصلت الى المرفق التالي .. https://www.sendspace.com/file/7la1i1 لكن بخصوص اختيار جميع الملفات داخل المجلد بضغطة زر بدون فتح نافذة لم افلح في عملها ..ارجو من الاساتذة الكرام ايجاد حل لذلك @ابوخليل انت صاحب الكود فانت ادرى منا بذلك أما بخصوص عملية المسح من السكانر سواء العادية او من نوع اوتوفيدر ارجو التجربة وموافاتي بالنتيجة بالنسبة للسكانر من نوع اوتوفيدر يجب عليك اختيار مكان حفظ الصور في مجلد اسمه scanner الذي يجب عليك انشاؤه بجانب البرنامج ومن ثم بعد اكتمال عملية المسح اذهب الى زر اضافة مرفقات من جهاز الكومبيوتر واختار جميع الصور اعدادات السكانر من نوع اوتوفيدر موضحة بالصور المرفقة ملاحظة: لاتنسى عمل مجلد جديد وتحديد مساره من البرنامج لنقل الصور اليه ماشاء الله اول مرة ارى موضوع يصل عدد القراءات فيه الى هذا العدد 2,127 قراءات هذا يدل على اهمية البرنامج تحياتي اخي العزيز هل المرفق المذكور يعمل عندك علي نوع الاسكنر الموضح بالصورة hp scan5590 لانه نفس الاسكنر لدي 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 25, 2017 الكاتب مشاركة قام بنشر أبريل 25, 2017 الف شكر استاذي الفاضل وجاري التجربه اليوم بأن الله وسوف اخبرك بالنتيجه رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 25, 2017 مشاركة قام بنشر أبريل 25, 2017 نعم اخي @محمد سلامة ان شاء الله مع هذا النوع وكل الانواع الاخرى تحياتي 2 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 25, 2017 الكاتب مشاركة قام بنشر أبريل 25, 2017 استاذي الفاضل sandanet المرفق يعمل بكفائة وطبقته ببرنامجي الحين بقي عندي سحب من خلال الاسكان وعندي بديل اخر وهو زر سحب عدة صور من الكمبيوتر بصراحه استاذي الفاضل يعطيك العافيه وانا اشهد لك شهاده من كل قلبي علي صبرك معي في هذا المشاركه الفريده من نوعها وعن قريب سوف ارفع برنامجين برنامج صادر وارد وبرنامج ارشفه شئون موظفين بس اكتشفت شئ غريب عند الحفظ في نموذج الادخال انا عملت مرفق تجربه لأريه لحضراتكم كمثال للمشكلة الي اكتشفتها طبعا عند الضغط علي زر الحفظ انا حاطط كود به شرط داخل الزر لمربع نص رقم الوارد اذا كان خالي يظهر رساله ولا يحفظ عندما تضغط علي الرساله تختفي البيانات من السجلات ( اليكم المرفق ( وجربوا بنفسكم ملحوظه دع مربع نص رقم الوارد خالي واضغط علي حفظ قاعدة بيانات1.rar رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 25, 2017 مشاركة قام بنشر أبريل 25, 2017 (معدل) منذ ساعه, حسين العربى said: الحين بقي عندي سحب من خلال الاسكان وعندي بديل اخر وهو زر سحب عدة صور من الكمبيوتر اخي حسين موضوع السحب من السكان ان شاء الله يعمل بكفاءة لاني جربته على نوعين من السكانرات المدمجة مع الطابعة والمنفصلة من نوع اوتوفيدر بعد معاناة للحصول على واحدة للتجربة على العموم في النموذج عند ادخالك لعدد الصور المراد سحبها فان البرنامج سيعتبر ان السكانر المربوطة هي من النوع المدمج مع الطابعة واذا تركت الخانة فارغة فسيعتبر ان السكانر من النوع المنفصل ومن ثم كما هو موضح في الصور السابقة 1 و 2 تقوم بتحديد خصائص السكانر ومكان حفظ الصور وان شاء الله امورك تمام اما بخصوص الزر البديل زر سحب عدة صور من الكومبيوتر فهو في الحقيقة ليس بديل من وجهة نظري بل هو مكمل لعملية السكان من السكانر نوع اوتوفيدر لانك في السكانر اوتوفيدر هذه بعد تحديد مسار حفظ الصور في المجلد scanner ستخزن الصور باسماء افتراضية وبعد الانتهاء يجب عليك الضغط على زر سحب عدة صور من الكومبيوتر لتفتح لك نافذة على مجلد ال scanner لتختار مجموعة الصور التي تريدها ومن ثم سيتم نقلها لمجلد الصور الخاص بالبرنامج المحدد مساره في النموذج طبعاً وسيتم اعطاء الصور التاريخ والوقت بالاضافة الى اسمائها الاصلية اما لو تم استخدام السكانر المدمج فلاحاجة لاستخدام زر سحب عدة صور من الكومبيوتر لان الكود سيقوم بحفظ الصور في مجلد البرنامج المحدد مساره في النموذج وسيقوم ايضا باعطائها الوقت والتاريخ بالاضافة الى اسمائها الاصلية (طبعا لايمكن عمل هذه الطريقة مع السكانر اوتوفيدر لانك تختار مسار الحفظ من داخل خصائص السكانر نفسها ) لكن يمكنك اختيار مسار حفظ الصور في مجلد البرنامج من خلال خصائص السكانر التي تظهر لك كما هو موضح في الصورة رقم 2 في المشاركة السابقة ومن خيار "اسم الملف" تسمي الصورة بالتاريخ والاسم ...الخ كما تشاء وبالتالي تستغني عن زر سحب عدة صور من الكومبيوتر تحياتي منذ ساعه, حسين العربى said: بس اكتشفت شئ غريب عند الحفظ في نموذج الادخال انا عملت مرفق تجربه لأريه لحضراتكم كمثال للمشكلة الي اكتشفتها طبعا عند الضغط علي زر الحفظ انا حاطط كود به شرط داخل الزر لمربع نص رقم الوارد اذا كان خالي يظهر رساله ولا يحفظ عندما تضغط علي الرساله تختفي البيانات من السجلات ( اليكم المرفق ( وجربوا بنفسكم ملحوظه دع مربع نص رقم الوارد خالي واضغط علي حفظ يفضل ان تضع هذه المشكلة في موضوع منفصل حتى لايختلط الموضوع على المتابعين ... على العموم استخدم الامر DoCmd.CancelEvent بدلا عن undo لان undo يقوم بالتراجع عن البيانات المدرجة جميعها بينما DoCmd.CancelEvent يلغي عملية المتابعة الى ان تكمل ادراج بقية البيانات المطلوبة تم تعديل أبريل 25, 2017 بواسطه sandanet 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 5 ساعات مضت, sandanet said: اخي حسين موضوع السحب من السكان ان شاء الله يعمل بكفاءة لاني جربته على نوعين من السكانرات المدمجة مع الطابعة والمنفصلة من نوع اوتوفيدر بعد معاناة للحصول على واحدة للتجربة على العموم في النموذج عند ادخالك لعدد الصور المراد سحبها فان البرنامج سيعتبر ان السكانر المربوطة هي من النوع المدمج مع الطابعة واذا تركت الخانة فارغة فسيعتبر ان السكانر من النوع المنفصل ومن ثم كما هو موضح في الصور السابقة 1 و 2 تقوم بتحديد خصائص السكانر ومكان حفظ الصور وان شاء الله امورك تمام اما بخصوص الزر البديل زر سحب عدة صور من الكومبيوتر فهو في الحقيقة ليس بديل من وجهة نظري بل هو مكمل لعملية السكان من السكانر نوع اوتوفيدر لانك في السكانر اوتوفيدر هذه بعد تحديد مسار حفظ الصور في المجلد scanner ستخزن الصور باسماء افتراضية وبعد الانتهاء يجب عليك الضغط على زر سحب عدة صور من الكومبيوتر لتفتح لك نافذة على مجلد ال scanner لتختار مجموعة الصور التي تريدها ومن ثم سيتم نقلها لمجلد الصور الخاص بالبرنامج المحدد مساره في النموذج طبعاً وسيتم اعطاء الصور التاريخ والوقت بالاضافة الى اسمائها الاصلية اما لو تم استخدام السكانر المدمج فلاحاجة لاستخدام زر سحب عدة صور من الكومبيوتر لان الكود سيقوم بحفظ الصور في مجلد البرنامج المحدد مساره في النموذج وسيقوم ايضا باعطائها الوقت والتاريخ بالاضافة الى اسمائها الاصلية (طبعا لايمكن عمل هذه الطريقة مع السكانر اوتوفيدر لانك تختار مسار الحفظ من داخل خصائص السكانر نفسها ) لكن يمكنك اختيار مسار حفظ الصور في مجلد البرنامج من خلال خصائص السكانر التي تظهر لك كما هو موضح في الصورة رقم 2 في المشاركة السابقة ومن خيار "اسم الملف" تسمي الصورة بالتاريخ والاسم ...الخ كما تشاء وبالتالي تستغني عن زر سحب عدة صور من الكومبيوتر تحياتي يفضل ان تضع هذه المشكلة في موضوع منفصل حتى لايختلط الموضوع على المتابعين ... على العموم استخدم الامر DoCmd.CancelEvent بدلا عن undo لان undo يقوم بالتراجع عن البيانات المدرجة جميعها بينما DoCmd.CancelEvent يلغي عملية المتابعة الى ان تكمل ادراج بقية البيانات المطلوبة الف شكر استاذي الفاضل وجزاك الله خيرا طبعا هذه المشكة تابعه لهذا الموضوع بس انا عملت مرفق مثال لكي لا ارفق البرنامج كله حتي تتضح المشكله طيب استاذي الفاضل sandanet ممكن كود لعمل فولدر في ال / D في مجلد اسمه وارد وتسميته بنفس رقم الوارد ولو امكن جلب مسار الفولدر الجديد الي مربع نص مسار الصوره وجزاك الله خير رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 5 ساعات مضت, حسين العربى said: الف شكر استاذي الفاضل وجزاك الله خيرا طبعا هذه المشكة تابعه لهذا الموضوع بس انا عملت مرفق مثال لكي لا ارفق البرنامج كله حتي تتضح المشكله طيب استاذي الفاضل sandanet ممكن كود لعمل فولدر في ال / D في مجلد اسمه وارد وتسميته بنفس رقم الوارد ولو امكن جلب مسار الفولدر الجديد الي مربع نص مسار الصوره وجزاك الله خير وفي تعليق سابق قلت في 23/04/2017 at 23:26, حسين العربى said: استاذي الفاضل ابا جودي انا والله مركز مع حضرتك بس انا نظام برنامجي مو صادر ووارد انا عاوز حاجه لشي معين اخي حسين حقيقة لا اجد مايربط طلبك بخصوص الوارد بموضوعنا الاصلي .. ارجو توضيح سؤالك اكثر وربطه بالموضوع المطروح مباشرة لكي لايحصل تشتت في الواقع انا اول من حصل له تشتت ذهني واشعر ان طلبك الاخير خارج السياق وليس له صله بموضوعنا الرئيسي .. اذا كان هنالك ربط مع الموضوع الرئيسي فارجو منك توضيحه على العموم بالنسبة لكود عمل فولدر في D في مجلد اسمه وارد فالكود موجود عندك بالبرنامج تحت اسم دالة creat_folder وهو لانشاء مجلد باسم scanner بجوار البرنامج في حال لم يتم العثور عليه .. يمكنك استعماله فقط عليك استبدال هذا الامر Dir_scanner = Project_path & "\scanner\" بهذا Dir_scanner = "D:\scanner\" اما بالنسبة للطلب الثاني بخصوص جلب مسار الفولدر الجديد الى مربع نص مسار الصورة فهو سيكون بهذا الشكل Me.pate = "D:\wared" اخي حسين لازلت انتظر رد منك بخصوص السكانر هل قمت بالتجربة ام لا؟؟ تحياتي رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 استاذي الفضل الف شكر بالنسبه للتجربه فانا رديت علي حضرتك من امس وقلت لحضرتك انه شغال وتمام عندي بس المشكله انك لما تلغي امر سكان لايقبل 18 دقائق مضت, sandanet said: وفي تعليق سابق قلت اخي حسين حقيقة لا اجد مايربط طلبك بخصوص الوارد بموضوعنا الاصلي .. ارجو توضيح سؤالك اكثر وربطه بالموضوع المطروح مباشرة لكي لايحصل تشتت في الواقع انا اول من حصل له تشتت ذهني واشعر ان طلبك الاخير خارج السياق وليس له صله بموضوعنا الرئيسي .. اذا كان هنالك ربط مع الموضوع الرئيسي فارجو منك توضيحه على العموم بالنسبة لكود عمل فولدر في D في مجلد اسمه وارد فالكود موجود عندك بالبرنامج تحت اسم دالة creat_folder وهو لانشاء مجلد باسم scanner بجوار البرنامج في حال لم يتم العثور عليه .. يمكنك استعماله فقط عليك استبدال هذا الامر Dir_scanner = Project_path & "\scanner\" بهذا Dir_scanner = "D:\scanner\" اما بالنسبة للطلب الثاني بخصوص جلب مسار الفولدر الجديد الى مربع نص مسار الصورة فهو سيكون بهذا الشكل Me.pate = "D:\wared" اخي حسين لازلت انتظر رد منك بخصوص السكانر هل قمت بالتجربة ام لا؟؟ تحياتي الموضوع ده انا بناقش فيه صادر ووارد. وده اخر كلام رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 (معدل) 37 دقائق مضت, sandanet said: وفي تعليق سابق قلت اخي حسين حقيقة لا اجد مايربط طلبك بخصوص الوارد بموضوعنا الاصلي .. ارجو توضيح سؤالك اكثر وربطه بالموضوع المطروح مباشرة لكي لايحصل تشتت في الواقع انا اول من حصل له تشتت ذهني واشعر ان طلبك الاخير خارج السياق وليس له صله بموضوعنا الرئيسي .. اذا كان هنالك ربط مع الموضوع الرئيسي فارجو منك توضيحه على العموم بالنسبة لكود عمل فولدر في D في مجلد اسمه وارد فالكود موجود عندك بالبرنامج تحت اسم دالة creat_folder وهو لانشاء مجلد باسم scanner بجوار البرنامج في حال لم يتم العثور عليه .. يمكنك استعماله فقط عليك استبدال هذا الامر Dir_scanner = Project_path & "\scanner\" بهذا Dir_scanner = "D:\scanner\" اما بالنسبة للطلب الثاني بخصوص جلب مسار الفولدر الجديد الى مربع نص مسار الصورة فهو سيكون بهذا الشكل Me.pate = "D:\wared" اخي حسين لازلت انتظر رد منك بخصوص السكانر هل قمت بالتجربة ام لا؟؟ تحياتي استاذي الفاضل الظاهر لم يصلك فكرة ما اطلب او لم تقرا طلبي جيدا علي العموم انا هشرح بتفصيل انا عندي فولدر اسمه وارد. في ال D لما ادخل الي شاشة عمل وارد. واحط رقم الوارد وباقي البيانات. يبقي في زر امر عندي ينشأ لي فولد داخل فولدر الوارد ويسميه برقم الورد الموجود في مربع النص رقم الوارد ويعطيه تاريخ اليوم لو امكن. بعد ذلك يجلب لي مسار الفولد الي هو اسمه برقم الورد وتاريخ اليوم. طبعا المسار هيكون كده مثلا D:/وارد/رقم الوار مثلا 1 بعد كده تاريخ اليوم يجلبه في مربع نص مسار الفولدر ويجلب اسم الفولد في اسم الفولدر وجزاك الله خيرا تم تعديل أبريل 26, 2017 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 اخي حسين .. افتح موضوع جديد بخصوص الصادر والوارد .. انا اعتذر عن الرد هنا لكي لايتشعب الموضوع 13 ساعات مضت, حسين العربى said: الحين بقي عندي سحب من خلال الاسكان كانت متبقية لديك تجربة السكان .. لذلك سألتك عنها 43 دقائق مضت, حسين العربى said: بالنسبه للتجربه فانا رديت علي حضرتك من امس وقلت لحضرتك انه شغال وتمام عندي بس المشكله انك لما تلغي امر سكان لايقبل لم تخبرني ان كنت قد جربت السكانر اوتوفيدر ام لا .. بالنسبة لعملية إلغاء امر السكان فهذا ليس ضمن نطاق الاكسس لانك تتعامل مع السكانر في هذه اللحظة تحياتي رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 بعد الاتكال على الله اولاً ومن ثم الاستعانة بخبرة "فارس لايشق له غبار في البرمجة" لحل مشكلة اختيار جميع الملفات داخل المجلد دون فتح نافذة الاختيار كما اشار اليها الاخ حسين.. زودني اخي ومعلمي الغالي @jjafferr بكود جميل يؤدي هذه المهمة على اكمل وجه وتم تطبيقه بنجاح في المرفق التالي .. فألف شكر لأخي جعفر جعل الله جميع اعماله هذه في ميزات حسناته فوالله دائماً ما اجد ضالتي لديه .. فتحية خاصة له اينما كان تحياتي الارشيف4.zip 2 رابط هذا التعليق شارك More sharing options...
at_aziz قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 3 ساعات مضت, sandanet said: بعد الاتكال على الله اولاً ومن ثم الاستعانة بخبرة "فارس لايشق له غبار في البرمجة" لحل مشكلة اختيار جميع الملفات داخل المجلد دون فتح نافذة الاختيار كما اشار اليها الاخ حسين.. زودني اخي ومعلمي الغالي @jjafferr بكود جميل يؤدي هذه المهمة على اكمل وجه وتم تطبيقه بنجاح في المرفق التالي .. فألف شكر لأخي جعفر جعل الله جميع اعماله هذه في ميزات حسناته فوالله دائماً ما اجد ضالتي لديه .. فتحية خاصة له اينما كان تحياتي الارشيف4.zip بارك الله فيك وجزاك الله خير اخي الكريم اشكرك على هذا الجهد العظيم الله يعطيك الصحه والعافيه والشكر موصول لجميع الاخوه اخي المرفق الاخير اللي اضفته حاولت اشغله على جهازي الثاني لكن تظهر لي بعض الاخطاء ماهي الادوات اللازم تثبيتها على الجهاز حتى يتشتغل البرنامج بدون مشكاكل حاولت لكن ماضبط معي علما ان الاوفيس عندي 2016 وفقك الله ورعاك وبارك فيك رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 6 دقائق مضت, at_aziz said: بارك الله فيك وجزاك الله خير اخي الكريم اشكرك على هذا الجهد العظيم الله يعطيك الصحه والعافيه والشكر موصول لجميع الاخوه اخي المرفق الاخير اللي اضفته حاولت اشغله على جهازي الثاني لكن تظهر لي بعض الاخطاء ماهي الادوات اللازم تثبيتها على الجهاز حتى يتشتغل البرنامج بدون مشكاكل حاولت لكن ماضبط معي علما ان الاوفيس عندي 2016 وفقك الله ورعاك وبارك فيك اخي at_aziz هنالك اختلاف في اسماء المكتبات وكذلك الدوال مابين اصدارات الاوفيس وخصوصاً اوفيس 2016 لذلك ارجو تجربة البرنامج على اوفيس 2007 الذي تم عمل البرنامج عليه تحياتي لاتنسى الملف التالي .. ضعه مع البرنامج فيحتاجه البرنامج ان لم يجده في الويندوز TWAIN32d.zip رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 (معدل) 4 ساعات مضت, sandanet said: بعد الاتكال على الله اولاً ومن ثم الاستعانة بخبرة "فارس لايشق له غبار في البرمجة" لحل مشكلة اختيار جميع الملفات داخل المجلد دون فتح نافذة الاختيار كما اشار اليها الاخ حسين.. زودني اخي ومعلمي الغالي @jjafferr بكود جميل يؤدي هذه المهمة على اكمل وجه وتم تطبيقه بنجاح في المرفق التالي .. فألف شكر لأخي جعفر جعل الله جميع اعماله هذه في ميزات حسناته فوالله دائماً ما اجد ضالتي لديه .. فتحية خاصة له اينما كان تحياتي الارشيف4.zip بارك الله فيك استاذي الفاضل وجزاك الله خيرا والف شكر لاستاذنا الفاضل ومعلمنا الاستاذ الكبير @jjafferr هذا هو المطلوب بال ظبط وبالنسبه للمو ضوع الذي اعتزر عن الرد عليه سوف افتح موضوع جدي واسميه برنامج صادر وارد وادرج الرابط هنا وهذا هو رابط الموضوع الجديد تم تعديل أبريل 26, 2017 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 استاذي الفاضل تم تجربة المرفق سحب الصور من الفولد بدون فتح قوائم عند سحب عدة صور يسحب تما م اما عند الضغط علي زر ( لا ) واختيار صوره واحده تظهر هذه الرسالة رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر أبريل 26, 2017 مشاركة قام بنشر أبريل 26, 2017 اخي حسين قم بتغيير الامر الذي فيه المشكلة الى الامر التالي If UBound(strFileNames) = 0 Then Exit Sub End If وضع عبارة on error resume next في بداية الكود سوف ارفق لك البرنامج المعدل قريباً وفيه حاجة حلوة راح تعجبك ان شاء الله .. لكني انتظر استاذي الكبير جعفر ليقوم بتعديل بسيط على كود وان شاء الله تعالى سوف ارفقه لك تحياتي 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أبريل 26, 2017 الكاتب مشاركة قام بنشر أبريل 26, 2017 الف شكر استاذي الفاضل ظبط معي رابط هذا التعليق شارك More sharing options...
at_aziz قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 8 ساعات مضت, sandanet said: اخي at_aziz هنالك اختلاف في اسماء المكتبات وكذلك الدوال مابين اصدارات الاوفيس وخصوصاً اوفيس 2016 لذلك ارجو تجربة البرنامج على اوفيس 2007 الذي تم عمل البرنامج عليه تحياتي لاتنسى الملف التالي .. ضعه مع البرنامج فيحتاجه البرنامج ان لم يجده في الويندوز TWAIN32d.zip بارك الله فيك وجزاك الله خير ا اخي الكريم على جهازي الاول شغال تمام والاوفيس 2013 بجرب ان شاء الله رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 في 4/23/2017 at 10:17, ابا جودى said: السلام عليكم ورحمة الله تعالى وبركاته استاذ @حسين العربى استاذ @حلبي استاذ @sandanet استاذ @محمد سلامة وكما وعدتكم بمفاجأه اليوم الحمد لله رب العالمين تم التوصل لنتيجة ايجابية لابأس بها ان شاء الله برجاء اتباع التعليمات اولا : تنصيب واعداد البرنامج المرفق "iview423_setup" اهم خطوة برجاء التأكد من تنصيب واعداد البرنامج فى المسار الاتى C:\Program Files\IrfanView للعلم فى حالة وجود نظام تشغيل ويندوز 46 بيت غالبا يكون مسار الاعداد C:\Program Files(x86)\IrfanView لذلك يراعى التأكد من اعداد وتنصيب البرنامج على المسار >>---------> C:\Program Files\IrfanView الخطوة الثانية بعد تنصيب البرنامج يتم فتح البرنامج ويتم اختيار الية المسح الضوئى حسب المطلوب كما هو موضح بالصورة الاتية بعد ذلك افتح قاعدة البيانات المرفقة جرب اضافة سجل وارد او صادر بعد اكمال البيانات فى الحقول اضغط على زر الامر >>-----> اضافة مرفقات من الاسكنر يفتح النافذه الخاصة بالمسح الضوئى اضغط منها على زر scan بعد الانتهاء من المسح الضوئى لاكثر من ورقة تجد الاتى - تم انشاء مجلد بطريقة الية بجوار قاعدة البيانات فى نفس مسارها باسم tempscan وان شاء الله تجد فيه المرفقات التى تم مسحها ضوئيا الخطوة الاخيره منتظر ردكم ان شاء الله تعالى بعد ما تتم معكم التجربة بنجاح لنستكمل باقى العمل فى هذا المشرووووووع الضخم تحميل المرفق من رابط على موقع خارجى بسبب حجم المرفقاتhttp://www.mediafire.com/file/d8wi5993u33r8ur/scan.rar بناء على طلب احد الاخوة الكرام شرح تفصيلى لطريقة ربط وضبط برنامج IrfanView تركيب وضبط برنامج irfanview.rar رابط هذا التعليق شارك More sharing options...
at_aziz قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 بارك الله فيك وجزاك الله خير اخي الفاضل اخي ماهو الكود اللي يشغل IrfanView من داخل الاكسس لكي يتم تشغيله مباشره دون الرجوع الى اختصار البرنامج على سطح المكتب شكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.