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 

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

تحياتي