نجوم المشاركات

السلام عليكم ورحمة الله تعالى وبركاته استاذ @حسين العربى استاذ @حلبي استاذ @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

اخى الحبيب الله يرضى عليك ركز معايا شوية المرفق فى هذه المشاركة مؤقتا حتى اتمم التعديل عليه فيكون الحفظ مباشرة داخل المجلد المطلوب يقوم بعمل ما تريده حضرتك بدون اى مشاكل http://www.mediafire.com/file/d8wi5993u33r8ur/scan.rar لو حضرتك جربت زر الامر على نموذج الوارد او الصادر زر الامر باسم إدراج مرفقات من الكمبيوتر هذا الزر يقوم بارفاق كل المرفقات التى تحددها مرة واحده الى مجلد ينشئه البرنامج من تلقاء نفسه برقم المسلسل ويقوم بعمل اعادة تسمية لو حضرتك ركزت مع كلامى حتلاقى اصلا ده موجود وتم اخذخ فى الحسباااااان قبل ان يفتح باب الحوار حول هذه النقطة ركز فى مميزات المرفق فى الرابط فى هذه المشاركة وهى كالاتى المميزات من وجهة نظرى المتواضعة وبناء على ما لمسته فى حياتى العملية- ادراج الوقت والتاريخ من جهاز السيرفر فى حالة احببت عمل القاعدة مترابطه بقاعدتين امامية وخلفيةفلا يستطيع من يعمل على البرنامج التعديل فى الوقت والتاريخطبعا انا وضعت كود الان واستعلام لكى يربط البرنامج نفسه بالاى بى الحالى للجهاز الحالى لعدم حدوث مشاكل - المفترض وضع الاى بى الخاص بالسيرفر يدويا فى جدول الاى بى المخصص لذلك- الترقيم تلقائى ويتجدد كل عام بطريقة الية- حذ سجل لو بالخطأ لا يضيع رقم من ترتيب السجلات- عدم حفظ البيانات الا باكتمالها ورسالة تفيد ذلك - فى حالة المرفقات يتم انشاء مجلد ارشيف وبداخله مجلد الصادر او الوارد حسب النموذج المستخدم كل باسمه وبداخل كل منهم تاريخ العام الحالى ومجلد خاص لكل سجل برقم المسلسل للسجل وبه كل المرفقات - المرفقات مربوطة داخل النماذج برقم المسلسل ويمكن البحث عنها او استعراضها من النموذج دون الذهاب الى مسارها على الجهاز -المرفقات غير مرتبطه او مضمته داخل القاعدة ولا حتى بمسار محدد - يمكن تصفح المرفقات من على الشبكىة مع الرغم من عدم وجود مسارات محدده او محفوظه وثابته لاى مرفق - طبعا كل مرفق يتم فتحه بالبرنامج المفضل لفتحه لذا يجب تنصيب البرامج الخاصة لكل نوع صور او ورد او اكسل او اكروبات ريدر ..... الخ - يمكن نقل المجلد الرئيسى الذى يحتوى على قاعدة البيانات من اى مكان الى اى مكان وبتم استعراض المرفقات بكل سهوله لعدم ارتباط المرفقات بمسار محدد سلفا وهذا ما ارهقنى كثيرا حتى من الله على تعالى بهذه الفكرة الرااااااااااااااائعةهذه بداية ورشة عمل مشروع ارشفة ملفات ....... اعتذر لم اعدد المميزات لان اصل الموضوع كان يعتمد على ربط الاسكانر خذ من الاكواد ما تريد

السلام عليكم أخي حلبي الرابط فيه طلبك: وهذا جعفر

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

اول شي وبعد اذن الاستاذ ابو ابراهيم نهنئ انفسنا بعودتك استاذ جعفر وثانيا نهنئك استاذ ابو ابراهيم ومن اول مشاركة له كان لدي الحس بخبرتك وهنا والمبرمج دائما يجب ان يكون لديه حاسيه سادسه وسابعه وثامنه وياليت لو فك لنا الشفره في الرابط اعلاه وطبعا يعود لك استاذ ابو ابراهيم وتقبل تحياتي استاذ جعفر واستاذ ابو ابو ابراهيم

