Ahmed_J

اساتذتي الاعزاء شكرا لكم استاذ @Foksh يوجد الكثير من العناوين الوظيفية انا اخترت القليل منها لسهولة الامر الكود تبعك يعمل بصورة جيدة على الوظائف الهندسية ولايعمل على الوظائف الادارية استاذ @ناقل يتم تميز ذلك من خلال كتاب التعيين والشهادة الحاصل عليها علما بان لاتهمني العناوين سواء ارقام كانت ام حروف او اي عنوان اخر للحقل تحياتي

السلام عليكم استاذ @ناقل شكرا لك للمتابعة نعم بالضبط (cradeno) هي تساوي الدرجة الوظيفية بالنموذج يعني مثلا يوجد بالدرجة (2) عنوان رئيس مهندسين اقدم و مدير اقدم وهكذا استاذ @Foksh شكرا للمتابعة الملف يعمل فقط على الوظائف الهندسية انا لدي بالاصل عناوين كثيرة والجدول كبير جدا ولا مانع من تغيير طريقة تصميم الجدول لو وجد الحل تحياتي

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

السلام عليكم لدي ملف لوصف الوظائف يحتوي على جدولين (الاول) tp1 وفيه معلومات الموظف (الاسم والدرجة) والجدول (الثاني) tp2 فيه الدرجة الوظيفية والعتوان الوظيفي المطلوب: عند تغيير الدرجة الوظيفية في النموذج واختيار عنوان وظيفي جديد من القائمة المنسدلة يجب ان يكون مطابق للعنوان الوظيفي والدرجة الموجودة في الجدول tp2 واظهار رسالة بذلك اما في حالة عدم التطابق اظهار رسالة بوجود خطا (العنوان الوظيفي لايتطابق مع الدرجة) وشكرا Test-1.accdb

السلام عليكم تفضل ويعمل لدي على وندوز 7 Call Shell("osk.exe", 1) keyboard.accdb

السلام عليكم اخي العزيز استبدل كلمة (true) بـ (false) في الكود DoCmd.OutputTo acOutputTable, "Aracestbl", acFormatXLS, filePath, False, , , acExportQualityPrint تحياتي

السلام عليكم بالاضافة لمثال للاستاذ @Foksh ضع الكود التالي بعد التحديث Private Sub Text0_AfterUpdate() Me.Text2 = Year([Text0]) End Sub test.accdb

السلام عليكم اخي @زياد الحسناوي لاحظت انك غير مستقر على برنامج معين؟ اتمنى ان تضع ملفك الخاص هنا ونعمل عليه بالنسبة للارشفة الالكترونية انا اعمل عليها منذ سنوات وطريقتي بالعمل سابقا كالاتي: اقوم بحفظ الملف بالحاسوب ومن ثم اقوم بنقله لقاعدة البيانات - اذا كان الملف المراد ارشفته كتاب واحد اقوم بحفظه صورة jpg - اذا كان الملف به مرفقات اقوم بحفظه pdf علما اني احفظ الكتاب رقم الكتاب+ تاريخه+ موضوع الكتاب+وصف للكتاب حتى لايتكرر عندي استخدمت حاليا برنامج وسيط (irfanview)) ليقوم بعمل سكانر مباشرة لقاعدة البيانات بمساعدة الاستاذ الفاضل @ابوخليل جزاه الله خير الجزاء انتظر ردك تحياتي

السلام عليكم اخي زياد انا ماعندي سكنر حاليا 1- لانشاء فولدر انا وضعته عند فتح الموذج pdf Dim xFolder Set xFolder = CreateObject("Scripting.FileSystemObject") If xFolder.FolderExists(CurrentProject.Path & "\archives") = True Then Me.Undo Else 'انشاء مجلد MkDir CurrentProject.Path & "\archives\" End If 2- هذا الكود شغال عندي تمام لاضافة صور او صورة واحدة من الماسح الضوئي اضفت اليه المسار ورقم وتاريخ الكتاب اللي عندك Shell ("c:\Program Files\irfanview\i_view32.exe /batchscan=(" & ID & "_" & Date_Boolk & ",,,,," & temp_scan_path & " ,pdf,1) /scanhidden") جربه واخبرني بالنتيجة

