jjafferr

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

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

وعليكم السلام اخي عمر هذا البرنامج اصبح الآن من الاولويات ، وان شاء الله ابدا العمل عليه قريبا جعفر

تفضل 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 Case vbKeyReturn Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'" DoCmd.OpenForm "ادارج بفاتوره المبيعات" Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih Me.sfrm_Search.Form.RecordsetClone.Delete 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 جعفر 737.215.accdb.zip

وعليكم السلام قصدك بنموذج frm_Search ؟ مع العلم ، بأن النموذج " ادراج بفاتوره مبيعات" لا يمكنه اخذ اكثر من سجل واحد ، وذلك لأنه غير مضمن (ليس مرتبط بجدول). جعفر

لوسمحت تجرب هذا بدلا عن السطر الذي فيه مشكلة ، على الكمبيوترات اللي عليها الاكسس 32بت و 64بت: #If VBA7 Then Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #ElseIf Win64 Then 'need datatype LongPtr Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr #Else '32-bit Office Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #End If او #If VBA7 Then Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #ElseIf Win64 Then 'need datatype LongPtr Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr #Else '32-bit Office Public Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #End If او Public Declare PtrSafe Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long او Public Declare PtrSafe Function ShowWindow Lib "user32" ( _ ByVal hWnd As LongPtr, _ ByVal nCmdShow As Long _ ) As BooleanPrivate Declare PtrSafe Function ShowWindow Lib "user32" ( _ ByVal hWnd As LongPtr, _ ByVal nCmdShow As Long _ ) As Boolean . أخي أوس ، لأن نسخة الاكسس عند الفارس المصري 64بت ، لهذا السبب يجب ان نستخدم هذا الامر جعفر

الكود الذي عندك ، المفروض يجمع استعلامين عن طريق 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 ثم كود اغلاق النموذج رقم اثنين جعفر

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

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

شكرا أخي ابو زاهر على الملاحظة وشكرا اخي حيدر على اتخاذ اللازم ولما اخلص اللي في يدي ، اعود لموضوعك أخي وضاح جعفر

تفضل برنامج اخي صالح ، تم رفعه بعد ضغطه كما طلبت جعفر تحت انشاء.zip

وعليكم السلام مثلا اسم الزر الاول cmd_1 ، واسماء الازرار الاخرى cmd_2 و cmd_3 ، على حدث النقر على الزر cmd_1 ، ضع هذا الكود cmd_2.Enabled = Not cmd_2.Enabled cmd_3.Enabled = Not cmd_3.Enabled جعفر