مشاركة مع الاستاذ اباجودي اعتقد مشكلتك كانت في كيفية الوصول للنموذج الفرعي هنا للسماح Me.NavigationSubform.Form![Table2 subform].Form.AllowAdditions = True وطبعا لعدم السماح تعديل قيمة الخاصية الى false بالتوفيق

الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر

وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip

Canon imageRUNNER ADVANCE 6255i ايضا تم التجربة على ماكينة تصوير كانون بنجااااااااااااااااااااااااااااااااااااااااااااااااااااااح جرب استيراد الصور من مجلد tempscan من خلال زر الامر ارفاق مرفقات من الكمبيوتر ستجد الحل ان شاء الله

وعليكم السلام اختي 1. اذا تسمحي لي بتغيير الكود قليلا الى التالي ، فانتي لستي بحاجة الى If اخرى: if result=vbYes then docmd.quit else docmd.cancelevent msgbox "Back" endif 2. برنامج الاكسس تلقائيا يحفظ البيانات عندما ينتقل التركيز من السجل الذي انتي عليه ، سواء انتقلتي الى سجل آخر او خرجتي من النموذج الذي انتي فيه، ولكن اذا اردتي حفظ البيانات يدويا ، فهناك مجموعة طرق للقيام بهذا ، منها: سيتم حفظ البيانات كلما استعملتي هذا الامر docmd.runcommand accmdsaverecord او الامر التالي يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.derty=false جعفر

ايون ينفع انا عملتها قبل كده تقريبا