السلام عليكم شكلرا لك استاذ @ابوخليل تعبتك معي كثيرا ان شاء الله لو وصلت لحل ساضعه هنا الفكرة جدا عجبتني ببرنامج الارشفة الالكترونية (exe) لكن لااعرف باي لغة معمول هو برنامج تنصيب المهم لسه عند طلبي عمل نموذج كما في الصورة لضبط اعدادات الماسح الضوئي تحياتي

السلام عليكم وجدت برنامج للارشفة الالكترونية (تنفيذي EXE) جميل جدا لكنه غير مجاني وغير معمول بالاكسس المهم عند فتح البرنامج توجد نافذة للاعدادات ومن ضمنها اعدادات الماسح الضوئي البرنامج تعرف لوحده على الماسح الضوئي ويمكن الاختيار لو كان اكثر من جهاز موجود كما في الصورة يمكن من الاعدادات اختيار نوع الماسح الضوئي وحجم الورق ونوع الدقة هل من الممكن عمل ذلك بالاكسس بدون اي برنامج وسيط عن طريق نموذج ؟؟؟؟ تحياتي

استاذ @ابوخليل في المنزل لدي جهاز عادي كانون كما في الصورة 1 اما في العمل لدي جهاز كانون (فيدر 2*1) كما في الصورة 2 والصورة (3) الجهاز الاول مافي مشكلة بالعمل من خلاله المشكلة بالجهاز الثاني الذي فيه خيارين (Flatbed ) و(Decument Feeder) كيف اختار منهم برمجييا تحياتي

السلام عليكم استاذ @ابوخليل الصورة رقم 1 هي للماسح العادي كانون الصورة رفم 2 هي للماسح الفيدر كانون في الموضوع السابق للاخ @مخاوي الليل 1 تم التحكم بالماسح الضوئي صورة ملونة او اسود وابيض وكان شيء جيد لو كان الامكان في نهاية الكود الاختيار من القائمة المنسدلة اما (Flatbed ) او (Decument Feeder) فقط لانتهت المشكلة تحياتي للجميع

السلام عليكم استاذي العزيز @مخاوي الليل 1 الله يبارك فيك البرنامح اشتغل عندي على ماسح ضوئي عادي من نوع كانون تم سحب صورة ملونة وصورة اسود وابيض وكل شيء تمام اعتقد الكود المسؤول عن ذلك هو ملون' itm.Properties("Current Intent") = 1 اسود وابيض' itm.Properties("Current Intent") = 2 سؤالي : هل يمكن اختيار من القائمة المنسدلة (Paper Source) التي فيها خيارين: الاول : Flatbed الذي يقوم بسحب صورة واحدة فقط الثاني: Decument Feeder الذي يقوم بسحب عدة صور دفعة واحدة : كما في الصورة يعني عمل كودين في زرين مختلفين الكود الاول للخيار الاول والكود الثاني للخيار الثاني تحياتي للجميع

السلام عليكم اللي بعرفه ان IS NOT NULL تستخدم في لغة الاستعلام NOT IS NULL تستخدم في لغة البرمجة تحياتي

السلام عليكم اتمنى من الاساتذة الجواب الشافي هل يمكن عمل ذلك ام لا ؟؟؟؟؟

up

