jjafferr

الكود الذي عندك ، المفروض يجمع استعلامين عن طريق Union ، ويجب ان تكون حقول الاستعلامين المتشابهة تحت بعضها ، وانت تستخدم حقول الجدول table1 التاليه ، فرجاء كتابة اسماء الحقول المشابهة لها من الجدول Sales ، Select ID, earia, kind, date, esal_num, quant, acc_nam, acc_num, delev_dest, amount, wrong_acc FROM table1" جعفر

السلام عليكم مراجعة للمطلوب: السؤال الاصل كان بادراج خانه المبلغ وحـ/ الخطأ من جدولtable1 الى جدول sales ،المبلغ من خانة value1_1000 ، حـ/خطأ من خانة accnum2 ولكن الظاهر المطلوب كان هو: عند البحث عن اكثر من رقم فاتورة ، فيمكن ان تكون الفاتورة في الجدولtable1 او الجدول sales ، والمطلوب ان نأتي بسجل هذه الفاتورة من الجدول الصحيح. طيب ، اذا حقل المبلغ وحقل حـ/الخطأ كانوا فاضين ، شو المفروض نعمل؟ جعفر

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

عملت تغيير بسيط على الكود السابق ، واليك المرفق الجديد Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 I_went = "Down" Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 I_went = "Up" Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then If I_went = "UP" Then Me.sfrm_Search.Form.RecordsetClone.MoveNext Else Me.sfrm_Search.Form.RecordsetClone.MovePrevious End If Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر 727.4.الاستاذ جعفر.accdb.zip

تفضل تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 10 ثوان حسب طلبك Private Sub cmd_Open_All_Click() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Application.FollowHyperlink rst!Site PauseTime = 10 ' Set duration in seconds. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub جعفر

حياك الله

تفضل وهذا الكود الذي يقوم بتنفيذ حركة زر السهم الى اعلى والى اسفل: Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 727.4.الاستاذ جعفر.accdb.zip

عفوا ، لم انتبه ان الكود عندك Public فانا وضعته Private استخدم هذا الكود ، بعد ان تم تعديله بإستخدام Public بدلا عن private Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

تفضل رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى: ولكن بإستخدام هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث n2 ، ومنه نأخذ قيمة الحقل Rajmsanf ونعطيها الحقل MYn1 ، حتى يتم تطابق قيم الحقلين ، وعليه يعمل التنسيق الشرطي: ' Dim rst As DAO.Recordset ' Set rst = Me.sfrm_Search.Form.RecordsetClone ' rst.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" ' If rst.NoMatch Then ' Me.sfrm_Search!MYn1 = 0 ' Else ' Me.sfrm_Search!MYn1 = rst!Rajmsanf ' End If ' rst.Close: Set rst = Nothing 'or Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" If Me.sfrm_Search.Form.RecordsetClone.NoMatch Then Me.sfrm_Search!MYn1 = 0 Else Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf End If . والنتيجة . في اعتقادي ان هذا الموضوع اصبح مرجع لتظليل/تلوين السجلات حسب قيمة البحث ، باستخدام التنسيق الشرطي ، واتمنى ان احصل على وقت لكي افرد له موضوع خاص وبشرح مفصل لكل طريقة تم استعمالها (او يقوم احد الاعضاء بهذا العمل مشكورا) جعفر 727.3.الاستاذ جعفر.accdb.zip

السلام عليكم اخي وضاح تفضل هذا المرفق: . جعفر 727.2.الاستاذ جعفر.accdb.zip

جرب هذا السطر بدلا عن الذي عندك Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

السلام عليكم الطريقة الاصح هي حفظ البيانات اولا ، ثم تحديثها في النموذج الآخر ، وخصوصا اذا كنت تدخل البيانات في نموذج فردي if me.dirty then me.dirty=false 'or 'docmd.RunCommand acCmdSaveRecord 'or 'me.refresh 'or 'me.requery Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين . جعفر

السلام عليكم نظرا لأني وجدت الكثير من المواضيع والتي لم تتعامل مع الاستعلام مباشرة ، وانما تم اللجوء الى الكود لعمل الاستعلام ، فقررت ان اواصل هذا المثال ، وللعلم ، فإن الاستعلام الثابت يعمل بطريقة اسرع من استعلام الكود. الطلب كان: 1. عندما نجمع جميع الحقول في حقل واحد (بدون تشكيلة) ، فكيف نستطيع ان نختار من القائمة اسم حقل معين ، ويتم البحث فيه فقط؟ 2. بدون عمل جدول جديد "نجمع جميع الحقول في حقل واحد (بدون تشكيلة)" ، هل نستطيع استعمال الجدول الحالي والذي يحتوي على التشكيلات ، ونبحث بدون تشكيلة؟ 3. البحث المتطابق للحقل (وليس للكلمة)؟ النقطة 1 و 2 ، في الاستعلام ، تم عمل اكواد تصفية ، حسب الطلب في النموذج. في النموذج ، زر "بحث" يستعمل الاستعلام qry_Search والذي يستخدم النوع الاول ، واما زر "بحث مباشر وبدون tbl_txt" ويستعمل الاستعلام qry_Search2 والذي يستخدم النوع الثاني جعفر 643.1.7-5-2017 بحث الفوائد بقائمة منسدلة.accdb.zip

وعليكم السلام حيا الله اخوي سامي هاي سهله ، عند غلق النموذج 2 ، اكتب هاي الكود Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين جعفر

السلام عليكم الاستاذ محمد صالح عمل برنامج مثل الذي عملته انت: جعفر