رمهان

تفضل اخي هذا ملف يوجد عمود جديد باسم حقل1 به النص بدون تشكيل ! الرسائل1.rar

شرفتوني بمروركما ومشاركتما الأساتذة جعفر & أبا خليل أبا خليل : ذكرك لسيرة الوورد جعلت هناك شي يدور في مخيلتي وكحل اخر ! لعلني اعود وبحل اخر ! تحياتي

اخي محمد عوض لاحظ ان البرنامج له امتداد exe مما قد يحتوي فيروسات ! اخي اخر الأرض : لماذا امتداد الملف exe ؟ بالتوفيق

Public Function fn(fld) 'رمهان 'اوفيسنا y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ" For i = 1 To Len(fld) If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1) Next i fn = xx End Function اخي الكريم تفضل ومشاركة مع الأستاذ جعفر حذف التشكيل الآن وبعدين نشوف موضوع الفلترة! الحقيقة فكرة جاءت وما كنت أتوقع نجاحها ! ولكن مع الله سبحانه يسهل كل شي ! الان تم حل مشكلة التشكيل ! ولا اعلم هل هناك حل مر على احد خبراؤنا في حذف التشكيل ! او ثبت استاذنا الجليل أبا خليل !! الفكرة او الخوارزمية هي عبارة عن سرد الاحرف المقبولة في سلسلة نصية وما غير ذلك لن يتم اعتماده . طبعا كل ما اردت حرف مقبول اضفه للسلسلة كان تريد علامات الاستفهام او النقاط . بالتوفيق الرسائل.rar

اخي الكريم أتوقع انك مغير كثير في البرنامج والاكواد ! فصعب ان نقوم بتتبع ما قمت به من تعديلات جعلت النظام لا يعمل صحيحا ! بالتوفيق

اهلا بك اختي يظهر في طلبك برنامج كامل ومن الصفر ! وما يسمى بالارشفة الالكترونية ! هل هناك برنامج لديك سابق ؟ هل هناك تحليل لديك جاهز ومتطلبات محددة ؟ هل بدأتي بشي على الاكسس ؟ بالتوفيق

مشاركة بمعلومات إضافية مع الأستاذ أبو خليل يمكن استخدام التالي وهو الافضل FollowHyperlink CurrentProject.Path & "\Ch1.ppt": SendKeys "{F5}" طبعا تغير المسار والملف حسب الحاجة وتم استخدام امر تشغيل العرض اختصار فكرة أبو خليل Set opj = CreateObject("Powerpoint.Application").Presentations.Open(CurrentProject.Path & "\Ch1.ppt"): Set obj = Nothing ونلاحظ إضافة مسح الكائن من الذاكرة وهي مهمة كما يمكن استخدام دالة shell وتمرير مسار الملف تحياتي

نشارككم بالكود التالي وعند تحميل النموذج Private Sub Form_Load() For Each r In CurrentProject.AllReports: text2.AddItem r.Name: Next r End Sub طبعا نغير خاصية نوع مصدر الصف = قائمة القيم وهو عبارة عن سرد جميع التقارير بالقائمة وطبعا يمكن استثناء تقارير معينة بإضافة شرط للكود ! تحياتي

صحيح حتشتغل على كل الإصدارات ! لاحظ ان كود التقارير بهذا الشكل Private Sub AllReports_AfterUpdate() FRM.SourceObject = "report.report" & AllReports End Sub طبعا اخر خيار حيعطيك خطا لان قيمة الخيار 4 ولا يوجد تقرير باسم report4 بالتوفيق

اخي اسير الشروق عدل frm0 عندك الى frm1 وباقي النماذج لتصبح frm1,frm2,frm3,frm4 ثم ضع الكود التالي Private Sub AllForms_AfterUpdate() FRM.SourceObject = "frm" & AllForms End Sub الفكرة تدور حول تثبيت جزء من اسم النموذج وهو frm وقرنه بالأرقام والتي هي قيم عنصر الخيار وبهذا هي أسماء النماذج لديك . بالتوفيق

اهلا بك اخي اسير الشروق اشاركك بملاحظات وتحسينات الملاحظات : - تسمية أداة تحكم الخيارات ب forms و reports وهذه احد أسماء كائنات في الاكسس والمحظور باستخدامها كاسماء للعناصر - استخدام الخاصية visible للنماذج والتقارير غير لازم هنا ف sourceobject كفيل باظهار النماذج والتقارير داخل الكائن الفرعي التحسينات : اريدك ان تسمي النموذج Mohammed essam ب frm1 وبقية النماذج متسلسلة ك frm2 , frm3,frm4 ثم تضع سطرا واحد من الكود وكفيل بالمطلوب وهو Private Sub forms_AfterUpdate() FRM.SourceObject = "frm" & forms End Sub وللتقارير نفس الفكرة . طبعا التقارير بها إضافة كلمة report بشكل صريح مع أسماء التقارير . بالتوفيق

