اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

jjafferr

أوفيسنا
  • Content count

    3,767
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    110

jjafferr last won the day on September 24

jjafferr had the most liked content!

السمعه بالموقع

2,505 Excellent

عن العضو jjafferr

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    -

اخر الزوار

4,393 زياره للملف الشخصي
  1. وعليكم السلام اخي عمر هذا البرنامج اصبح الآن من الاولويات ، وان شاء الله ابدا العمل عليه قريبا جعفر
  2. ادارج الاصناف بالفاتوره

    تفضل 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
  3. ادارج الاصناف بالفاتوره

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

    لوسمحت تجرب هذا بدلا عن السطر الذي فيه مشكلة ، على الكمبيوترات اللي عليها الاكسس 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بت ، لهذا السبب يجب ان نستخدم هذا الامر جعفر
  5. الكود الذي عندك ، المفروض يجمع استعلامين عن طريق Union ، ويجب ان تكون حقول الاستعلامين المتشابهة تحت بعضها ، وانت تستخدم حقول الجدول table1 التاليه ، فرجاء كتابة اسماء الحقول المشابهة لها من الجدول Sales ، Select ID, earia, kind, date, esal_num, quant, acc_nam, acc_num, delev_dest, amount, wrong_acc FROM table1" جعفر
  6. السلام عليكم مراجعة للمطلوب: السؤال الاصل كان بادراج خانه المبلغ وحـ/ الخطأ من جدولtable1 الى جدول sales ،المبلغ من خانة value1_1000 ، حـ/خطأ من خانة accnum2 ولكن الظاهر المطلوب كان هو: عند البحث عن اكثر من رقم فاتورة ، فيمكن ان تكون الفاتورة في الجدولtable1 او الجدول sales ، والمطلوب ان نأتي بسجل هذه الفاتورة من الجدول الصحيح. طيب ، اذا حقل المبلغ وحقل حـ/الخطأ كانوا فاضين ، شو المفروض نعمل؟ جعفر
  7. وعليكم السلام أختي ، لما تشوفين نفسك تضطرين الى عمل مجموعة خطوات لعمل معين ، فمعناه ممكن يكون فيه طريقة اخرى اسهل للقيام باللي تريديه فلازم تعرضين علينا الصورة الكاملة للعمل (وليست الجزئية الصغيرة التي شرحتيها بأعلاه) ، وطبعا المرفق يساعد كثيرا جعفر
  8. عملت تغيير بسيط على الكود السابق ، واليك المرفق الجديد 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
  9. تفضل تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 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 جعفر
  10. تفضل وهذا الكود الذي يقوم بتنفيذ حركة زر السهم الى اعلى والى اسفل: 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
  11. مشكلة عند إخفاء شاشة الأكسس

    عفوا ، لم انتبه ان الكود عندك Public فانا وضعته Private استخدم هذا الكود ، بعد ان تم تعديله بإستخدام Public بدلا عن private Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر
  12. تفضل رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى: ولكن بإستخدام هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث 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
  13. السلام عليكم اخي وضاح تفضل هذا المرفق: . جعفر 727.2.الاستاذ جعفر.accdb.zip
  14. مشكلة عند إخفاء شاشة الأكسس

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