jjafferr

وعليكم السلام أخي وائل اخذت لك هذا الكود من احد برامجي Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "C:" Backup_Folder = "D:" BE_Address = BE_or_FE & "\Haj_BE.accdb" BK_Address = Backup_Folder & "\Program\Haj_BE_" & Format(Now(), "yyyy-mm-dd_-hh-mm-ss") & ".accdb*" Call Shell("xcopy " & BE_Address & " " & BK_Address, vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وهذا الكود لنسخ الملف وليس لحذف القديم ، وفي هذا الرابط ستجد طريقة مشابهة لما تريد (اعذرني ، فوقتي لا يسمح لي بعمل المطلوب الان :( ) http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 جعفر

وعليكم السلام لا يوجد مشكلة الصيغة الجديدة للأكسس هي accdb ، وهي منذ الاصدار 2007 وفي اعتقادي اذا صار للأكسس صيغة جديدة ، فستحمل تاريخ الاصدار الجديد جعفر

يعني المشكلة اللي عندك الان هي: عندما تنتهي الطباعة ، يجب عليك اعادة ترتيب الاوراق؟ جعفر

وعليكم السلام أخي عبدالله ممكن نشتغل على الاعدادات حبة حبة ، لوسمحت اعطينا المشكلة ، وسنحاول حلها ، حبة حبة كلمة الاعدادات ، واللغة ، جدا كبيرة ، فلا يمكن اعطاء جواب واحد لها خلينا نشتغل كما يقول المثل: كيف تقدر تاكل فيل ، والجواب قطعة قطعة جعفر

كلامك صحيح وفي محله أخوي رمهان وعلشان يكتمل موضوع DAO و ADO ، فيجب الرجوع الى الرابط التالي كذلك: http://www.officena.net/ib/topic/62005-تصحيح-أخطاء-حسابات-الشجرة-بعد-الترقية-الى-2007-معدل/?do=findComment&comment=401138 جعفر

حياك الله عفوا ما فهمت قصدك!!

تفضل أخي اجعل التقرير من اليسار الى اليمين جعفر 203.New Microsoft Access Database.accdb.zip

السلام عليكم أخي عصام اسمح لي ان اتدخل مرة اخرى المعلومة التي انت طرحتها : Global is_db As DAO.Database لم اكن اعرفها ، لذلك ، وبعد توفر الكمبيوتر امامي ، والانترنت ، فقررت ان اجرب جميع الاحتمالات عملت برنامج وهو عبارة عن جدول وكود في نموذج لقراءة سجلات الجدول . 1. الطريقة الاولى لتفادي الخطأ: وكان اسم المشروع الافتراضي (كما ترى في الدائرة الحمراء) Database (وهذا ليس اسم قاعدة البيانات): . ولمعرفة مكان وجود اسم المشروع (كما اوضحت في مشاركاتي السابقة) ، VBA > Tools > Database Properties > General واتضح بان اسمه Database (لاحظ الدوائر الحمراء تشير الى اسم المشروع): . وعند استخدام كود مشابه للكود الذي استخدمته انت ، حصلت على نفس الخطأ الذي حصلت عليه انت: . فرجعت الى اسم المشروع ، وغيرته من Database الى Database1 K ، واشتغل الكود بدون اخطاء: . -------------------------------------------------------------------- وهنا اردت العمل على طريقتك ، فأرجعت اسم المشروع مرة اخى الى Database ، وعملت وحدة نمطية للكود الذي تفضلت به (ولكني استخدمك الكود الاصلي الذي كنت تستخدمه db بدلا عن is_db: . وشغلت الكود ، فحصلت على الخطأ مرة اخرى: . ثم غيرت db الى is_db ، وكذلك حصلت على الخطأ: . -------------------------------------------------------------------- 2. الطريقة الثانية لتفادي الخطأ: ارجعت اسم المشروع الى ما كان عليه Database ، ثم تأكدت ان المراجع لـ DAO و ADO موجودين في القائمة . وعليه ، لإستخدام نفس الكود الذي استعملته ، يكون كالتالي لـ DAO ، والذي لم احصل على خطأ عند استخدامه: . ولإستخدام نفس الكود الذي استعملته ، يكون كالتالي لـ ADO ، والذي لم احصل على خطأ عند استخدامه: . ياريت توضح لنا اكثر شوي عن طريقة استخدام الكود الذي استعملته ، والذي حل لك المشكلة ، لوسمحت جعفر

ولا يهمك أخوي رمهان ، اليك روابط بالصور :-) VBA > Tools > Database PROPERTIES انظر الصورة General Project name انظر الصورة سترى أن إسم المشروع هو Database ، غير اسم المشروع إلى أي إسم غير db ، ثم أنقر ok ، واحفظ قاعدة البيانات ، وجرب البرنامج الآن :-) مو سهل الرد على مثل هذه الأسئلة من الهاتف النقال :-) جعفر