السلام عليكم اساتذتي الاعزاء نظرا لكثرة اجهزة المسح الضوئي وانواعها وكثرة البرامج المعموله لها عملت هذا الموضوع هل من الممكن تمرير كود وعمل ذلك برمجياً ؟؟؟؟ وتحديد خصائص الماسح الضوئي بالكود من خلال مساره بالجهاز (اقصد مثلاً جعل الماسح اوتوفيدر او عادي او ملون او اسود وابيض ...الخ) حتى كل شخص يمكنه ننبع مسار الماسح الضوئي الخاص به والعمل عليه حسب متطلباته يعني مثلا الكود Shell ("c:\windows\system32\wiaacmgr.exe") او الكود Dim Dialog1 As New WIA.CommonDialog Dim DPI As Integer Dim img As WIA.ImageFile Dim Scanner As WIA.Device Set Scanner = Dialog1.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, true, False) Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) صور مرفقة توضح قائمة منسدلة يمكن الاختيار منها اما فيدر(مسح ضوئي اكثر من صورة) او عادي (مسح ضوئي لصورة واحدة فقط) وشكرا لكم

السلام عليكم استاذ @ابوخليل آسف على التاخير كنت مسافر كل شيء تمام بارك الله فيك وشكرا لك

السلام عليكم استاذ @ابوخليل ربي يحفظك من كل مكروه كل شيء تمام البرنامج يحفظ الملف في مساره الصحيح ويحفظه برقم الكتاب وبصيغة pdf المشكلة الوحيدة : عدم ظهور ملف pdf عند تحميله من الماسح الضوئي عند تحميلة مباشرة من النموذج بعد عمل كل الاعدادات المطلوبة الا بعد اغلاق وفتح النموذج مرة اخرى او الانتقال الى السجل التالي او السجل السابق يظهر الملف بصورة اعتيادية. لكنني انتبهت على ملاحظة عند تشغيل الماسح الضوئي (الكود يذهب مباشرة الى آخر كود موجود والماسح لسه يعمل) لذلك لايجد المسار الصحيح له خطرت لي فكرة ان اضع بين كود تشغيل الماسح ونهاية الكود فاصل زمني (PauseTime = 20) لمدة 20 ثانية وفعلا نجحت الفكرة وظهر ملف pdf في النموذج لكن هذه طريفة غير صحيحة لان المدة ثابتة (20) ثانية بينما ممكن اعمل مسح ضوئي لاكثر من كتاب اتمنى توضحت المشكلة والفكرة لديك سؤال: اليس من المفروض ان يكمل الماسح الضوئي عمله ثم ينتقل للخطوة التالية بالكود؟ انا لااعلم تحياتي

السلام عليكم استاذي العزيز @ابوخليل الملف هو برنامج بسيط لارشفة الكتب الرسمية - اذا كان الكتاب صفحة واحدة اقوم بالمسح على شكل صورة jpg وهو موضوع انتهيت منه والحمد لله - اذا كان الكتاب معه مرفقات عديدة اقوم بمسحها على شكل pdf (المشكلة فقط بعدم ظهور الملف في النموذج) عند وضعة بالمسار المحدد 1- نعم لكل ملف pdf سجل خاص به وصفحة بيانات بالنموذج 2- معرف الصورة هو (رقم الكتاب) 3- لااعتقد اني احتاج لجدول فرعي مثال مرفق تحياتي Desktop.rar

اخي @زياد الحسناوي لاشكر على واجب اذا كنت تعمل على برنامج للارشفة من الافضل ان يظهر ملف jpg او pdf في نموذج الاكسس لكنني لغاية الوقت لم اجد حل لهذه المشكلة تحياتي

الخي العزيز قلت لك لابد من وضع (plugins) بجانب البرنامج لكي يعمل pdf اما الجودة براحتك لديك خيارات جودة من (40%) الى (95%) تحياتي

السلام عليكم اخي زياد العزيز الصورة الاولى خاصة باخراج الملف pdf الصورة الثانية خاصة بالدقة

السلام عليكم السؤال الاول : يجب تثبيت ادوبي اكروبات و (iview462_plugins) لكي يعمل pdf السؤال الثاني: يمكنك تعديل الخيارات باقل جود ممكنة تحياتي