• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ahmed246

اعضاء جدد
  • عدد المشاركات

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

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

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

0 عادي

عن ahmed246

  • الرتبة
    عضو جديد
  1. السلام عليكم اخواني أعضاء منتدى الفريق العربي للبرمجة في عندي سؤال اذا كان عندي جدول لمجموعه من الطلاب ولكل طالب تاريخ تسجيل معين يعني كل طالب تاريخ تسجيله يختلف عن الطالب الاخر الحين اذا حاب اغير كل التواريخ الموجودة وازيد مثلا لكل شخص 7 أيام او 6 ايام صعب اني ادخل على طالب طالب لتغيير التاريخ شنو الطريقة الي ممكن اسويها وحط فيها مثلا رقم سبعة ويقوم البرنامج بزيادة 7 أيام على كل التواريخ الموجودة لكل الطلاب وشكرا  
  2. اخي لم افهم ما ترود بشكل جيد ولكن اظن ان استعلام الحاق سوف يفي بالقرض
  3. مشكلة في التاريخ

    اخي العزيز تذهب على مبربع نص ( حالة المعاملة تمت ) وتختار عند التغيير وتكتب هذا الكود ولتسهيل سوف اغير اسم مربع النص حالة المعاملة تمت الى fm لتسهيل سرعة كتابة الكود و مربع نص معادلة التاريخ اسم md  يجب ان نضع مربع نص فارغ ونكتب في عنصر التحكم ()Date= لنجعله مخفي ونكتب اسمه dt نبدأ بكتابة الكود if me.fm =yes then me.md=dt else endif    
  4. تم الحل الكود الصحيح هو  If [p1] = True And [p2] = False Then text = 5 ElseIf [p1] = False And [p2] = True Then text = 10 ElseIf [p1] = True And [p2] = True Then text = 10 Else text = 0 End If
  5. لمطلوب لدي مربع نص واسمه textولدي خيارين وهم p1 و p2عند اختيار p1 فقطيكون مربع النص يساوي 5وعند اختيار p2 فقطيكون مربع النص يساوي 10 وعند اختيار الخيارين يكون مربه النص يساوي 10وعند عدم اختيار اي خيار يكون مربع النص يساوي 0انظر الة المرفقاتلقد قمت بوضع هذا الكود في timer ولم ينجح ارجوا بمن لديهم خبره افادتي بالموضوعIf p1.Visible = True And p2.Visible = False Thentext = 5ElseIf p1.Visible = False And p2.Visible = True Thentext = 10ElseIf p1.Visible = True And p2.Visible = True Thentext = 10Elsetext = 0End If Database3.accdb