jjafferr

حياك الله أخي عبدالفتاح في ملاحظاتي التي شرحت فيها البرنامج ، انا قلت بالنسبة للترقيم: رجاء إخباري اذا كان في شئ غير هاتان الملاحظات جعفر

نصيحة: احذف حساب الـ Admin ، لان جميع قواعد البيانات اسم المستخدم لها هو Admin او لا تجعل اي مستخدم في هذا الحساب ، واعمل كود لا يسمح لهذا المستخدم بالدخول في قاعدة البيانات اصلا جعفر

كبير يا ابوآلآء ، كبير وانا تحت امرك اشرح لك سطر سطر هذا البرنامج بصيغة 2007-2010 ، ولا استطيع تغييرها ، لآن في الجداول حقول تجميع ، والتي لا توجد في النسخة 2003. جعفر

أخي عبدالرحمن شكرا على التوضيح ، المسألة الان اصبحت سهلة ولكن عندي استفسار: 1. انت تريد ان تحذف حقل "نسبة ضريبة المبيعات" من النموذج الفرعي ، وتستخدم بدلا عنه "إضافة ضريبة بالمائة على الإجمالي بدون التقيد بالأصناف" و "إضافة خصم بالمبلغ على الإجمالي بدون التقيد بالأصناف" ، صح ؟ 2. تريد تشوف نتائج العملية اعلاه ، في الحقول "إجمالي بدون ضريبة" و "إجمالي بالضريبة" و "إجمالي ض. مبيعات" ، صح ؟ 3. يجب حفظ بيانات "إضافة ضريبة بالمائة على الإجمالي بدون التقيد بالأصناف" و "إضافة خصم بالمبلغ على الإجمالي بدون التقيد بالأصناف" لكل فاتورة ، فهل تريد ان تحفظهم في الجدول Ezn_ADD ، صح ؟ 4. نتيجة التفقيط عندك غلط ، للعلم اعطني الاجابه للاسئلة اعلاه حتى ابدء في العمل ان شاء الله جعفر

السلام عليكم 1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة: 2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى: 3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد: وهذه طريقة ربط الجداول للحقل اعلاه: والنتيجة: 4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود: Option Compare Database Private Sub Form_Close() Me.Filter = "" Me.FilterOn = False End Sub Private Sub Check_Selected() Dim FF As String 'cmb_alaam_aldrasy If Len(Me.cmb_alaam_aldrasy & "") = 0 Then FF = "" Else FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'" End If '--------- 'cmb_almadrasa If Len(Me.cmb_almadrasa & "") = 0 Then Else FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'" End If '--------- 'cmb_alsaf If Len(Me.cmb_alsaf & "") = 0 Then Else FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'" End If '--------- 'cmb_alsuaph_aldrasy If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then Else FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'" End If '--------- 'cmb_IDalmada If Len(Me.cmb_IDalmada & "") = 0 Then Else FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada End If '--------- 'cmb_IDalsahr If Len(Me.cmb_IDalsahr & "") = 0 Then Else FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr End If '--------- If Left(FF, 4) = " And" Then FF = Mid(FF, 6) Me.Filter = FF Me.FilterOn = True End Sub Private Sub cmb_alaam_aldrasy_AfterUpdate() Call Check_Selected End Sub Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer) Me.cmb_alaam_aldrasy = "" Call Check_Selected End Sub وتركت لك في الكود بونص انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 5. والنتيجة: يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله جعفر 6.برنامجي2.accdb.zip

اعتذر منك أخي عبدالرحمن على التأخير ، فانا اساعد احد الشباب في موضوع آخر ، ولما اخلص ، ساوجه تركيزي لموضوعك ان شاء الله جعفر

العفو ابو الآء ، احنا نتعلم من بعض ، وبالعكس ، لما انتهي من عملي ، ساقارن عملي بعملك ، ونتوصل الى النتيجة الافضل للرد على السؤال ، ونتعلم شئ جديد يعني ، في سباق بيننا نحن الاثنين لإرضاء الاخ عبدالعزيز جعفر

اعطني شوية وقت لوسمحت ، انا اعمل على المطلوب جعفر

اخي عبدالعزيز اسئلتي كانت: فلا اعطيتنا مثال تطبيقي علشان نفهم ، ولا اعطيتنا اسماء الجداول والحقول التي في البرنامج طلبك واضح لك ، لكننا لا نرى إلا جداول وحقول وبيانات ، 1. فمن ايهم ، 2. تريد ماذا ، 3. للوصول الى ماذا. مثال من برنامجك لوسمحت جعفر

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

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

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

