jjafferr

وعليكم السلام أستاذ علي ولا تُسدي الكلمات حقكم في تعليمكم اجيالاً جعفر

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

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

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

تفضل يا سيدي الجزء الاول يعتمد على هذا الكود لتفكيك نص الباركود عند علامة + : Private Sub barcode_LostFocus() 'only split is nfous is empty If Len(Me.nfous & "") <> 0 Then Exit Sub Dim x() As String x = Split(Me.barcode, "+") Me.nfous = DLookup("[NoufousName]", "NoufousTable", "[Field1]='" & x(0) & "'") Me.[0000] = x(1) Me.[00] = x(2) Me.[00000] = x(3) Me.[0] = x(4) End Sub . اما بالنسبة للجزء الثاني ، فرجاء عمل نسخة منه ، وحذف جميع البيانات ، وابقاء بيانات قليلة تخدم المطلوب ، وبعدها تخبرني عن اي حقل من البرنامج الاول له علاقة بالبرنامج الثاني ، واعطني مثال استطيع ان اقتدي به ، لوسمحت جعفر 229.1.db barcode new.mdb.zip

وعليكم السلام أستاذ علي عذرا على التأخر في الرد ، كنت في ابوظبي من يوم الاثنين ، وبعيد عن كمبيوتري هذا هو التقرير: . وعلشان يعمل ، فيجب النقر على الزر الجديد لطباعة التقرير: . وهذا الزر يستعمل الكود التالي: Private Sub cmd_rpt_Absent_Late_Click() If Len(Me.cmb_Month & "") = 0 Then MsgBox "Can't leave the Month Empty" Exit Sub ElseIf Len(Me.Grades & "") = 0 Then MsgBox "Can't leave the Grades Empty" Exit Sub ElseIf Len(Me.Sections & "") = 0 Then MsgBox "Can't leave the Sections Empty" Exit Sub End If 'Delete the data from MySQL = "Delete * From tbl_Absent_Late" CurrentDb.Execute (MySQL) DoCmd.SetWarnings fasle 'DoCmd.OpenQuery "Absents_Crosstab_1-3" DoCmd.OpenQuery "Absents_Crosstab_2-3" DoCmd.OpenQuery "Absents_Crosstab_3-3" 'DoCmd.OpenQuery "Late_Crosstab_1-3" DoCmd.OpenQuery "Late_Crosstab_2-3" DoCmd.OpenQuery "Late_Crosstab_3-3" DoCmd.SetWarnings True DoCmd.OpenReport "rpt_Absent_Late", acViewPreview End Sub جعفر 221.Folow up V.2.accdb.zip

تفضل يا سيدي 226.Edf.mdb.zip

أخي طارق . انا آسف ، لم افهم قصدك اعطني مثال لكي اهتدي به لوسمحت ، مثلا ، ماذا تريدني ان اعمل بالمعلومة A1+2000+00+00101+B اخبرني بالتفصيل لوسمحت ، بالقيم واسماء الحقول. . آسف لم افهم المطلوب ابدا ولكن وبشكل عام ، نعم نستطيع ان نربط قواعد البيانات ببعض ، واجراء اي عمل عليها جعفر

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

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

وعليكم السلام ورحمة الله وبركاته حيا الله أبوخليل وانا اقول وين أخونا العود ، بس قلت الغايب عذره معاه اثاريك مشغول تبرمج الطرق اللي بقولها ، ما تحمي الصورة الخارجية ، وانما تعطيك الطريقة للتأكد من أن الصورة لم تتغير ، يعني في قاعدة البيانات نحتفظ بمعلومات الصورة الخارجية ، وعند تشغيل قاعدة البيانات ، نقرأ بيانات الصورة الخارجية ونقارنها مع بياناتنا. الرابط التالي فيه الطريقة الاسهل ببيانات اقل: https://technet.microsoft.com/en-us/library/ee176615.aspx والرابط التالي فيه برنامج اكسس ، بس البيانات اللي تحصل عليها مهولة: http://www.everythingaccess.com/tutorials.asp?ID=Accessing-detailed-file-information-provided-by-the-Operating-System وبرنامج بتغييرات على البرنامج اعلاه: http://www.accessmvp.com/strive4peace/DB_ListFiles.htm جعفر

وعليكم السلام تفضل جعفر db barcode new.zip

ممتاز بس ياريت تخبرنا اي الحلول استخدمت جعفر

بس هذا التعبير ما له علاقة بالكود !! جرب احذفه ، وشوف إذا الرسالة تظهر لك أو لا جعفر

على نقر الزر ، اعمل هذا الكود Me.allowadditions=true DoCmd.GoToRecord , ,acNew او مثل إقتراح الأخ husamwahab جعفر

حياك الله ومعلومات المتأخرين وين احصلها؟ جعفر

هي والله ، تفضل بس عملتها بالطريقة السهلة (مب الطريقة الافضل) جعفر 226.Edf.mdb.zip

أخي إسلام الموضوع كان عن: بينما ردك كان لإنشاء سجل جديد!! جعفر

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

وعليكم السلام الامر هو: DoCmd.GoToRecord , , acLast ويعمل على جميع اصدارات الاكسس جعفر

وعليكم السلام في خصائص النموذج ، اجعل: Allow Additions = No جعفر

وعليكم السلام أخي عبدالله الظاهر من الرسالة انك تشتغل على الاوفيس 64 بت ، فياريت تلقي نظرة على الرابط التالي: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر

السلام عليكم ورحمة الله وبركاته من المعروف ان الاوفيس يأتي بصيغة 32 بت وصيغة 64 بت ، ونظام التشغيل وندوز كذلك يأتي بصيغة 32 بت و 64 بت ، وقد يختلط الأمر على بعض الاشخاص فيعتقدون بأنه يجب تنصيب الاوفيس 64 بت على الوندوز 64 بت ، بينما في واقع الامر ، فإن مايكروسوفت توصي بإستخدام الاوفيس 32 بت على جميع نظم التشغيل ، الرابط التالي من مايكروسوفت يوضح هذا: https://technet.microsoft.com/en-us/library/ee681792.aspx وهناك حالات خاصة لتنصيب الاوفيس 64 بت (كذلك المعلومة موجودة في الرابط اعلاه) ، وهذه الحلات لا تنطبق على الاكسس. ومن المعروف انه اذا كان لديك الاوفيس 64 بت ، فإن معظم البرامج السابقة والتي تحتوي على دالة API المحتوية على 32 بت ، فإن البرنامج لن يشتغل وسيعطيك أخطاء لذلك ، وكما يقول المثل: الباب اللي يجيك منه ريح ، سده واستريح فاذا عندك اوفيس 64 بت على جهازك ، فآن الاوان ان تمسح/تلغي تنصيبه ، وتنصب اوفيس 32 بت ---------------------------------------------------------------------------------------------------------------- تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر