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

أبو آدم

المراقبين
  • Content count

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

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

  • Days Won

    21

أبو آدم last won the day on August 12 2016

أبو آدم had the most liked content!

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

425 Excellent

7 متابعين

عن العضو أبو آدم

  • الرتبه
    مراقب عام
  • تاريخ الميلاد 17 يون, 1965

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مدير تنفيذي لشركة خاصة
  • Location
    المملكة الأردنية الهاشمية

Contact Methods

  • ICQ
    0

اخر الزوار

2,803 زياره للملف الشخصي
  1. أعتذر عن المقاطعة ، و من باب الفضول ، احب ان اعرف القانون المرفق الذي يمنح للموظف 50 يوم اجازة ، لاي بلد ؟ لطفا وليس امراً شكرا
  2. يرجى عدم تكرار المواضيع https://www.officena.net/ib/topic/72189-كيف-ننشأ-زر-كهذا/#comment-466834
  3. قم بانشاء جدول بحقل واحد اسم الجدول tblCheck اسم الحقل strCheck نوع الحقل Number في النموذح وعند حدث عند الضغط لزر الأمر انسخ Private Sub Command0_Click() lntCount = DCount("*", "tblcheck") If lntCount > 0 Then MsgBox " mohamed" MsgBox " salah" Exit Sub End If MsgBox " waleed" strSQL = "INSERT INTO tblcheck (strCheck) VALUES (1 );" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True MsgBox " mohamed" MsgBox " salah" End Sub
  4. شكرا للتفاعل ، ويرجى عدم تكرار الاسئلة في اكثر من موضوع منعا للتشويش على زملائك تم الاجابة عن السؤال الثاني في موضوع مستقل آخر لك اجيبك هنا عن السؤال الثالث وارجو ان تفرد لكل سؤال موضوع مستقل شكرا عند حدث عند الضغط لزر الامر انسخ Private Sub Command7_Click() Dim ADate As Date ADate = DateAdd("yyyy", 10, Me.Text0) Me.Text3 = ADate End Sub Text0 هو اسم الحقل الذي يحمل التاريخ الذي نريد اضافة 10 سنوات اليه Text3 هو اسم الحقل الذي سيتم عرض النتيجة به
  5. و عليكم السلام ورحمة الله وبركاته انشئ وحدة نمطية جديدة انسخ اليها Public Function RunForm() Dim RunSunDayForm As String RunSunDayForm = Format(Now(), "dddd") If RunSunDayForm = ("SunDay") Then 'Call your codehere DoCmd.OpenForm "form2" End If End Function Form2 هم اسم النموذج الذي نريد ان يفتح كل يوم احد ثم وفي حدث عند التحميل للنموذج الافتتاحي ( او نموذج رئيسي ) انسخ Private Sub Form_Load() Call RunForm End Sub
  6. Private Sub Command2_Click() Me.Text0 = Date End Sub
  7. قيد التجربة ...
  8. هل المسار /:e متوفر على جهازك ؟؟
  9. تحية و بعد تم التنزيل النسخ الاحتياطي لقاعدة البيانات ( الجداول ) تم بنجاح ... ( بعد تعديل مسار الملفات ) جاري المتابعة بالمتابعة النسخ الاحتياطي لقاعدة البيانات ( البرنامج) تم بنجاح الكودات سليمه ... التطبيق سلس ( النسخ الاحتياطي ) ... لم أجد ما يوجب المراجعة أعد محاولات التطبيق لديك ، مع مراعاة تحديد و تعديل مسارات الملفات شكرا
  10. أخي العزيز حبذا لو أنك بدأت بتحليل تفصيلي لفكرتك و حولتها لجداول اولية ، تسعفك وتسعفنا على التطبيق ثم تنتقل مع اخوتك المتصدرين للعون ، لتفاصيل التنفيذ بالاستعانة بالاستعلامات او الكودات او الوحدات النمطية و النماذج فالمرفق لا يعين على التطبيق او ايصال تفاصيل الفكرة ، اتمنى لو بدأت بالتطبيق ليتماشى معه اخوتك شكرا
  11. اتمنى ان تستخدم خاصية البحث بالمنتدى فالامثلة كثيرة شكرا
  12. الاخ زين من الوصف و الشرح الذي تفضلت به ، واطلاعي على الجداول وبنيتها لم يسعفني المتوفر من فهم طلبك كما انني لم افهم سبب انشاء الجداول بهذه الطريقه لعلك تتوسع بالتوضيح او ربما احسن احد الاخوة فهم مرادك فيتصدر للمساعدة عذرا
  13. جهد طيب ، يبنى عليه بارك الله بك