وعليكم السلام لأني انا اثرت الموضوع ، فراح ادلو بدلوي بإختصار 1. الخطأ A problem occured while MyDB was communicating with the OLE server or Active X Control احد اسبابه هو لغة الكمبيوتر ، وهذا رابط ماكروسوفت يشرح الموضوع http://support.microsoft.com/kb/907337/ar وببساطة ، اذا عملت برنامجك وفي VBA حروف عربية (UniCode) او اسم احد الكائنات او اسم الحقول او اسم المسميات في النماذج و.... ، الآن اذا اراد شخص لا يملك اللغة العربية في كمبيوتره (يعني لا دعم للعربية او Fonts) ، فكيف سيتعامل مع حروف برنامجك؟ لذلك ، يظهر لك الخطأ ، وعلشان تصلحه: أ. يا انك تنصب اللغة ، ب. تحذف اي مسميات غير انجليزية من برنامجك ، وهذه الطريقة الافضل ، لأن الحروف العربية تقلب الكود سواء في VBA او فالاستعلام او في اي مكان تكتب فيه كود. 2. صيغة التاريخ: معظم العرب يستخدمون صيغة dd/mm/yyyy ، لهذا السبب نستخدم هذه الصيغة في عرض التاريخ في النماذج والتقارير و... ، ولكن عندما يريد ان نستخدم صيغة التاريخ في كود ، ستلاحظ ان الاكسس لا يحترم صيغتك ، وانما يستخدم صيغة التاريخ في الوندوز ، وما دمنا على موضوع التاريخ ، فالحقيقة ان صيغة التاريخ في الاكسس هو بضيغة امريكية mm/dd/yyyy ، بغض النظر عن الصيغ الاخرى ، وبعد معاناة طويلة معه في الكود (لا تنسى ، ان برنامجك الاكسس سيعمل على كمبيوترات مختلفة ، والكثير منها لم يتم تغيير صيغة التاريخ فيه ، فالكود لن يعمل بطريقة صحيحة الى ان رأيت الوحدة النمطية في المادة رقم 2 في الرابط http://allenbrowne.com/ser-36.html للمبرمج Allen Browne ، وبها والحمدلله ما عندي مشاكل جعفر

ومثل ما كان يقول الدكتور عمر الخطيب https://i.ytimg.com/vi/Ieln4RykBzY/hqdefault.jpg (في برنامج بنك المعلومات) يا سلام عليك ولك مني إعجاب لتكملتك بقية الشروط بنفسك أخي ابو محمد عباس ، شاكرا لك جميل كلماتك جعفر

أخي كريمو الله يخليك ، المرة الجاية خلي لي سؤال سهل ، اتهنى بالاجابه عليه ، بدون ما احك راسي وآخر شعرتين إللي عليه يسقطو في الواقع المسألة كانت جدا عويصه ، بس لأن الشباب أصروا على تسميتي "خبير" ، فخجلت ان اخذلهم التقرير لدينا يعتمد على الاستعلام ، وكان لازم اعمل استعلام يكون فيه التوقيت الكامل والجزئي ، فاسهل طريقة خطرت على بالي ان اعمل جدول مؤقت نعبئ بياناته عن طريق الكود ، ثم بقية البيانات عن طريق الاستعلام ، ولكني احاول جهدي دائما في تلافي الجداول المؤقته داخل البرنامج!! اضطررت الى عمل استعلام فرعي ، وبه نحصل على جميع Grade_ar المطلوبة ، مأخوذا في الاعتبار التوقيت الكامل والجزئي ، وعلى اساس هذا الاستعلام ، نرجع لأستعلامنا السابق ، ومع بعض التغييرات في الوحدة النمطية ، ونكون حققنا المطلوب إن شاء الله وهذه النتيجة: رجاء ملاحظة ان السجل الذي به Grade_ar = حارس ، متعاقد بالتوقيت الكامل ، لا يظهر في التقرير، لأنك قلت في آخر مشاركة لك: ففي اعتقادي انه في خطأ في ادخال السجل بالنسبة للحارس ، فعند تعديله ، سيظهر اسمه ان شاء الله هذا معناه: التوقيت الكامل والجزئي يكونان فقط لرتبة عامل مهني من المستوى الاول جعفر 2.2.mdb.zip

انا اعتذر ، ما انتبهت اني اشير الى وحدات نمطية غير موجودة ، فاليك الكود بدونهم: ونعم هي للـ Backup Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_Address = application.currentproject.path & "\Personnel_Images\Personnel_BE.accdb" BK_Address = application.currentproject.path & "\Program\Personnel_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 جعفر

حيا الله ابوالآء هو انتى عامل كود معين في الموقع يتبعني في كل مشاركة وإلا ايه ما فهمت قصدك من السؤال جعفر

