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

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

  1. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      7

    • Posts

      3,490


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      7

    • Posts

      9,724


  3. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      3

    • Posts

      4,330


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 29 ينا, 2018 in all areas

  1. 3. آسف ، لا اعرف هذا ، 2. اذا قصدك تحول بيانات النموذج ARD الى فاتورة بيع ، فهذا معناه ان هذه الفاتورة يجب ان يكون لها رقم جديد ، والذي نستطيع عمله ، 1. عليه ، ما يكون عندنا مشكلة هنا ، لأننا سنستخدم رقم الفاتورة الجديد ، اما بدون رقم الفاتورة ، فما ممكن ربط البيانات بين النموذج الرئيسي والنموذج الفرعي ، إلا عملت تغيير على حقول ربط النموذج الرئيسي بالنموذج الفرعي. الذي يجب عمله الآن: تعبئة بيانات النموذج الرئيسي ، وبيانات النموذج الفرعي ، من النموذج ARD. جعفر
    2 points
  2. وعليكم السلام اخوي حربي رجاء متابعة الموضوع معاي حسب الارقام الحمراء في الصورة في الاسفل (مع ملاحظة ان المقاسات في كمبيوتر بالبوصة وليست بالسنتيمتر) : - رقم 3 ، عرض الورقة 8.27 ، - رقم 5 ، هامش اليسار + هامش اليمين ، وهذه الهوامش لا يمكن ان تكون صفر ، لأن الطابعة بها بكرات لسحب الاوراق وهي بحاجة الى هذه الهوامش ، وهوامش كل طابعة تختلف عن الاخرى ، ولمعرفة اقل هامش تحتاجة طابعتك ، اجعل الهوامش = صفر لليسار واليمين (في رقم 5) ، ثم افتح التقرير في وضع معاينه ، ثم اعد التقرير في وضع تصميم ، وسترى القيم في رقم 5 ، - عرض التقرير حسب الصورة في الاسفل (رقم 6) = 8.27 (رقم 3) - 0.275 (الهامش اليمين في رقم 5) - 0.275 (الهامش اليسار فر رقم 5) = 7.72 - وللحصول على اقصى عرض للتقرير ، اجعل الرقم في (رقم 7) = النتائج اعلاه (7.72) . واحتياطا ، يجب ترك مسافة هامش زيادة من الجانبين ، وإلا فالتقرير قد يطبع صفحة زيادة عند الزبون جعفر
    2 points
  3. اذا ارفق نسخة مصغرة من قاعدة بياناتك لكي يوضح لك
    2 points
  4. فرضنا ان اسم الكومبوبوكس اي القائمة عندك اسمه ( Hale ) واسم مربع مدة الاجازة = MidetALeCAZE و تاريخ البداية = DateSefer وتاريخ النهاية = DateRicoa قم بعمل الاتي في حدث بعد تحديث القائمة if me.hale = "مسافر" then me.MidetALeCAZE.visible = true me.DateSefer.visible = true me.DateRicoa.visible = true else me.MidetALeCAZE.visible = false me.DateSefer.visible = false me.DateRicoa.visible = false end if
    2 points
  5. هذا مثال عما أقصده طالب salim2.xlsx
    2 points
  6. تحت امر الجميع فى اى استفسار واعتذر عن عدم انزال الملف وذلك لكبر حجمة وتحياتى للاساتذة المنتدى العظام الذى تعلمت منهم الكثير وهذا البرنامج خلاصت جهدهم معى وكل عام وحضرتكم جميع بخير تم عمل جميع المراحل من الصف الاول الابتدائى حتى الثالث الاعدادى للمدارس الحكومية والخاصة واللغات
    1 point
  7. من تجربتي ، اعمل تقريرين ، احدهما بالطول ، والاخر بالعرض جعفر
    1 point
  8. اعتذر منك اخوي ابوخليل ، موضزعك كان يختلف شوي: ولكنك ما شاء الله عندك مخزن يحتوي على كل غالي ونفيس اخوي عمر : 1. يجب معالجة هذا الموضوع ، فعليه لن تحتاج الى الحذف ، 2. محتاجين الجدول الذي و به بيانات قليلة ، ومثال على المطلوب. جعفر
    1 point
  9. وعليكم السلام اخوي ابو زاهر لا تستطيع اظهار بيانات النموذج ARD مباشرة في النموذج الفرعي frmSubSales ، وذلك لأن النموذج الفرعي frmSubSales مرتبط بالنموذج الرئيسي frmSales بهذه الحقول الثلاث: . وعليه ، فيجب ارسال بيانات الحقول الثلاث Rjmfatwra;Atarih;NoEmp من النموذج ARD الى النموذج الرئيسي frmSales ، والذي على اساسه سيتم تصفية النموذج الفرعي frmSubSales تلقائيا. لذا ، توجب ادخال هذه الحقول الثلاث الى الاستعلام مصدر بيانات النموذج ARD ، ثم تعديل كود الزر "ادراج كامل السجلات بفاتورة البيع" الى: Private Sub أمر40_Click() DoCmd.OpenForm "frmSales", acNormal 'Forms![frmSales]![SubSales]![Rajmsanf] = Me.Rajmsanf 'Forms![frmSales]![SubSales]![ID_Sanf] = Me.ID_Sanf Forms![frmSales]![Rjmfatwra] = Me.Rjmfatwra Forms![frmSales]![Atarih] = Me.Atarih Forms![frmSales]![NoEmp] = Me.NoEmp End Sub . وبسبب العلاقة بين النموذج الرئيسي والفرعي ، فقد لا تحصل على جميع السجلات (اقول هذا لأني لا اعرف كيف حصلت على البيانات في النموذج ARD) جعفر 894.قاعده اسهل.accdb.zip
    1 point
  10. اخی وائل السلام علیکم ورحمە اللھ وبرکاتھ انا نزلت مرفقك و فتحت موضوعك وكان طلب هكذ اي قصدي بهذا قلت بدون بحث بالتواريخ !! لكن في هذه الموضوع يتم البحث بواسطة تاريخ و الوقت من الى بالساعة و التاريخ لذلك نحن نحتاج توضيح اكثر
    1 point
  11. اخي الكريم ضع الكود التالي تحت زر فتح التقرير المراد عرضه بالعرض DoCmd.OpenReport "YourReportName", acViewPreview With Application.Reports("YourReportName").Printer .Orientation = acPRORLandscape DoCmd.RunCommand acCmdZoom75 تحياتي
    1 point
  12. جزاك الله خيرا لكني اريد التنفيذ بدون انشاء جدول جانبي!!! فهل يوجد حل عن طريق كود مثلا؟؟ لو الإجابه لا يوجد حل !!ابلغني بالله عليك!!
    1 point
  13. كل الشكر لك استاذ سليم وشكرا على مرورك استاذ بن علية منتحرمش منكم
    1 point
  14. السلام عليكم ورحمة الله وبركاته هذا جيد لكن ارفق نموذجك علشان نعمل عليه
    1 point
  15. ان استعمال (ROWS($A$1:$A1 يفيد قي موضوع بسيط وهو قي حال اضافة صف او حذف صف من الصفوف ( ليس اول صف من المعادلات)لا يحدث اخطاء حرب ان (تضيف صفاً او تحذف صفاً اينما تريد ما عدا الصف الأول) و سوف ترى النتيجة في الملف المرفق اما باقي المعادلات التي لا تستعمل هذه الصيغة (ROW(A1) مثلاُ فيحدث فيها احطاء في حال اضافة صف او حذف صف اما عملية 1 + (ROW($A$1 فهي حتى لا بيدأ Index من الرقم 0 طالب salim 1.xlsx
    1 point
  16. السلام عليكم أخي سليم، شكرا لك على الرد وعلى المعادلات التي تفي بالغرض... لكن لا أعلم لماذا تفضل كتابة الصيغة (ROWS($A$1:$A1 في المعادلة أرى أن الصيغة (ROW($A1 أبسط منها؟ هل لذلك سبب؟ ثم إني لاحظت أنك أضفت الصيغة : 1 - (ROW($A$1+ في المعادلة ولا ضرورة لها لأن قيمتها تساوي 0 باعتبار أن 1 = (ROW($A$1... أخوك بن علية حاجي
    1 point
  17. يمكن لكن اولا القي نظرتا الى هذا الكود وجربه وبعدين اذا ماتريد هذه الطريقة سنجرب الطريقة التانية Private Sub Command29_Click() With Application.FileDialog(4) .Title = "Uploading picture : Uploading Picture" .AllowMultiSelect = True .InitialFileName = "" If .Show = -1 Then For Each varFile In .SelectedItems Dim i As Integer Dim StMyPathPic As String DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Count - 1 StMyPathPic = Dir(varFile & "\" & Me.ID & ".*") If StMyPathPic = "" Then Me.swra = "" Else Me.swra = varFile & "\" & StMyPathPic End If DoCmd.GoToRecord , , acNext Next i Next Else MsgBox "لم يتم اختيار اي مجلد" End If End With End Sub Uploading Picture1.zip
    1 point
  18. السلام عليكم و رحمة الله تعالى و بركاته. إخوتي الكرام حياكم الله و جمعة مباركة إن شاء الله تعالى. لقد جئتكم اليوم بشيء جديد لم نتعود على القيام به بالإكسس. أضع بين أيديكم ساعة رقمية تشتغل على سطح المكتب في الركن العلوي الأيسر و يمكن تحريها كما نشاء. أولا لتشغيل البرنامج يجب تثبيت نوع الخط ديجتال المرفق مع البرنامج. ثانيا أهم نقطة في البرنامج أنه يشتغل مع إقلاع الونداوز بالضغط على زر "تشغيل مع الإقلاع". و يمكن إيقاف التشغيل مع الإقلاع بالضغط على زر "إيقاف تشغيل مع الإقلاع". و الصورة توضح ذلك: digital.rar
    1 point
  19. السلام عليكم الخطأ فعلا كما اشار أبو عيد هو فى النص والتاريخ كالتالى اولا القيمة الموجودة فى الخلية H48 لا تعبر عن تاريخ وهي غير متوافقة مع ما سبقها فى الجدول من فواصل التاريخ الرجاء مراجعة اعدادات الجهاز او كتابة التاريخ بنفس ما سبقة من فواصل ثانيا انت تحاول استعمال دالة روابط النص لتجميع التواريخ فإذا قمت باستعمال هذة الدالة بعد التعديل الى صيغة التاريخ سوف تستعمل الدالة التاريخ المبلادى - لذلك قمت بتعديل المعادلة فى الخلية I48 الى معادلة حسابية بفرض ان السنة الهجرية تساوى 354.367056 يوم وهى ... تاريخ اخر دفعة = تاريخ اول دفعة + (عدد الاقساط -1) * 354.367056/12 H48+ROUND((D48-1)*354.367056/12,0) المعادلة السابقة تعطى نتائج قد تفرق حسابيا يوم او بعض الكسور من اليوم فمثلا قد تجد اول قسط يوم 25 واخر قسط يوم 24 او 26 لذلك قمت باضافة الفرق فى الايام الى ناتج المعادلة بتحويل التاريخ الى نص ثم حساب الفرق بين التاريخين (لتفادى ان الاكسل يتعامل فى معادالات التاريخ بالتقويم الميلادى فقط ) وبالتالى اضافة هذا الفرق MID(TEXT(H48,"b2dd.mm.yyyy"),1,2)-MID(TEXT(H48+ROUND((D48-1)*354.367056/12,0),"b2dd.mm.yyyy"),1,2) المعادلة بالكامل للسطر 48 هى كالتالى =H48+ROUND((D48-1)*354.367056/12,0) + MID(TEXT(H48,"b2dd.mm.yyyy"),1,2)-MID(TEXT(H48+ROUND((D48-1)*354.367056/12,0),"b2dd.mm.yyyy"),1,2) وللتأكد من صحة المعادلة قمت بتطبيقها على الجدول بالكامل ومقارنة النتائج بتلك المحسوبة يدويا فى السابق وفعلا تطابقت التواريخ ما عدا السطر رقم 31 فيوجد به خطأ فى الاصل مرفق طيه الملف تلوين بشرط ...1.zip
    1 point
  20. اصوات الحيوانات والطيور والحروف فى بوربوينت 2010 الملف https://www.4shared.com/rar/tMlxk2LGca/___online.html
    1 point
  21. لا يمكن بطريقة افتراضية يمكن عن طريق الكود هذا الكود يقوم بالارسال مباشرة اذا كان المرسل هو admin@officena.net و بعطيك رسالة تحذير اذا كان الارسال من حساب اخر ، و يمكنك الالغاء Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Not LCase(Item.SendUsingAccount) = "admin@officena.net" Then Prompt$ = "You are sending this From " & Item.SendUsingAccount & ". Are you sure you want to send the Mail?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then Cancel = True End If End If End Sub و يجب اضافة الكود فى Thisoutlooksession اضغط ALT+F11 ثم انقرنقر مزدوج علي Thisoutlooksession و الصق الكود ، و قم بتغيير البريد المرتبط يالحساب
    1 point
  22. بارك الله فيك أخي الكريم رؤوف وجزاك الله كل خير لي بعض الملاحظات البسيطة وإن شاء الله تكون مفيدة .. الأفضل أن يكون هناك موضوع لكل درس تعليمي ويكون مركز في كود واحد أو موضوع واحد مع الشرح المستفيض بحيث تتم الاستفادة بشكل أكبر التنسيق للموضوع مهم جداً مما يجعل القاري منتبه للموضوع بشكل أكبر ضع الأكواد بين أقواس الكود ليظهر بشكل منضبط .. حاول تشرح الأكواد سطر سطر واضرب أمثله واطلب من الأخوة الأعضاء عمل تطبيق (عملي) .. أرجو أن تتقبل ملاحظاتي بصدر رحب تقبل وافر تقديري واحترامي
    1 point
  23. بارك الله فيك أخي الفاضل محمد عادل على موضوعاتك القيمة والمفيدة للجميع وأعتقد أن معظمنا في الموضوعات يقوم بالنقل من مصادر مختلفة ولكن لي رأي اسمحوا لي به .. إذا أردت دراسة موضوع معين قم بدراسته جيداً أي قم بهضم الموضوع بشكل جيد من كافة النواحي ثم قدم الموضوع بأسلوبك وبملف مرفق يخصك فيه تطبيق للموضوع كما يجب أن يكون هناك خطوات مشروحة لما تم عمله ليظهر الملف بهذا الشكل أي خطوات العمل التي يجب أن تكون موجودة ليسير على دربها من أراد التعلم .. لأن الكثيرين يقومون بتحميل الملف ولا يستفيد منه إلا ذوي الخبرة فقط لأنهم يقومون بعملية التنقيب .. اجعل الموضوع كخريطة واضحة المعالم ليسير على دربها مريدي التعلم تقبل وافر تقديري واحترامي
    1 point
  24. لا داعي للاسف اخي محمد عادل كلنا معرضون لذلك وجزاك الله كل خير على نواياك الحسنة في تقديم المساعدة داخل المنتدى ودائما في تقدم باذن الله تقبل تحياتي
    1 point
  25. يا اخ محمود انا لست الشخص الذى ينسب اعمال الغير ليه و اعلم جيدا ان الكود للاستاذه ساجده العزاوى و تم نقله دون التحريف فيه و عن النقل دون كتابه المصدر هو نسيان منى و تم نشره حتى يستفاد منه الاعضاء
    1 point
  26. تفضلو الملف نفسه للاخت الفاضلة ساجدة وبه طريقتين لتجنب صغر حجم القائمة المنسدلة اما بعمل زوم للشيت عند تحديد القائمة المنسدلة او الاستغناء عن القائمة بالكومبوبوكس وعمل لينك بين الخلية التي تحتوي علي قائمة وبين الكومبوبوكس والفكرة بسيطة وياريت كل واحد يعملها بطريقته ونبدأ نطبق بنفسنا لانه التطبيق يثبت المعلومة اكثر وتستطيع اضافة بعض اللمسات الخاصة بك مما يجعلك قادر على التطوير والابتكار ============================= ولا بأس اخي ابو يوسف بالتذكير فقط والله المستعان تقبلو تحياتي size list drp.rar
    1 point
  27. جزيتم خيراً إخواني على تشجيعكم المستمر لنا جميعاً.. فبدونكم نحن لا شيء تقبلوا تحياتي الحمد لله الذي بنعمته تتم الصالحات
    1 point
×
×
  • اضف...

Important Information