عزيزي عبدالرحمن الموضوع هذا هو احد التحديات في الاكسس ! لماذا وكيف انظر مشاركتي ومحاولتي هنا وبمنتدى شقيق ! http://www.accesswordkingdome.com/forum/forum/برنامج-مايكروسوفت-آكسس/16695-عمل-زر-تراجع-عن-التسجيل/page2?t=16222&p=141106 وضعت الرابط لحفظ وقتي واسمح لي بذلك ! ان لم تصل للفكرة عد لنا وسنعود لك ! بالتوفيق

اخي أبو ادم شكرا على كلامك الطيب أولا ! وثانيا ابدا ليس استخدام wia خاص برمهان وليس ذلك ما اقصد فكيف اقصد ذلك وانا اعرف انها احد مكتبات الويندوز ! أخيرا : فعلا هناك من سبق رمهان في الفكرة فعذرا ! وهذا المرجع وبه فوائد أخرى ! وللأمانة لم يكن مرجع لي ولكن قد تكون تلاقي أفكار وسبحان الله ! http://www.access-programmers.co.uk/forums/showthread.php?t=246348 بالتوفيق

اخي أبو ادم تم تحميل الملف . وجدته نفس الفكرة التي قام بها رمهان وبالتمام وملخصها واساسها : - استخدام مكتبة wia - انشاء تقرير وبه كائن صورة - تصدير التقرير وباستخدام طريقة outputto توقعت فكرة جديدة ! او على الأقل ذكر انها تحسين وتطوير للفكرة ! عالعموم مبارك عليكم ولي عودة عندما يتسنى لي الجهاز متعدد السحب وكما عودتكم بقليل من الكود والى هنا اسمحو لي ان يكون في موضوع جديد ! وقد يكون بفكر جديد ! وباذن الله ! تحياتي

مشكور اخينا أبو آدم على التنبيه بوجود add-in تبع ال pdf وكذلك وجود الإصدار 2007 وما بعد او sp3 ! كما اننا في حاجة رايك الفني حول الفكرة ونقدك البناء مشكوراً ! فالفكرة والتنفيذ أتت بوقت وجيز ! اخي عبدالله : فقط عندما يتسنى لي جهاز متعدد الصفحات ! اجرب حل لدي جاهز ! تحياتي

اخي محمد سلامة لاحظ ان البرنامج لا ينفذ عند وجود مجلد سابق في نفس مسار القاعدة ؟ حاول حذف المجلد أولا او التأكد بعدم وجوده ثم شغل البرنامج ! اخي ابوخليل نشكرك على مرورك ومشاركتك لنا ! الصورة الظاهرة هي محاولة فتح صورة ببرنامج الاكروبات ريدر ! ارجو التأكد من تجربة اخر ملف ! تنبيه : 1. ارجو من الاخوة عند تجربة النظام في كل مرة حذف المجلد أولا والذي ينشأ دائما في نفس مكان ومسار القاعدة ! 2.. وجود جهاز سكانر معرف وموصل بالكمبيوتر ووجود مستند للسحب ! لاحظو انه عند عدم وجود جهاز سكنر سيتم انشاء مجلد فارغ ! بالتوفيق

معلومة : سبب عدم قبول التعديل هو ان جميع خاصية تم تأمينه=نعم لجميع عناصر النموذج الفرعي ! بالتوفيق

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

اخي عبدالله اشكرك أولا على التجربة ووصف العمل بالمميز !! ثانيا موضوع سحب عدة صفحات اصبح سهلا والحمد لله بعد معرفة سيناريو الحل ومن الأكسس 100% !! لا يوجد لدي سكنر متعدد السحب ! الحل موجود والفكرة ! ولكن اريد اختبارها لدي وقبل رفعها وعند اتاحة الجهاز وكذلك الوقت وقريبا ان شاء الله! تحياتي

