jjafferr

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

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

وعليكم السلام اخي محمد 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-استيراد-البيانات-من-النت-إلى-قاعدة-أكسس/ وطبعا لازم تشمر عن ساعديك وتدخل فيها بالمليان جعفر

وتفضل هذا نموذج جاهز ، فما عليك الا: 1- تعبئة البيانات المطلوبة ، من اسم الجدول او الاستعلام ، ومكان الحفظ ، وصيغة الحفظ ، ووو او 2- تستخدم دالة كود النموذج ، وترسل المطلوب عن طريق الكود اليها (انا لم اشر الى هذا في الموضوع السابق) ، وهذا الكود من البرنامج المرفق: هذه بعض المتغيرات ، والمتغيرات الباقية مأخوذة مباشرة من النموذج i_strSql = "Select * From " & Me.cmb_TQ_Name i_strWorkSheet = Nz(Me.cmb_Sheet_Name, "") i_strCellRef = Nz(Me.cmb_Upper_Left_cell, "") i_strSaveAs = Nz(Me.cmb_SaveFormat, "") وهكذا تستطيع ان تنادي الدالة ، فتقوم بالعمل بدل من استخدام النموذج Call CopyRs2Sheet(i_strSql, i_strWorkBook, _ i_strWorkSheet, _ i_strCellRef, _ i_strSaveAs, _ Me.frm_Auto_Fit, _ Me.frm_Delete_Exisiting_File, _ Me.Open_The_File_on_Completion) جعفر

وهذه مشاركة مع اخي شفان اذا اردت اسماء الحقول تظهر في اعلى اعمدة الاكسل DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", True وبدون اسماء الحقول DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", False جعفر

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

تفضل جرب هذا الكود myCriteria = "[نوع الكتاب]='aa'" myCriteria = myCriteria & " And Year([حقل التاريخ])=" & Year(date()) a = DMax("[حقل رقم الوارد]", "Tbl_Main", myCriteria) جعفر

السلام عليكم الرابط التالي يعطيك مثال في كيفية عمل اكثر من شرط للدالة Dlookup والتي تستطيع استخدام الدالة Dmax بدلا عنها في المثال: جعفر