jjafferr

اما الجزء الاخير من السؤال وهو عرض التقرير بالشكل الذي تفضلت به ، فممكن عمله ، وبما ان البيانات التي عندك في اكثر من جدول ، فيجب عليك عمل استعلام تجميعي Union Query لدمج بيانات هذه الجداول في استعلام واحد (تذكر لما اخبرتك باستعمال جدول واحد لجميع الايام ، فهذا سيسهل العمل في هذه الخطوة ، مثلا) ، فالجدول tbl_LessonAbsent فيه جميع الحقول المطلوبة ، فما عليك الا ان تعمل تقرير منه ، وبديكور قليل ، فيصبح مثل الصورة التى ارفقتها جعفر

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

السلام عليكم هذا الموضوع من سنة 2006 ، فآخر زيارة لصاحب الموضوع في المنتدى كان في 8/9/2012 ، لذلك لا نتوقع عمل اي تحديث لرابطه الذي لا يعمل. الموضوع يُغلق. جعفر

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

1. ما دام الجدول عندك جاهز , فرجاء ارفاقه ، والا سأضطر انا لعمل الجدول 2. اللي افهمه من شرحك هو: السعر 1.2 + 6. = 1.8 وليس 2.5 !! معلش ، اخذ من وقتك اكثر شوي واشرح بمثال عن كيف تريد ان تكون النتيجة النهائية جعفر

طيب ممكن توضيح السؤال بطريقة مفصلة اكثر ، ومثال من واقع برنامجك ، ويا ريت صورة كذلك!! جعفر

وعليكم السلام السؤال غير واضح ، فلوسمحت تعطي توضيح اكثر. جعفر

وعليكم السلام اخي محمد 1. اذا اردت استعمال الكود الذي ذكرته انت ، فيجب تغير ترتيب اسطر الكود كالتالي: DoCmd.OpenForm "اسم النموذج", , , "[id]=" & Me![ID] DoCmd.Close acForm, "Search" لأنك اذ اغلقت النموذج Search قبل فتح النموذج الثاني ، فكيف ستحصل على قيمة ID من نموذج مغلق وعليه ، فيجب عليك ذكر اسم النموذج الذي تريد اغلاقة (بعد فتح النموذج الثاني) ، لأنه عندك الان نموذجين مفتوحين ، وبدون ذكر اسم النموذج ، فان الكود سيغلق النموذج الذي في المقدمة /الواجهة ، وهو النموذج الذي فتحته الآن ، يعني فتحته واغلقته 2. استعمال طريقتك التي ذكرتها ، هي نتيجة ان نموذج البحث منبثق ، لذلك وجب عليك فتح النموذج الثاني وغلق نموذج البحث ، اما انا ، فنادرا استخدم نموذج منبثق ، لذلك ، لا داعي لأغلاق نموذج البحث ، حيث ان النموذج الثاني سيملئ الشاشة ويغطي على نموذج البحث طبعا الكل عنده اسبابه في عمل النماذج مثل ما يتناسب مع برنامجه ، ولكن وللأسف الشديد ، اصبح موضوع النماذج والتقارير المنبثقة شبه عادة يستعملها الكثيرون ، ومعظمهم يستخدم هذ الطرق حتى يعطي لبرنامجه جمالا ، او حتى لا يُشعر المستخدم انه يستخدم اكسس هنا تُرجح الخبرة وفي الواقع اذا حصل لي ربكة في كود معين ، فانا ابحث عن كود سابق عملته ، او حتى اطلب من اكسس ان يُريني مثال اقتدي به جعفر

وعليكم السلام تماشيا مع شرح الموضوع السابق: زاليك الطريقة لسؤالك: . . جعفر

وعليكم السلام احذف السطر الاول في الكود ، استخدم السطر الثاني: 'DoCmd.OpenForm "full", , , " =[filenumber]" & Me.filenumber DoCmd.OpenForm "full", , , "[filenumber]=" & Me.filenumber جعفر

تم اضافة المرفق الى مشاركتي السابقة جعفر

وعليكم السلام احفظ هذه الوحدة النمطية: Option Compare Database Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias _ "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long '~~> Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) '~~> Class name of the Inputbox If Left$(strClassName, RetVal) = "#32770" Then '~~> This changes the edit control so that it display the password character *. '~~> You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If '~~> This line will ensure that any other hooks that may be in place are '~~> called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function ثم استدعها من نموذجك هكذا: intinput = InputBoxDK("فضلاً ادخل الرقم السري", "دخول") جعفر وتفضل المرفق بعد اضافة الكود فيه 456.حماية نموذج.mdb.zip

وعليكم السلام شوف هالرابطين ، فقد تستفيد منهم: و جعفر

وعليكم السلام استاذنا الجليل عبدالعزيز كانت عندك معادلة Dsum هنا: . فتم نسخها وتعديل المتغير [Name] الى نموذجك المطلوب فيه التغيير ، ولكن ولأنه حقل محسوب تتغير قيمته طول الوقت ، فإجعله غير مضمن ، ولا تحفظ قيمته في الجدول: . والنتيجة . جعفر 453.Aziz.accdb.zip

مع الاعتذار لك أخي عبدالله ، هذا الموضوع سوف يُغلق ، لأنه مكرر: جعفر

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

وعليكم السلام اليك الاجابة بالصور ، ويمكنك التعديل كما تشاء . . . . جعفر 454.معرفة المكرر من البيانات.accdb.zip

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

وعليكم السلام اليك الاجابة بالصور . . . . . . . . جعفر 452.ترتيب سجلات التقرير نفس ترتيب سجلات النموذج الفرعي.mdb.zip

السلام عليكم اخي BFS 1. تم نقل سؤالك كموضوع مستقل في قسم الاكسس (كما اشار عليك الاخ محمد ايمن ، شكرا اخي محمد) ، هنا https://www.officena.net/ib/topic/73627-بحث-بالحرف-الابجدى/ 2. قوانين المنتدى لا تسمح بوضع اكثر موضوع لنفس السؤال. جعفر

السلام عليكم تم نقل السؤال هنا كموضوع مستقل جعفر

وعليكم السلام احنا لما نسمع واحد يتأوه ، نقول له: بسم الله عليك حياك الله جعفر

وعليكم السلام أخي محمد ، وكان لكم وحشة جعفر

تفضل وهذا الكود يضيف لك السجل الجديد: Private Sub cmd_Add_Record_to_SubForm_Click() Forms!frm_Q1!sub_swet.SetFocus DoCmd.GoToRecord , , acNewRec End Sub جعفر 451.مثال.accdb.zip

وعليكم السلام هذه امثلة عن الطريقة: http://arabteam2000-forum.com/index.php?/topic/282771-استيراد-البيانات-من-صفحة-ويب/ و http://arabteam2000-forum.com/index.php?/topic/243087-استيراد-البيانات-من-النت-إلى-قاعدة-أكسس/ وطبعا لازم تشمر عن ساعديك وتدخل فيها بالمليان جعفر