عفوا مشاركتي محتاجه توضيح :-) بالنسبة للموظف ، فعند طلب إجازة ، يجب أن يعمل علامة صح في نموذج frm_Employee_see في الحقل Leave_Needs_Decission. عند وضع علامة الصح ، فطلب اجازته سيظهر للمسئول في النموذج frm_Management_See. عندها ، يجب على المسؤول أن يضع علامة صح في الحقل Management_Gave_Decission ، وعندما يضع علامة الصح ، فتظهر الاجازة للموظف المسؤول عن إنهاء إجراءات الاجازة ، في النموذج frm_Clark_See . وعندما تتم الاجراءات ، يجب عليه أن يضع علامة صح في الحقل Done حتى لا تظهر الاجازة في النموذج. و السبب الذي قلت يجب عمل حدث توقيت على On_Timer كل 5 دقائق مثلا لتحديث النموذج ، حتى لا يحتاج المسؤول وموظف الإجازات إلى إغلاق نماذجهم وفتحها لرؤية الطلبات الجديدة ، فالتحديث سيظهر على طول في النموذج المفتوح :-) جعفر

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

السلام عليكم أخي أبواحمد النت عندي تعبان ، فاسمح لي بسرعة اشارك انت محتاج جدول واحد فقط مثل ما قال أخوي ابوخليل : المسأئلة لها علاقة بالاستعلام الصحيح فقط ، وبتحديث النموذج (للمسئول Manager والموظف المسئول Clerk). الموظف: المسئول: الموظف المسئول: رجاء اعمل توقيت لتحديث نموذج (للمسئول Manager والموظف المسئول Clerk) ، كل خمس دقائق مثلا ، وسوف ترى النتائج :) جعفر 201.1.Electronic_Leaves.mdb.zip

المشكلة لم تكن في Nz وإنما كانت بسبب اقسام الاكسس ، التفصيل وذيل التقرير. استخدم التالي: Rseed awl =Nz(([Esal (RsedAwl)].[Report]![EsalawlSum])-([Ezn (RsedAwl)].[Report]![EznawlSum]),0) Esal TOT =Nz([Rseed awl]+[Esal (yawmya)].[Report]![EsalyawmyaSum],0) رصيد نهاية اليوم =[Esal_TOT]-[EznTOT] Can Shrink = NO =قابل للتقلص جعفر

سؤالك غير واضح :-( رجاء التوضيح بشكل تفصيلي. جعفر

رحم الله والديك دنيا وآخرة أخوي ابوخليل :-)

وعليكم السلام تفضل أخي :-) ** اخوي ابوخليل اعتذر منك واثقل عليك بطلبي ، بسبب مشكلة خاصة عندي ، ما اقدر أعرض الموضوع بالطريقة العادية ، لذا رجاء لوسمحت تفكك محتويات الملف المرفق: أرفق ملف الاكسس ، وضع معلومات ملف الوورد مع الصور والكود ، مباشرة في الموضوع. مع شكري الجزيل لشخصك الكريم :-) جعفر 105.Report_Textboxs_Same_Height.zip

