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

نجوم المشاركات

  1. Khalid Jnb

    Khalid Jnb

    الخبراء


    • نقاط

      13

    • Posts

      774


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      10

    • Posts

      8,723


  3. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      10

    • Posts

      3,240


  4. أبو عبدالله الحلوانى

Popular Content

Showing content with the highest reputation on 18 ينا, 2020 in all areas

  1. تأكد من اسم المربع النصي اللي فيھا قيمة حقل price_masrof ھل اسمە نفسە ، لان الاكواد مضبوطة وما بھا شيء
    3 points
  2. ولم حذفته اخى لعلنا لم نراه من قبل فنستفيد منه باى معلومه وارجو منادتى باخى فلا تناسبنى استاذ فاننى طالب علم واحاول ان اتعلم من اسئلتكم ومشاركتكم وجزاكم الله خيرا بالسماح لى على مشاركتكم المحاوله معكم وتمنياتى لكم وللجميع بالتوفيق ارجو منك وضعه وجزاك الله خيرا تقبل تحياتى
    3 points
  3. جرب هذا ووافنا بالنتائج يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود Photo.rar
    3 points
  4. ممكن نجربة هذا الكود اذا لم يكن هناك صفحة بأي اسم يقوم الماكرو باضافة صفحة جديدة بهذا الاسم و ينقل البيانات اليها Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub الملف مرفق tarhil_by_names.xlsm
    3 points
  5. جرب هذا الماكرو ( اذا كان هناك تكرار تصدر رسالة بمكان التكرار و يقوم الماكرو بمسح ما كتبته) Option Explicit Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim x%, First As Range, y%, My_address$ Application.EnableEvents = False If Not Intersect(sh.Columns(1), Target) Is Nothing Then Set First = Cells(Target.Row, 1) y = Application.CountIf(ActiveSheet.Columns(1), First) If y > 1 Then MsgBox "Error!" & Chr(10) & "This Record is Allready Exits in" & Chr(10) & _ ActiveSheet.Name Target = vbNullString GoTo Exit_me End If For Each sh In Sheets If sh.Name = ActiveSheet.Name Then GoTo My_next: x = Application.CountIf(sh.Columns(1), First) If x > 0 Then My_address = sh.Columns(1).Find(First, lookat:=1).Address MsgBox "Error!" & Chr(10) & "This Record Is Already Exits in" & Chr(10) & _ sh.Name & ":" & My_address Target = vbNullString GoTo Exit_me End If My_next: Next End If Exit_me: Application.EnableEvents = True End Sub الملف مرفق No Repeat In All Sheets.xlsm
    3 points
  6. انظر المرفق ..... لسرعة الاجابة حاولت تعديل حقول الجدول لديك .... Database1.mdb
    2 points
  7. شكرا لك والحمدللە خلصت من المشكلة
    2 points
  8. وعليكم السلام و رحمة الله و بركاته لان نموذجين الفرعي و رئيسي مربوطين بعلاقة عمودين id و Title احذف علاقة Title و تنحل المشكلة بإذن الله
    2 points
  9. شكرا استاذ خالد على المداخلة في الاكسس نتاعمل مع النماذج والتقارير كشكل الظاھري والجداول والاستعلامات و الماكرو والاكواد نتعاملە بشكل خلفي من شان جمالية البرامج واسف ما نظرت للاسم المشتركين
    2 points
  10. هههه ... طيب الحمد لله رب العالمين
    2 points
  11. لقد عرفت اين الخطا الدالة هذه صحيحة .. ولكن اتضح ان المشكلة ان النموذج مغلق الاضافة والتعديل وعندما عدلتهم نجحت الطريقة =Nz(Sum([price_masrof]);0) جزاكم الله خيرا جميعا وبارك الله فيكم
    2 points
  12. السلام عليكم بعد اذن الاساتذه الكرام ممكن تعمل اخقاء للنموذج عند فتح الجدول بالكود التالي DoCmd.OpenTable "Table1", acViewNormal DoCmd.OpenForm "FORM1", , , , , acHidden
    2 points
  13. السلام عليكم "...";Iif( isnull([Price_masrof]);0) لعل هذا ما تحتاج. أعتذر لعدم تنسيق الأمر كوني أكتب من الهاتف الجوال.
    2 points
  14. ادخل دالة Nz في تلك العمليات
    2 points
  15. اخي العزيز هذه الدالة تعمل لدي بصورة صحيحة 100% 1- هل جربت ان تجعل القيمة الافتراضية للحقل = صفر 2- جرب الدالة iif isnull ارفق مثال لو احبب لكي نرى المشكلة تحياتي
    2 points
  16. نعم ممكن ، لكن لماذا تريد فتح الجدول ؟ لماذا لا تعمل نموذج اخر على ذلك الجول وتفتحە ؟ اتفضل اليك كود لفتحە Docmd.openTable “NameTable”,acViewNormal
    2 points
  17. السلام عليكم انظر هل هذه النتيجة مرضية لك ووافنا بالنتائج تمنياتي بالتوفيق ادارة محل1.rar ملاحظة هامة صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات (وليس + مرتجع المبيعات) فالكمية التي قام العملاء بارجاعها الينا يجب خصمها وليس اضافتها الي المبيعات وكذلك بالنسبة للمشتريات
    2 points
  18. تفضل اخي العزيز ملف لاحد الاخوة في الموقع اتمنى ان يكون المطلوب Access Import_ up.rar
    2 points
  19. العامود D اجعله فارغاً من كل شيء نفذذ هذا الماكرو Sub tarheel22() Dim myrange1 As Range Set myrange1 = Sheets("Sheet1").Range("E3:G4") Sheets("Sheet1").Range("a3").CurrentRegion.Clear Sheets("Mydata").Range("A3:C500").AdvancedFilter _ xlFilterCopy, myrange1, Sheets("Sheet1").[a3] End Sub الملف مرفق Salim_222.xlsb
    2 points
  20. الله المستعان اخي الكريم اشكرك على ردودك السريعه والله يعطيك الف عافيه
    1 point
  21. واياكم اخى الفاضل فلم اقم بشىء يذكر والشكر لله ثم لاخواننا واساتذتنا الافاضل بارك الله فيهم بالنسبه للمراجعه فى نهايه الدوام وبعد مراجعه العميل والاتفاق يمكن عمل تعديل على السند بدل الحذف ويتم التعديل من قبل المراجع وليس مدخل البيان ويكون فى خانه للملاحظات ويتم كتابه جميع التعديلات التى تمت للايضاح وطباعه نسخ اخرى للحفظ والعميل وحتى بدون اظهار الملاحظات فيها هذا راى والافضل اذا كان ولابد من الحذف فلا يتم الحذ فعليا وانما يمكن ذياده نوع اخر فى نوع الحركه ملغى ولا يتم اظهاره لمدخل البيانات والمراجع يقوم بعمل الغاء لهذا السند و تعديل نوع الحركه لملغى مع تصفير القيم وتفريغ البيانات النصيه واضافه الملاحظات كذلك وارى ان الالغاء افضل والامر عائد لك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق اجعلها بموضوع منفرد على ما اعتقد يمكن سحب البيانات آليا راجع الموضوع المثبت لاخى واستاذى الفاضل @صالح حمادي وان شاء الله تجد ما تريد بالتوفيق
    1 point
  22. السلام عليكم ورحمة الله استخدم الكود التالى بعد وضعه فى حدث ThisWorkBook دبل كليك على الخلية A1 فى كل مرة Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo 1: For i = 1 To Sheets.Count If ActiveSheet.CodeName = Sheets(i).CodeName Then Sheets(i + 1).Activate Exit For End If Next 1: Exit Sub End Sub
    1 point
  23. اخى الفاضل امير كيف يتم حذف رقم 2 وتمت عليه نفس العمليات والعملاء معهم نسخ مطبوعه الحذف يتم للسجل الحالى واللذى تم الترجع عن تنفيذه اما ما تم فلا والله اعلى واعلم اما بالنسبه لداله DMax فكما تتقول معى 1,3,4 فهنا الداله ستاخذ اعلى رقم وهو 4 وتضيف 1 سيكون السند رقم 5 هنا لم نقم بعمليه اعاده الترقيم بتاتا وجرب احذف السجل رقم 1 بالمثال المعدل من الجدول ثم افتح النموذج وشوف ماذا سيعطيك هل سيعطيق رقم 1 ام 3 وقد قمت بالتجربه قبل رفع مشاركتى هذه والله اعلى واعلم وفى انتظار مشاركه اخوانى واساتذتنا الافاضل للمزيد من المعلومات والايضاح تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  24. اخي مهند لا شيء مستحيل مع برنامج اكسل هذه المعادلة في C5 واسحب نزولاً (يمكن تغير الرقم 7 الى ما تريد والنقطة الى ما تريد ايضاً مثلا * داخل الدالة REPT) =REPT(".",7)&VLOOKUP($I$1,ورقة1!$B$6:$E$27,ROWS($C$5:C5)+1,0)&REPT(".",7) الملف مرفق New_Book.xlsx
    1 point
  25. وعليكم السلام اخى الفاضل امير سؤال واحد فى كل موضوع حفاظا على قوانين الموقع بالنسبه للسؤال الاول تم ظبط رقم السند تلقائى على قد ما عرفت عند الفتح وعند الاضافه عند الخروج ونوع الحركه خالى يتم حذف رقم السند الموجود بالنموذج لانه لم يتم حفظه لاعاده استخدامه مره اخرى اعذرنى لم افهم ماذا تقصد بحجز ارقام وحذف ارقام محجوزه احاول ما استطعت المساعده بما لدى من معرفه وما تعلمته من اخوانى واساتذتى جزاهم الله كل خير شوف المرفق ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق boox.rar
    1 point
  26. السلام عليكم ورحمةالله وبركاته احتاج برنامج خاص للمدرسة
    1 point
  27. جرب هذا IIf(IsError(Sum([price_masrof];0)
    1 point
  28. تفضل أخي Shell "mspaint.exe " & CurrentProject.Path & "\worker\" & [Worker] & ".jpg""", vbMaximizedFocus
    1 point
  29. الحمدلله الذى بنعمته تتم الصالحات والشكر لله سبحانه وتعالى ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم سوف امر على الموضوع الاخر باذن الله بالتوفيق ان شاء الله
    1 point
  30. نعم أخي صدقت وصدق أستاذنا ومعلمنا أبوخليل قمت بالتعديل علي مرفق الأخ السائل وفقا لمراده رغم تحفظي علي طريقة العمل لعل لديه وجهة نظر لا نعلمها أما عن المرتجعات فبلغة المحاسبين هي قيد عكسي لعملية البيع أو الشراء بمعني: حساب المبيعات دائن بطبيعته (دائما يكون في الجانب الدائن) - فإن المرتجع المتعلق بالمبيعات لا بد أن يكون مدين وكذلك حساب المشتريات مدين بطبيعته (دائما يكون في الجانب المدين) - لذا لا بد أن تكون مرتجع المشتريات دائن وبلغة الأرقام فإن المعادلة لصافي المبيعات وصافي المشتريات تكون كالتالي: صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات صافي المشتريات = اجمالي المشتريات - مرتجع المشتريات وهنا صورة لنموذج حـ/ المتاجرة الذي يوضح الفكرة بالأعلي
    1 point
  31. اخي العزيز استخرج مثال من برنامجك ( نموذج واحد فقط) يمكن التعديل عليه تحياتي
    1 point
  32. لا استطيع البرنامج كبير جدا
    1 point
  33. اخي العزيز يمكن لديك مشكله ارفق مثال يكون افضل للتصحيح تحياتي nullzero.rar
    1 point
  34. للاسف لا اعرف اين الخطأ وايضا لم تفلح والحقل فارغ ولا يعطى صفر =IIf(sum([price_masrof] is null;0;Sum([price_masrof]))
    1 point
  35. اخي العزيز محمد سلامة انطر لدالة IIF بالصورة تحياتي
    1 point
  36. اخي العزيز الدوال ليس بها مشكلة دالة NZ وهي اختصاراً لكلمتي : NULL TO Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ وتحوياها الى صفر
    1 point
  37. اشكرك استاذ خالد نعم جربت ان اجعل القيمة الافتراضية صفر ولا تعطى اي شئ بالحقل وجربت ايضا = iif IsNull(Sum([price_masrof];0) ولكنها تعطى ان ناقص اقواص
    1 point
  38. اذا كنت تريد الاستيراد يتم من خلال الأكواد فلابد من اتباع الخطوتين الأوليين بالمشاركة السابقة ثم استخدم الكود التالي DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel12, _ ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود "StUpdatInfo", _ ' هنا تحدد اسم الجدول المراد الاستيراد اليه Me.txtPath, _ 'هنا تحدد مسار ملف الاكسل المراد استيراده True, _ 'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا "A1:Z10000" 'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها ولا تنسي الخطوتين الأوليين تمنياتي بالتوفيق
    1 point
  39. اخوانى الافاضل تعلمت من شيخنا الجليل / @ابوخليل ان المرتجعات ( ويلزم ان نحدد انها مرتجعات بيع ) تعتبر بمثابة مشتريات اى انها تضاف الى المشتريات وكانها شراء جديد ولذلك اعتقد انها تضاف الى المشتريات وليست المبيعات ، ممكن اكون مخطئ فلست بمتخصص بالمحاسبة وان مرتجعات الشراء تعتبر بمثابة مبيعات اى انها تطرح من المبيعات وكانها بيع جديد لذلك اعتقدت ان الموضوع يحتاج الى متخصصين محاسبة حتى تعم الفائدة
    1 point
  40. السلام عليكم هناك عدة طرق لتحقيق ما تطلب هذه إحداها بناء على رغبتكم باستخدام الاستعلامات ملاحظة حولت حقل SAR من نص إلى رقم حولت حقل Date من نص إلى تاريخ R&R 2.accdb
    1 point
  41. السلام عليكم أخي يجب أن تجري بعض التعديلات علي ملف الاكسل لتسهل معك عملية الاستيراد أولا يجب أن تجعل كل قيمة بعمود مستقل ثانيا اجعل عنوين الاعمدة هي نفسها نفس الأسماء الأعمدة بالجدول المراد الاستيراد اليه بالأكسس ثالثا اتبع تعليمات استيراد البيانات بمعالج الاستيراد الخاص بالأكسس
    1 point
  42. الاخ ميلاد طارق يجب اختيار الرقم من القائمة في الخلية( N1 ) شاهد المرفق Test_1.xls
    1 point
  43. وعليكم السلام ورحمة الله وبركاته في حدث عند الخروج حدد الحقل الذي يريد الانتقال اليه Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToControl "d" End Sub او الانتقال الى سجل جديد Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub تحياتي
    1 point
  44. أخي RAGABFAROUK لطالما نصحنا أساتذتا بهذا المنتدي الكريم بتقسيم البرنامج الي واجهات وجداول أي تكون النماذج والاستعلامان والتقارير بقاعدة بيانات مستقلة وتكون الجداول بقاعدة أخري ويتم الربط بينهما -- تفاديا لمثل هذه المشكلات وكذلك الاحتفاظ بالنسخة الأصل قبل الحفظ بصيغة الــ ACCDE وكذلك أخذ نسخة أحتياطية من البرنامج كل فترة زمنية قريبة يخفف كثيرا من الاضرار الناجمة عن هذا العطل وفي النهاية أسأل الله أن يجيرك في مصابك ويخلف عليك خيرا منه وأرجو أن يكون المرفق به شئ مما ترجو الحصول عليه فهذا كل ما استطعت انقاظه لك DR_ELLABBAD_fixed.rar
    1 point
  45. انت استعملت الكود الذي يذكر لك المكرر في نفس الصفحة مرة واحدة كات يجب استعمال الكود الثاني اي الكود الموجود في الرد على الأخ (ابا يوسف) التي تحمل عنوان : في هذاه الحالة يلزم هذا الكود
    1 point
  46. يرجى اضافه الايميل وكذلك رقم الواتس للمراسلة
    1 point
  47. بارك الله فيك وزادك الله من فضله
    1 point
  48. نعم يرجى توضيح الاسم المطلوب ، علما بانه فور التعديل ستحتاج الي الدخول بالاسم الجديد
    1 point
  49. طريقتي في عمل الاستعلام الخاص بالنموذج الفرعي المخصص لعرض نتائج البحث وكلها تؤدي الغرض طريقة البحث في النموذج الفرعي2.rar
    1 point
  50. حياكم الله أجمعين وأعتذر لانقطاعي والحمد لله ... مرفق المطلوب طريقة البحث في النموذج الفرعي.rar
    1 point
×
×
  • اضف...

Important Information