أخي علي ، خلينا نمشي على النقاط التالية: 1. اذا كان عندك الاكسس 2007 في اول اصداراته (يعني بدون تحديثات ، وللأسف هذه النسخة موجودة ورأيت الكثير منها ، والكثير من الناس يأخذوها من CD او DVD غير مشروع) ، ففي هذه النسخة ، اذا كنت طلبت من البرنامج: Compact on close ، فالفرصة كبيرة بأن يعمل Corruption لقاعدة البيانات في بعض الكمبيوترات. 2. لهذا السبب يجب عمل التحديثات (Service pack او SP) على الاكسس (لجميع الاصدارات ، لهذا السبب ولأسباب اخرى) ، وهذا الموقع يحتوي على رابط لآخر تحديثات الاوفيس: http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm وهناك العديد من الاشخاص الذين للاسف الشديد لا يقومون بتحديث الـ Windows ولا الاكسس ، لهذا السبب اسمح لي اخبرك ، بأن اول تحديث للاكسس 2000 تم فيه تصليح 200 عيب وثغرة من البرنامج الاصل 3. عند حذف السجلات في الاكسس ، فان الاكسس لا يقوم بحذفها نهائيا من البرنامج ، إلا عندما تقوم بعملية Compact and Repair. مثال: قم بعمل قاعدة بيانات بجدول واحد مثلا ، وادخل فيه آلآف السجلات ، اغلق البرنامج ، لاحظ حجم الملف ، افتح البرنامج ، احذف كم هائل من السجلات ، اغلق البرنامج ، لاحظ حجم الملف ، سترى انه تقريبا نفس الحجم الاصلي ، الآن افتح البرنامج ، اعمل Compact and Repair ، واغلق البرنامج ، لاحظ حجم الملف 4. بالنسبة لي انا ، فمعظم برامجي تحتوي على FE و BE الذي يحتوي على الجداول (في البداية ، البرنامج يكون غير مقسم ، الى ان يأخذ البرنامج شكله وعمله الصحيح ، فعندها اقسمه) ، في FE ، في النموذج الرئيسي ، فاستخدم مثل الكود التالي ، والذي يعمل لي نسخة من BE في مجلد خاص للـ Backup ، كلما يغلق المستخدم برنامجه ، ويكون اسم الملف مختوما باليوم والساعة والدقيقة والثانية ، وطبعا السؤال الذي يسأله الكثيرين هو ، سيصبح لدينا الكم الهائل من هذه الملفات ، وجوابي هو: أ. حجم الهارد ديسك هذه الايام مهول ، فلا مشكلة ، ب. معظم مشاركاتي في النتدى ، اضع بين ايديكم وقائع حصلت لي في العديد من برامجي ، وهذه الطريقة انقذت بعض المؤسسات من مشاكل عويصة ، نظرا لحذف سجلات بالخطأ او .... Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE Call BE_or_FE Call Backup_Folder BE_Address = Replace(BE_Path, "\Personnel_Images", "") & "\Personnel_BE.accdb" BK_Address = Backup_Folder & "\Program\Personnel_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 جعفر

السلام عليكم الاخ علي الاكسس 2007 في اول اصداراته ، كان يعمل Corruption لقاعدة البيانات في بعض الكمبيوترات ، وتحدث هذه الحالة اذا كنت طلبت من البرنامج: Compact on close. لهذا السبب يجب عمل التحديثات على الاكسس ، لهذا السبب ولأسباب اخرى. طريقة عمل Compact ، هو ان الاكسس يعمل قاعدة بيانات مؤقته باسم Database ، وينقل اليها جميع كائنات قاعدة البيانات التي نريد عمل Compact عليها ، وبعد اتمام العملية ، يحذف قاعدة البيانات الاصلية ويغير اسم الملف Database الى اسم قاعدة البيانات الاصلية. فربما تكون محظوظا وتكون بياناتك موجودة في الملف الذي ارفقته سابقا جعفر

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

الملف اللي ارفقته لك فيه جداول ، وحجمه كبير ، انزله وافحصه لوسمحت. جعفر

اخي كريمو يجب وضع هذه الشروط في الكود وفي الاستعلام ، حتى لا تظهر رتبتهم في الاستعلام اصلا جعفر

ان شاء الله خير جعفر

الحمدلله تم اصلاح الملف Database ، اما الآخر فما استطعت عليه سبيل رجاء تغيير صيغة البرنامج المرفق الى 7z بدلا عن zip ، حيث الظاهر ان المنتدى لا يحب صيغة 7z سؤال ، هل الملف الثاني بصيغة accdb ، او بصيغة اخرى؟ جعفر Database_fixed.zip

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