bakry kassala

التحية والاحترام لكم أعزائي ملتقى اوفيسنا العربي في المرفقات نموذج فارغ لوضع الاكواد اللازمة لتحقيق الفكرة التالية : 1 مسار لعرض جميع صور الموظف بجميع الصيغ حسب الرقم الوظيفي 2 سرد هذه الصور اعلاه في مربع القائمة 3 بالضغط على اسم الصورة في مربع القائمة يتم عرضها في اطار الصور أتمنى أكون وفقت في شرح الطلب .. imageListBox.rar

ليس خروجاً ولكن مجرد سؤال .. أسأل أين اساتذتي الكرام .. رمهان جعفر ابوخليل وووووو القائمة تطول .... استفدنا منهم كثيراً وندعو لهم عن ظهر قلب بالصحة والعافية والسعادة ... اين انتم ايها المعلمين نفتقدكم كتيراً .. * ملاحظة أرجو من الادمن تداركها .. كل المرفقات لا يمكن تحميلها .. لعل هذا نتيجة التحديث للاصدار الجديد ... حاول تحديث الجداول من لوحة التحكم للموقع ...

الاساتذه الكرام ... هل من مجيب ..

الاستاذ الفاضل جعفر - لك التحية والتقدير .. عدنا بعد طول غياب .. استاذي بعد تجربة البرنامج والعمل عليه خلال الفترة السابقة ظهرت مشكلة تحتاج تدخلك عزيزي .. حيث لا يقبل المسح الضوئي للصور اكثر من صورتين (2) فقط للموظف في داخل مجلده الفرعي .. واذا تذكر اتفقنا على أن يستمر مسمى الصور aa_1 ثم aa_2 عند إضافة صورة جديدة وكان الوضع سليماً حتى اتت الحاجة ليكون لديه اكثر من صورتين داخل الملف والرسالة : 58 file already exists أرجو استاذي الفاضل ان يكون عدد الصور لا نهائي وغير محدد . كما أرجو ملاحظة ان مسمى الحقل (id) تغير الى (code) لأنني حجزت الاول لرقم الهوية .. وإنني استخدم حالياً office2013 شاكر لك ومقدر استاذي جعفر Private Sub cmd_scan_Click() On Error GoTo err_cmd_scan_Click Dim Image_Path As String Set img = CreateObject("wia.commondialog") '1 Image_Path = Application.CodeProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & [code] & "\" 'if the [code] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If 'check the Dir for the file existance 'How_Many_Files_Exist = FileList(Image_Path, [code] & "\" & [code] & "_*.jpg") 'Rename the old existing file Old_File_Name = Image_Path & [code] & ".jpg" New_File_Name = Image_Path & [code] & "_" & Format(How_Many_Files_Exist + 1, "00") & ".jpg" Name Old_File_Name As New_File_Name '4 Image_Path = Image_Path & [code] & ".jpg" img.ShowAcquireImage.SaveFile Image_Path 'show the new image in the Form Call Form_Current Exit Sub err_cmd_scan_Click: If Err.Number = 53 Then 'file not found Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub

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

استاذي جعفر باقي حاجة بسيطة ويكتمل البدر بإذن الله - جزاك الله خير .. ركز معي ..( على طريقة الاستاذة زهرة بارك الله فيها اينما كانت ) مثلاً : هناك مجلد فرعي جاهز لموظف ولكن بدون صورة داخله .. عند البحث عن هذا الموظف الذي لا توجد لديه صور داخل مجلده تأتي هذه الرسالة ... --------------------- 2101 الاعداد الذي ادخلته لهذه الخاصية غير صحيح . ---------------------- وهناك حالة أخرى وهي عند الانتقال بالبحث عن سجل ليس لديه صورة تظل الصورة السابقة في العرض لهذا السجل ايضاً .. بحيث يظل عرض الصورة مستمر لكل السجلات ولكن في حالة البحث فقط اما عند التنقل بالتالي والسابق لا توجد مشكلة حيث كل سجل يعرض صورته الخاصة دون مشكل .. علماً بأنني استخدم مربع_تحرير_وسرد عادي للبحث في حقل الـ id وجزاك الله عني كل خير .. تعبتك معي .. تقبل اعتذاري ..

100/100 وكفى .. أستاذي ... لكن لا أعفيك من وضع تفاصيل شرح على الكود .. ارجو تلبية ذلك حتى تكتمل الصورة بارك الله فيك تعبتك معي لكن جزاك عند الله كثير .. بارك الله فيك ..

اخي واستاذي جعفر .. بارك الله فيك وشكراً جميلاً وتقديراً على مجهودك الكبير في هذا العمل .. عسى أن ينفع الله به الكثير من طلاب العلم .. لكن استاذي شوية شوية على أخوك .. واااحده واحده .. حاولت افهم وما تمكنت .. وتشابهة علي الأكواد .. حملت المرفق ولم يعمل لفقدان الملف ezvidC60.ocx كما اختلفت المسميات .. خلينا نرجع للكود الاول .. ونضيف له تعديل اسم الصورة القديمة كما تفضلت aa_01.jpg لأن عرض الصورة مرتبط باسم حقل الرقم الوظيفي للصورة الحديثة aa.jpg وحاول مع الشكر اعادة تفصيل الكود والشرح عليه لتعم الفائدة أكرر تقديري للجهد الكبير المبذول وكان اكبر وأكثر بكثير من طلبي .. بارك الله فيك

وهو كذلك استاذي جعفر فكرتك الأفضل للعمل aa.01.jpg .. وتدل على الخبرة والتجربة لأني سأحتاجها بعد أن تكثر الصور في المجلد وعندها لن تفلح التسمية aa_img.jpg بارك الله فيك وفي علمك .. وسوف استخدم الكود المختصر بعد التعديل الجاري .. بإذن الله

استاذي الفاضل جعفر تحياتي .. رجعت لك مرة أخرى لتعديل آخر على الكود اعلاه .. في حالة عمل مسح (scan) للصورة وكانت هناك صورة أخرى تحمل ذات الاسم في المجلد الفرعي ارغب في التعديل بالاضافة على الكود بحيث يتم تعديل اسم الصورة الموجودة الى aa_img.jpg لتحل محلها الصورة الجديدة بالاسم aa.jpg وهو الـ id كما في الكود دون تغيير .. Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(Application.CodeProject.Path & "\photo\" & "\" & [id] & "\" & [id] & ".jpg") مع كامل احترامي ..

اشكرك من قلبي استاذي الحبيب جعفر على هذه الاجابة الوافية والشافية ... تمت المهمة بفضل من الله ... ثم باجابة من خبير نفتخر به ..

بعد التحية لكم اساتذتي الكرام .. الكود التالي يعمل 100% ولله الحمد ولكن يحفظ الصورة بعد مسحها (scan) داخل مجلد photo والمطلوب الحفظ في مجلد فرعي داخل مجلد photo علماً بان المجلد الفرعي مسمى بالرقم الوظيفي للموظف .. حيث لكل موظف مجلد فرعي يحتوي على صور وارشيف الموظف المحدد حسب id ارجو شاكراً التعديل على الكود ليحفظ الصورة في المجلد الفرعي داخل مجلد صور الموظفين الموجود في مجلد البرنامج الرئيس .. Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(Application.CodeProject.Path & "\photo\" & "\\" & [id] & ".jpg") كما في الكود بحيث ... id هو اسم الصورة حسب حقل الرقم الوظيفي للموظف photo هو المجلد الرئس لصور البرنامج اما المجلد الفرعي فهو متغير حسب رقم الموظف ولكنه يساوي id الصورة (رقم الموظف) مثلاً إذا كان اسم الصورة aa.jpg فإن اسم المجلد الفرعي aa اتمنى اكون قدرت اوصل الفكرة .. شاكر ومقدر لكم ...

اساتذتي خبراء أفيسنا الكرام السلام عليكم ورحمة الله وبركاته .. نلجأ إليكم عندما يصعب الأمر علينا .. راجين المساعدة التي بحول الله نجدها منكم .. ندعو الله لنا ولكم التوفيق .. الكود أدناه لأستاذي الفاضل رمهان بارك الله فيه .. خاص بإدراج صورة من الماسح الضوئي الى مجلد داخل مجلد التطبيق .. وهو يعمل دون أي مشاكل بحمد الله ... Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\photos\" & InputBox("Write Name of Picture Here") & ".jpg") لكن بعد العمل على التطبيق والتجربة ظهرت بعض المستجدات التي تحتاج التعديل .. ( عند مسح (SCAN) صورة جديدة بذات الاسم لا يتم حفظها نهائياً وتظل الصورة الاولى باقية ..) عليه ارجو الاضافة على الكود بحيث يتم حفظ الصورة الجديدة ونسخ الصورة القديمة مع الاحتفاظ بالاسم لكلا الصورتين وإضافة COPY أو 001 للصورة النسخة .. تعبير آخر : المطلوب عند مسح/إدراج صورة حديثة بواسطة هذا الكود يتم نسخ الصورة القديمة إذا كانت تحمل ذات الاسم للصورة الحديثة .. للأهمية : * ضرورة احتفاظ الصورة الحديثة بالاسم لإرتباط الاسم بسجل . * ضرورة نسخ الصورة القديمة وليس حذفها أو إستبدالها للحفاظ عليها للأرشفة . أتمنى أكون قدرت اوصل المطلوب . إحترامي

تستاهل أخي رمهان كل خير .. وصدقني كل كلمة كتبتها لك .. أعنيها تماماً .. فقد كنت نعم المعلم العارف ... لديك من الصبر في العطاء الكثير نسأل الله أن يعظم أجرك ويرفع شأنك .. ونحن لا نملك إلا نقدر لك ذلك وأن نشكرك .. شكراً جزيلاً .. بارك الله فيك أخي رمهان ..

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

استاذي رمهان - احترامي بتوفيق من الله ثم بجهدك الكبير والمقدر تم العمل " بدون رسالة خطأ " .... لكن ! بعد تكرار اضافة المكتبة كما ذكرت لي في الاقتباس الاول .. الواضح اخي رمهان أن المكتبة لم تحفظ ضمن القائمة وتحتاج إضافتها مع كل عملية مسح صورة .. سؤالي وأعتذر جداً عن ازعاجي المتواصل لك .. هل هناك طريقة لإضافتها بشكل دائم ؟ دعواتي لك بالتوفيق دائماً أخي رمهان ..

الغالي رمهان .. بارك الله فيك وفي علمك .. بحمد الله تحقق المطلوب تماماً جزاك الله خيراً .. " عمل الماسح وتم حفظ الصورة داخل مجلد البرنامج بصيغة jpeg .. وتم تسمية الصورة بالاسم المراد " أشكرك من أعماق قلبي .. لكن تظهر رسالة الخطأ التالية اثناء عملية مسح الصورة حيث لا تظهر مربعات حوار إنهاء العملية المعروفة من إغلاق أو تم ووو... فقط تظهر الرسالة التالية رغم مسح وحفظ الصورة .. Run-time error "13" Type mismatch واصل أستاذي الفاضل .... ربنا يسعد أيامك ويحفظك ..

استاذي رمهان - تحياتي الخلاصة : لم تنجح كل الطرق .. حتى المكتبة التي ارفقتها أخيراً نسختها الى system32 ... ونفس رسالة الخطأ .. اتمنى أن تجد لنا حل استاذي رمهان .. بارك الله فيك . أشكر لك سعة صدرك عزيزي

استاذي رمهان بارك الله فيك وفي علمك .. سوف احاول .. وإن لم أستطع .. اعانك الله تضع لنا مثالاً للمكتبة القديمة .. إحترامي

في الانتظار أخي رمهان ....

اعتذر جداً عن التأخير أخي رمهان ولكن لأسباب قوية ... المهم استاذي الكريم .. كما وجهتني بحثت عن المكتبة التي ذكرت ثم وجدتُ ضمن القائمة المكتبة التالية : Microsoft windows image Acquisition 1.01 Type library

أخي رمهان - ربنا يوفقك في الانتظار ......

تحياتي استاذي رمهان وبارك الله فيك .. اصدار الويندوز xp sp3

الأخ رمهان - تحياتي .. بعد التجربة ظهرت رسالة الخطأ التالية: Run-time error '429' ActiveX component can't create object علماً بأن الـ ActiveX pro محملة على الجهاز .....

الاستاذ الخبير رمهان - إحترامي كما قال الاستاذ جعفر " كود حفيف في وزنه - ثقيل في عمله " جزيت خيراً كثيراً جاري التجربة ......