وعليكم السلام :-) يمكنك استخدام الكود التالي ، و بدون الوحدة النمطية: =Sum(Nz([invoiceAmt],0) NZ معناه: Null to Zero جعفر

الله يسلمك ويعافيك إن شاء الله :) كنت في سفر عمل ، فلم أستطيع دخول المنتدى :( المشكلة لا توجد بين إصدارات الاكسس فقط ، وانما حتى بين نفس الإصدار!! وليست في صيغة accdb وانما في mdb كذلك!! والذي يزيد المشكلة هو نسخة الوندوز التي على الكمبيوتر ، فتصبح المشكلة مركبة ومعقدة!! لا تدوخ رأسك في الوصول إلى جواب لسؤالك ، فقد لا تصل إلى نتيجة :( بالإضافة إلى نصائحي السابقة ، هناك نصيحتين كذلك: 1. لا تفعّل الضغط والإصلاح عند إغلاق البرنامج ، 2. اغلق خاصية layout design. جعفر

وعليكم السلام اذا كان الكمبيوتر / الاوفيس فيه التحديثات الاخيرة ، واذا ضغط واصلاح البرنامج ما نفع ، فهذا معناه ان هناك كائن في برنامجك فيه مشكلة وقد يؤدي هذا الى عطب البرنامج بالكامل!! وطريقة حل هذه المشكلة هي: نسخة الاكسس اللي عنك مشكلة فيها 2010 ، اعمل برنامج جديد فاضي ، ثم استورد البرنامج اللي فيه المشكله اليه ، لاحظ خطوات الاستيراد ، واذا توقف الاستيراد عند نموذج / تقرير معين ، فهذا معناه: اما النموذج كله فيه مشكلة ولا يستطيع الاكسس استيراده ، او ان هناك كائن / كائنات معينة لا يستطيع الاكسس استيرادها من النموذج ، لذا عليك ان تعيد العمل في عمل النموذج/التقرير (ولا تعمل نسخ/لصق لانك ستنقل المشكلة للبرنامج الجديد ، نعم تستطيع عمل نسج/لصق للكود) ، واذا حددت المشكلة في نموذج معين واردت ان تعرف اي الكائنات هي سبب المشكلة ، فعليك بحذف كائن / تشغيل النموذج ، الى ان ترى ان البرنامج عمل بصورة طبيعية. في مرة انا حصلت لي المشكلة ، وبعد عمل الاستيراد ، حددت المشكلة في نموذج ، وبعد حذف الكائنات واحدا واحدا ، اتضح ان المشكلة كانت في ComboBox ، فحذفته ، وعملته من جديد ، وكله اصبح تمام جعفر

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

السلام عليكم إخواني/أخواتي البرنامج الاصل هنا: http://www.officena.net/ib/index.php?showtopic=60235&p=386739 ولكن الظاهر ان بعض الشباب رأى بأن البرنامج اصبح معقد ، لذلك ، الغيت جميع النماذج والجداول التي لا علاقة لها بالماسح الضوئي scanner ولشرح اضافي لعمل البرنامج: الهدف من البرنامج هو سرعة العمل ، بحيث انك تضبط الاعدادات مرة واحدة ، وتحفظ كل اعداد بإسم Profile مختلف ، وفي عملية المسح ، كل ما عليك عمله هو اختيار Profile من القائمة المنسدلة ، وتضغط على الزر Scan 1. تستطيع ان تستعمل اكثر من ماسح ضوئي ، 2. لكل ماسح تستطيع ان تعمل اكثر من Profile واحد ، وكما تلاحظ في الصورة المرفقة ، فقد عملت 4 Profiles للماسح HP Officejet Pro 8500: أ- للمسح من زجاج Glass الماسح (لمسح ورقة واحدة) ، ب- للمسح من الملقم Feeder (لمسح اكثر من ورقة واحدة) ، (هناك بعض البرامج تسألك مسبقاُ عن عدد الاوراق التي تريد سحبها ، ولكن برنامجي لا يسأل ) ، ج- للمسح من الملقم Feeder ، Duplex (لمسح اكثر من ورقة واحدة ، من جانبي الورقة ، طبعا اذا كان الماسح يحمل هذه الميزة) ، . 3. لكل Profile ، تستطيع ان تضبط مجموعة اعدادات ، ومنها صيغة حفظ الصورة كـ pdf او jpg او png او tif ، والسبب ان عندي عدد 2 Profile للملقم Feeder ، هو ان احدها يمسح الاوراق ويحفظها جميعا في ملف بصيغة pdf ، بينما الـ Profile الاخر يحفظ كل ورقة بصيغة jpg متسلسلة ، (هناك بعض البرامج التي تقول بأنها تحفظ الصورة بصيغة jpg ، ولكن الصورة في الواقع بصيغة Bmp ، فمجرد تغيير اسم صيغة الملف لا يغير صيغة الملف نفسه) ، ملاحظة هامة: البرنامج لا يتأكد من وجود صور سابقة في مجلد الحفظ ، فإنه يحذف الصور السابقة ويستبدلها بصور جديدة. 4. الميزة في عمل اكثر من Profile لكل ماسح ، هو انه ، عند المسح ، فانك لا ترجع وتختار الاعدادات في كل مرة تريد المسح ، وانما تختار اسم Profile ، وتضغط على زر المسح (البرامج الاخرى ، إما انها لا تعطيك خيارات تضبيط الاعدادات ، او انك تضطر الى تضبيط الاعدادات في كل مرة تريد المسح) ، لاحظ في الصورة التالية ، الاعدادات التي تم حفظها مسبقا للـ Profile HP8500_Duplex ، فكل الذي تعمله هنا هو اختيار Profile من الرقم 1 ، ثم تضغط على الرقم 9 للمسح : . 5. العيب الذي يُوجه الى البرنامج ، انه يستخدم وسيط خارجي وهو NAPS2 ، بينما جميع البرامج الاخرى تستخدم وسيط خارجي ايضا مثل مكتبة wia جعفر Scan_Link_Images_pdf_Files2.zip

حياك الله بس أخي مارد اذا تسمح لي أضيف معلومة للفائدة ، وكودك ذكرني فيه في أحد البرامج الكبيرة اللي عملتها ، كنت مضطر اعمل معيار criteria للإستعلام ، لحقول البحث في النموذج ، وكان عندي حقول ارقام ، وحقول نص بالكامل (من مربع سرد Combobox) ، وحقول نص جزئي ، وتاريخ ، وكان في الكثير من الحقول ، والكثير من النماذج ، فاللي عملته هو اني كتبت اسماء الحقول في النموذج على اساس نوع الحقل ، مثلا: حقل رقم ، اسميته n_Serial_Number ، n_Reservation_Number ، ... حقل نص ، اسميته t_Full_Name ، t_Address ، .. ... وبهذه الطريقة اصبح عندي شغلتين ، اسم الحقل مثل Full_Name ، ونوع الحقل والذي هو t اي نص نرجع لموضوعنا فاذا اخونا السالم كان عنده مجموعة حقول ، وكان يريد ان يفرغ بعض الحقول فقط ، وكان يريد يستعمل طريقتك ، فيمكنه ان يضيف الحرف c مثلا قبل كل اسم حقل (فحقل SN مثلا تصبح c_SN) ، عليه يصبح الكود حقك: Public Sub ClearTextBoxes(frm As Form) dim ctl as control For Each ctl In frm.Controls If ctl.ControlType = acTextBox and left(ctl.Nmae,1)="c" Then ctl.value = "" End If Next End Sub جعفر

تفضل لو خبرتنا من قبل انك تدخل معلومات في هذا النموذج كذلك ، كنت بحك راسي زيادة واحاول اوصل لنتيجة الآن تستطيع ان تدخل بيانات في النموذج frm_Temp_TTTT. ولكني انصحك بأن تنسى كل اللي عملناه ، وتستعمل النموذج frm_New_TTTT ، واللي يأخذ بياناته من الاستعلام qry_New_TTTT ، وبدون جداول مؤقته الاستعلام فيه CFF وبه يحسب عدد Cen في الجدول FFFF ، ويعطينا العدد في الحقل tmp_Number ، في النموذج ، استعملنا تنسيق شرطي Conditional Formatting ، بحيث اذا كان الرقم في الحقل tmp_Number اكبر من صفر (يعني هذا الرقم موجود في الجدولين) ، يتحول لون الخلفيه الى خضراء جعفر 100.1.TEST2.accdb.zip

تمام يا مارد طريقة أخرى حلوة