jjafferr

شكرا جزيلا على هذه المعلومة أخي الأستاذ محمد :-) جعفر

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

أما انا ، فكنت اشتغل على مشروع قراءة ملف البصمة ، والمرتبط بحوالي 42 جهاز ، وكانت صيغة الجهاز هو dbf ، ولما لم يستطع الاكسس التفاهم معاه واخذ البيانات منه ، اشتريت dbf viewer من الرابط http://dbfviewer2000.com وعن طريق كود الاكسس ، وباستخدام هذا البرنامج ، يتم تحويل ملف dbf إلى csv وبالتالي اربطه بجداول الاكسس :-) والبرامج به طريقة تحويل عدة ملفات دفعة واحدة على ما اعتقد :-) جعفر

للاسف ، اكسس 2013 لا يتعامل مع dbf

تسلم أخوي محمد نتيجة عمل برامج مختلفة ، لفئات مختلفة ، على فترات مختلفة ، بلغات مختلفة ، لسنوات عدة ، يسمونها خبرة ولولا اسئلة الشباب ، لما طلعت هذه الخبرة للملأ فالشكر موصول لكم ، لأسئلتكم ومداخلاتكم جعفر

السلام عليكم وهذه النسخة الكاملة للموضوع (البارحة بعد ان كتبت كل شئ ، اتضح ان المنتدى اُغلق للصيانة ، وراح كل الشغل ) 2. عندما تستخدم البرنامج في شبكة بين مجموعة مستخدمين ، لا تريد البرنامج ان يعمل نسخة كلما خرج احد المستخدمين من البرنامج ، ولكن تريد ان يتم عمل النسخة عندما يخرج المستخدم الذي يعمل على الكمبيوتر jj فقط (طبعا يمكن استخدام اسم المستخدم بدلا من اسم الكمبيوتر): if vba.Environ ("Computername")<> "jj" then Exit Sub 3. السطر التالي يحذف جميع الملفات القديمة لهذا الملف: Kill Backup_Folder & "\Program\Haj_BE_*.accdb" Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "C:" Backup_Folder = "D:" 'Do a copy from a PC name jj ONLY if vba.Environ ("Computername")<> "jj" then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\Program\Haj_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' 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 or err.number=53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

وعليكم السلام أخي وائل اخذت لك هذا الكود من احد برامجي 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 ، فحذفته ، وعملته من جديد ، وكله اصبح تمام جعفر