السلام عليكم ورحمة الله محاولة لا اضمن لها النجاح لأن العمل بدون الملف هو مضيعة للوقت استبدل الكود السابق بنفس الكود مع تعديل تخيلى Private Sub CommandButton1_Click() On Error Resume Next Dim i As Integer, LastR As Long, ws, ws1 As Worksheet Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 15 UserForm1.ComboBox1.Clear For T = 2 To LastRow For S = 2 To LastRow1 If OptionButton1.Value = True Then If TextBox1.Text = Mid(ws1.Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(T, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If Else If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If End If End If Next Next Next UserForm1.ComboBox1.ListIndex = 0 If UserForm1.TextBox2.Text = "" Then MsgBox "??C C???U? U?? ????I", vbInformation + vbMsgBoxRight, "?E??E C?E?E" UserForm1.CommandButton3.Enabled = False End Sub

تمام اضف السطر التالي قبل السطر الملون if rst.recordcount=0 then exit sub ثم جرب

ان احسنت الفهم Private Sub Command12_Click() Me.sbfrmTr.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.sbfrmTr.Form.RecordsetClone.recordcount If IsNull(Me.sbfrmTr![Section]) Then Me.sbfrmTr![Section] = Me.Text2 If IsNull(Me.sbfrmTr![Doc]) Then Me.sbfrmTr![Doc] = Me.Text0 If IsNull(Me.sbfrmTr![zdate]) Then Me.sbfrmTr![zdate] = Me.Text6 DoCmd.GoToRecord , , acNext Next End Sub وحبذا تعديل التنسيق للعنصر Text6 الى تاريخ بالتوفيق

حياك الله أخوي رمهان ، والله المنتدى له وحشه لما الواحد يكون بعيد واهل المنتدى هم المقصودين ، مثل ما قال الشاعر أمر على الديــــــار ديار ليـلى ... أقبل ذا الـــــــجدار وذا الجـدارا وما حب الديار شـــــغفن قلبي ... ولكن حب من ســـــــكن الديارا جعفر

اولا مبروک لكل اعضاء المنتدى انت هدية من الله عز وجل لنا وللمنتدى وبعدين اهنئك الترقية والف الف مبروك

الحمد لله يا @حسين العربى لقد ضربت الارقام القياسية بنجاح حوالي 1800 مشاهدة و7 صفحات شكرا يا @sandanet علي مجهودك ولازلت افضل استخدام برنامج خارجي لاسكنر

حمدالله علي السلامة استاذ @jjafferr يا @ابا جودى ايه رايك في الموضوع ده؟

بارك الله فيك أخي الحبيب الأستاذ / حمادة عمر وشكرا جزيلا علي هذا المجهود في هذا العمل الرائع

السلام عليكم الاخ الكريم /حماده سعد الله بارك الله فيك تفضل اخي الكريم الملف المرفق به كود لتنفيذ ما تريد حسب طلبك والمخرجات اوفيس 2003 وللعلم فان الكود المستخدم في الملف هو من موضوع الحبيب / ياسر خليل .. جزاه الله خيرا ولكن تم تعديله بعض الشئ ليتناسب مع طلبك الكود يعمل علي نسخ الشيتات ارقام 3 - 4 - 5 الي ملفات منفصلة في نفس مسار الملف ويمكنك تحديد ما تريد من الشيتات ان شاء الله يفي بطلبك تقبل خالص تحياتي نسخ الشيتات كل شيت باسمه في ملف منفصل.rar

تفضل هذا ان شاء الله يكون طلبك صلاحيات مستخدم.rar

هههههههههههه اقصد المسبب داخل الكود يا استاذى الحبيب

اساتذتي الكرام أخي حسين وأخي اباجودى ارجو ان تجربوا المرفق التالي وهو بخصوص اخذ نسخة من مجلد السكانر ونقله لمجلد البرنامج كما تفضلتم باقتراحه .. انا قمت بالاستعانة بمرفق الاستاذ جعفر في هذه المشاركة https://www.officena.net/ib/topic/63134-احضار-محتويات-فولدر-خارجى-الى-البرنامج/?do=findComment&comment=410587 مع بعض التعديلات الطفيفة لذلك كل الشكر موجه للأستاذ الكبير جعفر على ذلك ملاحظة : قم بانشاء مجلد خاص بالبرنامج وليكن اسمه new ومجلد خاص بصور السكانر المؤقت وليكن اسمه scanner الذي يحتوي على الصور المسحوبة من السكانر ومن ثم من خلال البرنامج قم بتحديد رقم الموظف ومسار المجلد الجديد وبعدها اختار اضافة مرفقات من الكومبيوتر وتوجه الى مجلد السكانر واختار ماتشاء من صور تحياتي الارشيف.zip

كل الشكر 100% احترامي لك اخي الكريم والى اخي ابو علي

التجربة تمت على نوعين من الماسح الضوئى FUJITSU Document Scanner fi-5530C2 FUJITSU Document Scanner fi-6230z حضرتك جربت يا استاذ @حسين العربى؟؟؟

جميل جداً اخي ابا جودي حل يفي بالغرض ولو اني شخصيا ًافضل الابتعاد قدر الامكان عن استعمال برامج خارجية لكن لامانع من استخدامها ان لم يتوفر كود بديل اتذكر وجود مكتبة تسمى DBPix20.ocx وهي تفي بالغرض ايضاً تحياتي

أشكرك أخي @أبو عبدالله الحلوانى على تهنئتك لي وأتمنى أن أكون عند حسن ظنكم جميعا. لا فرق سوى تبعية النموذج للوظيفة! ونحن في الأصل عرفنا المتغير ptInputResult على أنه عام وبناءً عليه يمكنك الوصول إلى المتغير من أي مكان دون الرجوع الوظيفة.. لكن انفكت التبعية هنا.. والإشكالية هنا فنية برمجية بمعنى أن هذا الاسلوب غير مقبول برمجيا. لكون الوظائف (Functions) لا تعيد إلا قيمة واحدة فقط.. ولا تعيد قيمة متعددة إلا إذا أعلنت عنها أنها من نوع (Type)! هذا هو السبب! ومع هذا كله يمكن إعادة استخدام النموذج وملؤه بالبيانات بطريقة أبينها لك وللأخ @sandanet يمكن أن تكون الطريقة بالنسبة للبعض أفضل من الوظيفة! إليكم الطريقة عن طريق محرر الشفرة افتح وحدة نمطية جديدة وسمها ما شئت (mdlForms)، ثم قم باضافة الشفرة التالية Dim UF As New Form_USysInputBox Sub UserDlg() On Error Resume Next '-- تعبئة البيانات متسلسة UF.Caption = "صلاحية الدخول" UF.lblPrompt.Caption = "فضلا أدخل اسم المستخدم وكلمة المرور" UF.lblInputOne.Caption = "اسم المستخدم" UF.lblInputTwo.Caption = "كلمة المرور" UF.OnClose = "=SetClose()" '-- اظهر النموذج UF.Visible = True '-- القيمة العائدة من مربع النص مباشرة Debug.Print UF.txtInputOne Debug.Print UF.txtInputTwo End Sub Function SetClose() Set UF = Nothing End Function

شكرا يابو عبدالله على المرور والمتابعة والتفاعل وهذا اللي كنت اقصده .. والحاجة ام الاختراع .. بارك الله فيك ونحن بانتظارك

وما هو الخطأ المسبب فى ظهور هذه الرسالة

تفضل اخى المطلوب تم عملة يمكن تعديل القب والاسم على حسب ما تحب من خلال تغير الرينج التى تجلب منه الدالة البيانات قاعدة البيانات.rar

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

قمت بتنفيذ فكرة مشابهة لهذا قمت بارسال أداة صغيرة للعميل بها فورم واحد وجدول (الجدول كان يحوى على أسماء الجداول داخل قاعدة البيانات - ويمكن الاستغناء عنه بالأكواد على حسب ظنى ). 1- البرنامج الصغير تم ارفاق قاعدة بيانات للجداول الجديدة معه ولكنها فارغة. 2- تم مطالبة العميل من خلال البرنامج بتحديد موقع قاعدة البيانات على جهازه . 3- بالضغط على زر فحص واصلاح يتم الارتباط بقاعدة البيانات على جهاز العميل وكذلك الارتباط بقاعدة البيانات الجديدة الفارغة وهى بنفس مجلد الأداة - اعتقد الفكرة وضحت الآن. 4- طبعا سيتم تحويل كافة البيانات القديمة الى القاعدة الجديدة ومن ثم 5- استبدال القاعدة القديمة على جهاز العميل بالجديدة التى تم ارسالها مع الأداة الصغيرة والتى تم ارسالها على شكل طبعا - اللى ما بيعرف صعيدى أبشره أن جوجل عملت خدمة للترجمة من والى الصعيدى حاليا

حياك الله أخي أوس ، واعتذر اني لم الحظ تعقيبك جعفر

ريما يعجبك هذا الملف اذا كانت الخلية فارغة تستطيع ان تكتب فيها ما تشاء(دون دوبل كليك) واذا لم تكن فارغة يتطلب ذلك الاذن بواسطة كلمة المرور(موجودة بالملف و يمكنك حذفها بعد معرفتها) كل ذلك فقط بالجدول من H9:J33 Protect_Me.rar

السلام عليكم النقطة رقم 2 يمكن الحصول على الكود حقها من الرقم 16 في المرفق التالي: جعفر

شوف كود عند الفتح او القي نظرتا الى استعلام مصدر الكومبوبوكس

ان شاء الله .. الموضوع عبارة عن قص ولصق وتحديث بيانات جدول الصور

وانا اريد ان اربط قاعدة بياناتي مع سكان المريخ بنقرة زر واحدة

وفقكم الله

ممكن توضح اكثر استاذ عبدالله

الف شكر على جهدك . تمنياتى لكم بدوام التقدم

كتاب رائع من عضو أكثر من رائع - جزاك الله عنا خير الجزاء

شكرا جزيلا

ما شاء الله عمل ولا اروع جزاك الله خير الجزاء استاذ خالد

بارك اللة بيك وجعلة فى ميزان حسناتك

جزاك الله خير جزاء الحسنين انه سميع مجيب

هذا رائع جزاك الله خيراااااااااااااااا

اقتراح جميل والأجمل منه ان يكون على حسابك يكفينا شرف إلتقاء الأرواح العامرة بنورالايمان الخالية من الرياء فإن كان فى الدنيا عز اللقاء ****** ففى يوم الحشر نلقاكم ويكفينا

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // تامر طه 1 ) للعلم بعض او غالب هذه البرامج موجودة على المنتدى ويحتاج الى مجهود من سيادتكم لتجميعه 2 ) قم بوضع فكرتك خطوة... خطوة وستجد يد العون دون اي مقابل مادي فانا اعلم ان غالب _ان لم يكن جل _ العاملين في هذا المنتدى يعملون ولا يبتغون الا الاجر الاعظم من الله عز وجل