Private Sub أمر0_Click() '' رمهان '' اوفيسنا ''فكرة استخدام الاكسس للسحب مباشرة من الاسكنر وتحويله الى pdf x = "\" & IDwared & " _ " & Format(dawared, "yyyymmdd") & " _ " & nowaseka If Len(Dir(CurrentProject.Path & x, vbDirectory)) = 0 Then MkDir CurrentProject.Path & x On Error Resume Next Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & x & x & ".jpg") Set img = Nothing DoCmd.OutputTo acOutputReport, "rep1", acFormatPDF, CurrentProject.Path & x & x & ".pdf" Kill CurrentProject.Path & x & x & ".jpg" End If End Sub السلام عليكم اخي عبدالله : اوافقك تماما لماذا البرامج المساعدة ؟! وهذا ما قلته في اول مشاركة لاخي جعفر ! اسمحو لي بهذه المشاركة وهي عملية اكسسية 100% بل وبدون مرجع ! وهي دلو رمهان كما طلبت اخي عبدالله ومحاولة سريعة ! البرنامج يقوم بفتح مربع حوار الاسكنر وبعد سحب الصورة يقوم بحفظها ك pdf . طبعا هي تمت بوقت وجيز وفقط لمعرفة مدى كفاءتها ونقدها ومن ثم سيكون لي موضوع جديد بهذا الخصوص وبشي حصري ان شاء الله ! اخي محمد سلامة : لاحظ الان العملية تتم على صفحة صفحة واما تعدد الصفحات فلاحقا وبعد نقدكم البناء وملاحظاتكم ! تحياتي للجميع ramhan-scan2pdf.rar

اخي جعفر معلومات ومرجع قيم كقيمة وجودك بيننا . هذه العملية هي باستخدام third party وهو البرنامج المذكور وهذا ماكنت وعدت به الأخ عبدالله ولكن باستخدام برنامج جهازه ومشغلاته . ولكن يبدو انك المحت بان هذه الطريقة ليست منطقية فليس من المنطقي ان اعرف جهاز كل عميل وتعديل برنامجي ليناسب جهاز العميل بل الاعقد هو عند تغيير العميل للأجهزة . انا اوافقك تماما ولكنني كنت اريده حلا سريعا لاخينا عبدالله . وانا هنا أقول بانه من الصعب ان احمل برنامج كطرف ثالث مع برنامجي عند كل عميل وتقيد استمرار برنامجي باستمرار ونجاح البرنامج المرافق ! واتوقع بان مؤلف البرنامج استخدم ال api في مخاطبة الأجهزة مما قد نتوصل لها باذن الله ويكون الاكسس هو من يخاطب الأجهزة وعن طريق api . والى هنا سنرى تجربة الأخ عبدالله والرجوع بالفيدباك ! كما لدي استفسار اخي جعفر حول توافقه مع أنظمة التشغيل وخاصة 64 bit .؟! اخي soft.sample ماسالت عنه وإمكانية وضع المسار بالاكسس هي عملية سهلة وشغلة vba ! الأهم الان هو سحب وحفظ ك pdf ! تحياتي

اخي عبدالله هل انت تريد السحب بصيفة pdf ؟ وعن طريق الجهاز الذي لديك ؟ فحبذا وضع رابط الشركة للجهاز . لانني ساحمل السوفتوير والدرايفرز من الموقع وهي بداية الحل الذي براسي الان !! استفسار : هل انت متاكد اخي عبدالله ان جميع الروابط السابقة ومن جميع الخبراء لمم تتطرق للسحب على شكل pdf ؟ لانه الحقيقة حبيت اقراها الا اذا لم تتطرق لل pdf فانا اريد حفظ وقتي قدر الإمكان وساعتمد اجابتك ؟ تحياتي

اخي محمد خلينا نرسم السيناريو كامل حتى نوصل لما تريد بحفظ الوقت قدر الإمكان وعدم هدم ما تم بناؤه . لان موضوعك على فكرة لم يحدد به اطار العمل كاملا . فتابع : استفسار : انا فهمت انه الخيار انشاء المجلد والملفات يتم مرة واحدة فقط واثناء ادخال المعاملة لأول مرة . ولا اعلم ماذا لو حذفت المعاملة ؟ اليس يحذف المجلد والملفات ؟؟ام ان الحذف لايمكن لمعاملات أدخلت ! كذلك هل هناك الحاق نوع ملفات فيما بعد كان مثلا انشات ملفي وورد واكسل عند انشاء المعاملة ولاحقا حبيت اضع صح على ال pdf لانشاء هذا الملف ملحقا بالملفات السابقة وفي نفس الفولدر ! كما انه هناك امر خطير وهو هل الحقول الثلاثة رقم الوارد والتاريخ ونوع المعاملة قابلة للتعديل لانها أصلا هي اسم المجلد ؟؟ ملاحظة : حل ما طلبت سهل جدا ولكن حبيت ان نضع اطار عمل كامل ينجح به نظامك اخي محمد وخاصة انني لمست انه تجاري ولعملاء وليس للتعلم !! تحياتي

اشكركم متمنيا التوفيق للجميع !!

اهلا بك أستاذ عبدالله لي عودة ومشاركة ان شاء الله قريبا ! ان لم تكن مستعجل على الموضوع !! تحياتي