jjafferr

حياك الله عمل الكود في النموذج والاستعلام فقط اما التقرير ففي المجاميع والفرز وتركت لك اصل الاستعلام والتقرير جعفر

وعليكم السلام أخي أبوعبدالله بالبحث السريع في المنتدى ، وجدت الرابط التالي: http://www.officena.net/ib/topic/13380-ارتباط-أكسس-بالأوفيس-وغيره-من-البرامج/#comment-57644 والذي يحتوي على 3 روابط تخص Registry جعفر

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

حد جاب اسمي تفضل سيدي الكريم بس للعلم ، المنتدى فيه الكثير من الشباب اللي فيهم الخير والبركة غيري جعفر 235.الورشة.accdb.zip

السلام عليكم أستاذ علي بعد ما اخذت غفوة ، لاحظت ان الكود اللي اعطيتك مشابه للكود اللي انت وضعته وبعد البحث ، اتضح اني في التقرير rpt_Absent_Late ، عملت كود علشان اتصيد هذا الخطأ ، ولكني لم افعّله في نهاية التقرير ، بدلا عن: If Err.Number = 1 Then 'Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If اكتب If Err.Number = 13 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If جعفر

ما شاء الله ، 6 مشاركات وانتوا تتكلموا عني ، وانا مافي الدنيا خلوني اجيب بخور اتبخر فيه وشاكر جميل كلماتك أخي ابوعارف جعفر

وعليكم السلام هل نسخة 2013 هي 64 بت ، بينما نسخة 2007 كانت 32 بت؟ وماهي رسالة الخطأ ، انت لم تعرضها لنا؟ جعفر

وسبقني أخي رمهان للخير . التنسيق عندي هو: "MR"000000 والنتيجة: جعفر 234.قاعدة البيانات1.accdb.zip

وعليكم السلام تفضل: SELECT Format(['Date],"mmm-yyyy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); جعفر

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

أخوي عبدالله إحساسي يحسسني بأن فيه شئ آخر تريد تعمله بعدما تحل موضوع نقل البيانات للاكسل شو الخطوة التالية اللي تريد تعملها؟ هل تريد حفظ ملف الاكسل باسم معين؟ هل تريد ان تطبع البيانات او ايش الخطوة اللي تريد تعملها بعد حفظ البيانات في الاكسل؟ لو تعطينا تفصيل اكثر ، ممكن نعطيك جواب متكامل اكثر جعفر

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

وعليكم السلام . نعم ممكن رحم الله والديك ، سهلت علي المشوار ، فبدل ان اشتغل واضبط نموذجك ، انت ريحتني وستقوم بالعمل بدلي المنتدى مليان بمواضيع مماثلة ، وانا راح ارفق لك رابطين: 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