• الإعلانات

    • فيصل الحربي

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

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

djouamaa

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

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

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

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

0 عادي

عن djouamaa

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. كما يمكن استعمال الدالة DateAdd في عمل نسخه موقته كما في المثال التالي  و شكرا     (Private Sub Form_Open(Cancel As Integer   Dim FirstDate As Date Dim IntervalType As String Dim Number As Integer   "IntervalType =  "d (FirstDate = InputBox("Entrez la date de jour (Number = InputBox("Entrez le nombre de mois à ajouter (Date_Fin = DateAdd(IntervalType, Number, FirstDate If Date_Fin >= Date Then "MsgBox "votre base sura supprimer  DoCmd.OpenQuery "supp", acNormal End If   End Sub