اذهب الي المحتوي
أوفيسنا

Moosak

الخبراء
  • Posts

    716
  • تاريخ الانضمام

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

  • Days Won

    18

Moosak last won the day on مايو 31

Moosak had the most liked content!

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

720 Excellent

10 متابعين

عن العضو Moosak

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Graphics Designer
  • البلد
    Oman
  • الإهتمامات
    التصميم الجرافيكي ، تصميم قواعد بيانات أكسس

وسائل التواصل

  • MSN
    https://www.youtube.com/c/MousaAlKalbani
  • Website URL
    https://www.instagram.com/mousa.alkalbani
  • Yahoo
    mousa.alkalbani@gmail.com

اخر الزوار

2,336 زياره للملف الشخصي
  1. تفضل أخي @حامل المسك 🙂 الحاق البيانات.accdb
  2. عندي لم تظهر صفحات فارغة .. وسبب ظهورها على ما أعتقد هو عملية نقل البرنامج بين الأجهزة واختلاف إعدادات الطابعة الافتراضية .. والحل إما أن يتم تعديل تنسيق التقرير حسب الطابعة الافتراضية في جهازك ( وهذا غير عملي في حال تنقل البرنامج بين الأجهزة ) .. وإما أن يتم ضبط إعدادات التقرير على طابعة محددة فتبقى الإعدادات نفسها في كل الأجهزة .. 🙂
  3. هناك حيلة صغيرة يا أخي @waledstar سأعلمك إياها بدون الحاجة لبرامج خارجية 🙂 بعد أن تقوم بتصميم جميع التقارير قم بتصميم تقرير تجميعي .. بحيث تجمع فيه كل التقارير على شكل تقارير فرعية .. وثم تفصل بينها بأداة فاصل الصفحات () .. فيظهر لك الشكل النهائي بهذه الطريقة : بعدها تقوم بتصدير التقرير التجميعي على صيغة PDF فيحصل المطلوب ☺️ وهذا مثال للطريقة : Many Reports in 1 PDF.accdb
  4. هذي دمها عسل زيك لأ بجد .. تتأخر معاي دقيقة كاملة
  5. لله درك يا @ابو جودي رجل المهمات الصعبة 😉💪 حلوة جدا .. بس تتأخر حبتين .. 😏 يعني تبدأ تقفل بعد دقيقة تقريبا .. إلى المكتبة العامرة بالأكواد 😁✌️
  6. نعم هي رسائل متتالية تضغط موافق لتختفي وتفتح لك الرسالة الثانية فالثالثة وهكذا .. الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى ..
  7. قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 .. ولكن للأسف ليس لدي فكرة ..
  8. وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 هذا حسبما فهمت .. عملت فكرتين .. ضع هذا الكود في حدث عند الإغلاق : Private Sub Form_Close() Dim x As Integer '----------------------------------------------(الفكرة الأولى) DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount MsgBox Me.n DoCmd.GoToRecord , , acNext Next '----------------------------------------------(الفكرة الثانية) Dim txt As String DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount txt = txt & Me.n & vbNewLine DoCmd.GoToRecord , , acNext Next MsgBox txt End Sub aa.accdb
  9. وعليكم السلام ورحمة الله وبركاته .. 🙂
  10. " إذا عُرِفَ السبب بطل العجب " أول ما تبادر لذهني بعد قرائتي للموضوع : ما الهدف من ذلك ؟ والجواب عن هذا السؤال هو ما سيفتح لنا باب الحل المناسب🙂
  11. وهذه طريقة أخرى بدون استخدام التايمر 🙂 Process Par.accdb
  12. شكرا جزيلا لك أخي @kanory 🙂🌷🌸 سعيد جدا أنك استفدت منها 😊🌹
×
×
  • اضف...

Important Information