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

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

  1. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      10

    • Posts

      3,490


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      10

    • Posts

      6,503


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      8

    • Posts

      9,724


  4. أمير2008

    أمير2008

    03 عضو مميز


    • نقاط

      7

    • Posts

      202


Popular Content

Showing content with the highest reputation on 14 ماي, 2017 in all areas

  1. اداة للكتابة بطريقة ثلاثية الابعاد داخل برنامجك صور الشرح واتفضلوا الاداة OFFICENA 3D.rar
    3 points
  2. السلام عليكم هنا مشاركات يمكن لها علاقة كما انه اعتقد انه لابد من فتح التقرير او عمل نسخة منه في الذاكرة وهنا: 1. طريقة فتح التقرير في وضع التصميم غير مناسبه وخصوصا اذا تم تحويل القاعده الى mde او accde والاصح فتحه مع تمرير باراميتر الاخفاء ليكون مخفي ويمكن كذلك والافضل تعديل مصدر بياناته الى لاشي حتى لا يتم تحميل البيانات وبدون حاجه 2. هناك فكرة غير العنوان وهي الوصف والتي يمكن كتابنها بالماوس الايمن على التقرير ثم خصائص ثم اكتب وصف للتقرير وهنا يمكن قراءة اسم التقرير ووصقه دون الحاجة الى فتحه تقبلو تحياتي تعديل على الملف باول مشاركة اضافة جدول واضافة كمبو بالنموذج تقبلو تحياتي كود أسماء كل التقارير.rar
    2 points
  3. بعد إذن أستاذنا شفان : أختلف معك في الاجابة وسأجيب بطريقة أخرى : ( هناك كود عند تحريك الماوس .. ماهو الكود ؟ و هل هو مهم جدا ام لا ؟ هل نقدر بدل ان نستخدم عند تحريك الماوس ان نستخدم في مكان اخر ؟ هذا وهذا و هذا واليك اكثر من هذا لازم نعرفه جيدا ! لذا يجب ان ترفق قاعدة مصغرة من قاعدة بياناتك اي نريد تلك النموذج مع مصدره لكي نشوفه ) طبعا الاختلاف لا يفسد للود قضية
    2 points
  4. الف شكر استاذي الفاضل بالفعل انت مبدع دائما جزاك الله كل خير وزادك الله من علمه وكل عام وانت بخير بس شوف اخي الفاضل المرفق المفروض حرف العين في ذكر يعطيني لجنه 4 هنا عطيني لجنه 3
    2 points
  5. اصدقائي الاكارم تحية طيبة استكمالا للموضوع احببت ان اضع تطبيق كامل لانشاء نسخة احتياطية عن جداول قاعدة البيانات الجديد هنا ان النسخة مضغوطة ببرنامج Winrar ومحمية بكلمة سر ملاحظة : التطبيق حاليا ياخد نسخة احتياطية عن الجداول المضمنة في قاعدة البيانات و ليس المرتبطة كلمة السر هي 1 وللموضوع تتمة إن شاء الله rartest1.rar
    1 point
  6. الاخوة الزملاء شرح مبسط للاكسل بالبوربوينت للمبتدئين بعض الصور رابط الموضوع https://www.4shared.com/rar/SgZgpiN9ei/___.html
    1 point
  7. السلام عليكم ورحمة الله تعالى وبركاته استكمالا لسلسلة الجواب بيبان من العنوان اقدم اليكم المرفق الاتى تدرج الوان على النموذج برمجيا تدرج الاوان بطريقة مذهلة ☺.rar
    1 point
  8. السلام عليكم و رحمة الله هذا كود منقول من أحد الكتب يجلب أسماء كل التقارير فى القاعدة ويشغلها من كمبوبوكس الكود فى حدث عند التحميل للنموذج Private Sub Form_Load() Dim newvallist As String newvallist = "" Dim obj As AccessObject For Each obj In CurrentProject.AllReports newvallist = newvallist + Chr(34) + obj.Name + Chr(34) + ";" Next obj Me.objCombo.RowSource = "value list" Me.objCombo.RowSource = newvallist Me.objCombo.Value = Me.objCombo.ItemData(0) End Sub ثم فى حدث بعد التحديث للكمبوبوكس لفتح التقارير حسب الاسم المختار Private Sub objCombo_AfterUpdate() DoCmd.OpenReport Me.objCombo, acViewPreview End Sub الملف المستخدم 2003 - 2007 كود أسماء كل تقارير القاعدة الحالية.rar و هذا تعديل للكود بحيث يجلب أسماء التقارير مع مسمياتها التوضيحية كود أسماء كل 8التقارير.rar
    1 point
  9. 1 point
  10. استاذى القدير ومعلمى الجليل الاستاذ الفاضل @رمهان يعلم الله تعالى كم اشتاقت نفسى الى لقياكم اهلا اهلا اهلا انا نفذت الطريقة دى فى احد المشاركات فى هذا الموضوع وتم الاعتراض عليها وكانت الاعتراضات من اساتذتى الكرام كلاتى ولكن بالاخير كان راى الاستاذ عبد الفتاح طريقة الية لذلك كنت فى انتظارها
    1 point
  11. الغريبة ، أني تقريبا الوحيد الذي يوقع على كل مشاركة بإسمه ، جعفر ومع هذا ، فتقريبا الكل لا يناديني بإسمي ، وإنما بـ jjafferr jjafferr
    1 point
  12. طيب على العموم مش لازم نصالحكم النهاردة كمان غدا مش فاضي
    1 point
  13. ربنا ما يجيب زعل كلنا اخوات
    1 point
  14. السلام عليكم أخي حمادة هذا الموضوع مخالف لقوانين المنتدى: و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. و 6. يجب ان يكون عندك سؤال واحد في الموضوع رجاء فتح موضوع آخر ، مع مراعاة النقاط اعلاه جعفر
    1 point
  15. اعذرني أستاذ شفان أصل أنا مبسوط منذ فترة زيادة عن الحد وبحاول أفرغ الشحنة علشان أرجع لأيام النكد أصلها وحشاني
    1 point
  16. عهدي بك أستاذ عمرو أنك الذكاء المتوقد المشتعل كيف لم تلاحظ الفرق ؟ أستاذنا شفان علشان ذوقه واحترامه الشديد بدأ بمقدمات : (عفوا قصدي يعني) أنا أختلف معه في البداية فقط ، لازم يتكلم مباشرة دون احراج الأستاذ حماده عثمان مش غريب على المنتدى هو ابن بار من أبناؤه ومش هيزعل يعني المفروض يأمر أ/ حماده بأن يأتي بقاعدة البيانات كاملة مكملة علشان نشوف الخطأ
    1 point
  17. السلام عليكم - جزيت خيرا - العمل ممتاز الله يرضى عليك
    1 point
  18. ههههههه شوفت يمكن ضغط الشغل بس اصل انا عامله وانا فى الشغل فى اخر نص ساعة كان الواحد خلاص هينام على نفسه
    1 point
  19. الله الله يا ابا جودي ايه الابداعات دي
    1 point
  20. لأنه يكتب الكلمة 7 مرات عن شكل طبقات نقدر نقول خدعة جميلة شكرا لك اباجودي على الهدية
    1 point
  21. السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالي كأحد طرق الحل .. علة المطلوب تماماً Option Explicit Sub GetUniques() Dim d As Object, c As Variant, i As Long, lr As Long Set d = CreateObject("Scripting.Dictionary") lr = ورقة3.Cells(Rows.Count, 2).End(xlUp).Row c = ورقة3.Range("b2:b" & lr) For i = 1 To UBound(c, 1) d(c(i, 1)) = 1 Next i ورقة9.Range("B2").Resize(d.Count) = Application.Transpose(d.keys) With ورقة9.Range("C2:C" & d.Count + 1) .FormulaR1C1 = "=LOOKUP(2,1/('قائمة حساب الفواتير'!R2C2:R10000C2=RC[-1]),'قائمة حساب الفواتير'!R2C4:R10000C4)" .Value = .Value End With End Sub اعطاء رمز للمادة واعتماد السعر الاخير للمادة123_2.rar
    1 point
  22. الاخوة الزملاء على الرابط التالى ملف اكواد الفورم محفظة الاكواد والتى تم شرحة بهذا الموضوع بالفيديو ذلك
    1 point
  23. فيديو شرح للتعامل مع الفورم من الموضوع على الرابط التالى
    1 point
  24. وهذه الأداة هدية مني خاص لاستاذي الحبيب @ابوخليل ولكل اعضاء ومن يستخدم اوفيس اصدار 2003 ويريد ان يستخدم اصدرا احدث بواجهة 2003 اي بها قوائم اصدر 2003 او من يستخدم اصدار اعلى من 2003 وعنده ذكريات مع قوائم اصدار 2003 اتفضل من هنا http://www.officeclassicmenu.com/en/download.html
    1 point
  25. طيب جرب النموذج frm_MonthlyWorkers 11115.rar
    1 point
  26. تحية طيبة اخوتي اخي ابا جودي جعلت الامتداد Rarx عوضا عن Rar لكي يميز المستخدم النسخة الاحتياطية عند استعادتها لو كانت بالامتداد Rar عندها ستظهر جميع الملفات المضغوطة و قد يخطئ المستخدم في الملف و يفتح ملف آخر اخي شيفان كلامك صحيح بالنسبة لكلمة المرور فهي بعد الحرفين -hp اما الملفات المرفقة فهي برنامج الوين رار نفسه و نسخة التسجيل الخاصة به طبعا قمت ايضا بتعديل لاحقة برنامج الوين رار حتى لا يصاب بفيروس
    1 point
  27. اخي الكريم ارجو التوضيح التفصيلى لكي يكون الحل من مره واحده ... لازلت لا افهم ما المقصود بإعطاء رمز لكل ماده .. ايضاً بالنسبة للسعر هل عندما تكتب اسم الماده يظهر السعر ؟؟؟؟ .. ام انك تقصد كود يقوم بعمل تصفيه؟؟؟؟؟؟؟؟ .. يرجي التوضيح التفصيلي .. او ان تضع شكل النتائج المتوقعه لفهم المطلوب تقبل تحياتي
    1 point
  28. الف شكر علي التعاون وربنا يجعله في ميزان حسناتكم
    1 point
  29. السلام عليكم اخي الكريم المطلوب غير واضح.. ما المقصود بإعطاء رمز لكل ماده.. هل تقصد بكتابه الرمز تظهر الماده؟؟؟؟... واي سعر باي عمود يعد السعر الاخير للماده.. ايضا لاحظت ان الاسعار بالدينار العراقي وليس الدولار..؟؟؟؟ يرجي مزيد من التوضيح
    1 point
  30. شكرا استاذي الفاضل هذا بالضبط ما اريده جعلها الله حسنات في ميزانك
    1 point
  31. اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar
    1 point
  32. وعليكم السلام انا كلما رأيت الى رسالة OLE و عنصر ActiveX ، كلما جاء في بالي اعدادت الوندوز: جعفر
    1 point
  33. الاخ وائل شكرا لك واليك هدية على الرابط التالى
    1 point
  34. اشكرك على تقبلك وشرحك لقد اضفتهم الان كيف ربطت بينهم كيف جعلت البيانات تظهر بسجل واحد
    1 point
  35. حسب فهمي للموضوع هنا سيتم تغير الرقم سري a -hp1 بدل رقم 1 اعطي ماتريد وانا عندي سؤال ما هذه المرفقات مع القاعدة ؟
    1 point
  36. فى الاغلب هذا عنصر تحكم على نموذج ويجب على عنصر التحكم هذا استدعاء ملف ما من مسار محدد وتغير هذا المسار او تم تغير اسم هذا الملف على الاغلب ولذلك تنتج هذه الرسالة
    1 point
  37. 1 point
  38. السلام عليكم قمت بتجربت مرفق حضرتك منذ قليل الذى يحمل عنوان new على أوفيس 2010 نظام 64 بت وقد حدثت عندى المشكلة التى ذكرتها تماما - واليك الآن ملاحظاتى: 1- المشكلة الآن لا علاقة لها بكون الفورم Pupup - أو Module نعم أو لا 2- سوى أنك تحاول الأنتقال داخل سجلات جملة sql بكود الانتقال داخل الفورم وهذا السبب وراء المشكلة فلكى تنتقل داخل جملة sql نستخدم sql.movefirst - أو sql.movenext وهكذا. جرب هذا التعديل ووافنا بالنتائج DoCmd.OpenForm "Robot2" DoCmd.GoToRecord , , acNewRec Forms![Robot2]![Doc] = Me.T7 Forms![Robot2]![Warehouse] = Me.T9 Forms![Robot2]![Order] = Me.t0 Forms![Robot2]![orient] = Me.T13 Forms![Robot2]![Zdate] = Me.T6 Forms![Robot2]![Type] = "صرف" Forms![Robot2]![entrydate] = Me.Text80 Forms![Robot2]![Ameen] = Me.com DoCmd.Close Dim sql As Recordset Set sql = CurrentDb.OpenRecordset("Transactions", dbOpenDynaset) 'DoCmd.GoToRecord , , acFirst sql.MoveLast: sql.MoveFirst For m = 1 To T8 With sql .AddNew !Code = Code1 !Item = T1 !Doc = T12 !Out = T2 !Notes = T5 .Update End With sql.MoveNext Next m MsgBox "تم الصرف بنجاح", vbInformation, "تم الصرف" T6 = "" T7 = "" T3 = "" T9 = "" T10 = "" T13 = "" Me.Requery
    1 point
  39. 1 point
  40. استاذي ومعلمي الفاضل اهلا بك واشكرك علي اهتمامك استاذي الفاضل لاتوجد احتملات غير التي ذكرتها طبعا الرجال هتاخد كل الحروف والنساء كذلك الرجال لجنه (1) يكون اول حرف من اسمهم أ ب ت ث ج ح ولجنه (2) هيكون اول حرف من اسمهم. خ د ز ر ز ولجنه (3) س ش ص ض ط بمعني اني الرجال 5 لجان قسم عليهم الحروف الابجديه علي خمسة لجان طبعا النساء تختلف في انها ليست نفس الرجال في ترتيب الحروف فلجنه (1)في النساء هيكون اول حرف من اسمهم ) أ ب ت ث ج ح خ مع العلم انا لجنه ( 1) في الرجال. هيكون اول حرف من اسمهم. أ ب ت ث ج ح وهذا للتوضيح وللعلم لماذ اخترت في الشرط حقل الجنس لهذا السبب طبعا هنقسم الحروف لابجديه للنساء علي 4 لجان وارجو ان اكون قد اوضحت ما اريد وحزاكم الله خيرا
    1 point
  41. السلام عليكم استاذنا وحبيبنا عبد الفتاح شكرا لك ان تضع الكل في اهتمامك للاثراء : هذه طريقة اخرى باستخدام جدول النظام وعندي تساؤل ولكني سأطرحه لاحقا كود أسماء كل التقارير2.rar
    1 point
  42. هذا مثال بسيط اخي الكريم اذا كان يلبي طلبك ارسل برنامجك ليتم التعديل test1.rar
    1 point
  43. انا لا أومن بالصدفة وانما هو تخطيط ربّاني والسبب قد يكون مثل ما قال أخي أوس بالفعل محترفين برمجيا وخُلقيا ، ومحترمين جداً وانا أشهد بأن الادارة ايضا هكذا ، وفي مقدمتهم الأستاذ المهندس @محمد طاهر صاحب الموقع ، والقلب النابض له ، وأوسعنا علماً ، وأبسطنا خُلقاً وكلما جار عليّ الدهر ، ألجأ الى الجدار المنيع وأخو الجميع ، أخونا العود @ابوخليل ، وبحكمته ترجع المياه الى مجاريها ، وبعلمه وإصراره يفتح لنا آفاق جديدة ، نتوسع فيها جعفر
    1 point
  44. اولا: شروط المنتدى لا تسمح بهذا ، ثانيا: البرنامج الذي استفيد منه ، اشتريه ، وخصوصا اذا استعماله خلال الفترة التجريبية اثبت جدارته جعفر
    1 point
  45. أحبابي وإخواني الأعزاء لقد افتقدتكم جميعاً ويعلم الله لم يمنعني عنكم إلا الظروف الشديدة والحمد لله على كل حال . هذه هدية متواضعة لكم أحبابي . هام جداً : أرجو قبل التعامل مع الملف ضرورة الاطلاع على ورقة شرح الملف والتي أسميتها " HELP" ويمكن الانتقال إليها وسائر الأوراق من مفتاح " الانتقال إلى " والموجود بكل الأوراق ، وأرجو أن تكون الفكرة فيها ولو بعض الفائدة . وتقبلوا حبي وتقديري أبو عبدالله _________________________________.rar
    1 point
  46. السلام عليكم ورحمة الله إليك بالملف التالي الذي يحوي 5 صفحات وزعتها على 5 مقاطع (كل صفحة بمقطع) وكل صفحة لها إطارها الخاص بها... Ex_Bord.doc Ex_Bord.rar
    1 point
×
×
  • اضف...

Important Information