jjafferr

وعليكم السلام اولا والملاحظة سهلين بس كود ثانيا ، شو عمله بالضبط ، حتى اعرف شو يسوي ، وعلى اساسه اعرف مكانه من الاعراب جعفر

وعليكم السلام . نعم ممكن رحم الله والديك ، سهلت علي المشوار ، فبدل ان اشتغل واضبط نموذجك ، انت ريحتني وستقوم بالعمل بدلي المنتدى مليان بمواضيع مماثلة ، وانا راح ارفق لك رابطين: http://www.officena.net/ib/topic/41365-اضافة-صورة-طالب-في-نموذج-في-برنامج-اكسس/#comment-233973 http://www.officena.net/ib/topic/32307-تحميل-صورة-الشخص-لكل-سجل/#comment-165675 جعفر

تفضل جعفر 231.الرصيد.accdb.zip

انزل البرنامج المجاني من هذا الرابط http://www.7-zip.org/ ثم اضغط البرنامج بصيغة 7z ، وعندما يكون الحجم مناسب ، تستطيع ان: إما ان ترفعه في رابط خارجي ، ثم ترفق الرابط هنا ، او ان تغير اسم الملف وتغير صيغته الى zip بدلا عن 7z ، ثم تستطيع ان ترفقه في مشاركتك في هذا المنتدى وتخبرنا بصيغة المرفق جعفر

هذا معناة انت تريد الاختيار رقم 2 ان شاء الله ، عطني الى الليلة وان شاء الله ارد عليك جعفر

وعليكم السلام أخي كرار انا لم ادخل البيانات ولا لعبت فيها ، استعلامك raseed يؤكد ان عندك ادخالين ادخل معلومات جديدة ، وشوف النتيجة جعفر

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

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

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

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

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

تفضل يا سيدي الجزء الاول يعتمد على هذا الكود لتفكيك نص الباركود عند علامة + : 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 جعفر

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