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

Shivan Rekany

الخبراء
  • Content count

    2,650
  • تاريخ الانضمام

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

  • Days Won

    111

Shivan Rekany last won the day on December 9

Shivan Rekany had the most liked content!

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

2,057 Excellent

عن العضو Shivan Rekany

  • الرتبه
    شفان ريكاني
  • تاريخ الميلاد 02 ديس, 1988

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    كوردستان / دهوك
  • Interests
    ادارة / برمجة

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com
  • Jabber
    shivanrekany212@mail.ru‎‏

اخر الزوار

4,639 زياره للملف الشخصي
  1. الكود صار هكذ Expr1: IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy")) db1.rar
  2. بخصوص مريع تحرير وسرد

    اتفضل تم اضافة حقل اي دي للجدولين وتم الربط بينهما واحد لمتعدد وتم وضع الشرط في مصدر كومبوبوكس الثاني وتم اضافة كود بعد تحديث لكومبوبوكس الاول اليك المرفق الالعاب.rar
  3. بكل تأكيد لكن بتغير بسيط IIf(Day([Text0]) = 28 ; DateAdd("m"; 1; [Text0]) ; 28 & Format([Text0]; "/MM/YYYY")) Text0 هو اسم حقل اللي فيه تاريخ واذا ما عرفت ان تطبق ارفع نسخة من قاعدة بياناتك للتعديل عليه
  4. اتفضل اليك هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Then If MsgBox("åá ÊÑíÏ ÍÐÝ åÐÇ ÇáÓÌá", vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End If End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub
  5. اتفضل اليك هذا الكود Private Sub Text0_AfterUpdate() If Day(Me.Text0) = 28 Then Me.Text2 = DateAdd("m", 1, Me.Text0) Else Me.Text2 = 28 & Format(Me.Text0, "/MM/YYYY") End Sub
  6. طريقة حذف الملفات المرفقة

    سيكون من الاحسن حذف المواضيع كله ... مادام ان يحذف القاعدات المرفق مع المواضيع ... ام يحذف البيانات السرية فقط للقواعد البيانات هذا حسب وجهة نظري ...
  7. لا اظن ان هذا بيكون سبب الاهتزاز ... * ملاحظة يجب ان يكون البرامج سهل الاستخدام ... ويأخذ قليل من الوقت لكي تعمل فاتورة ... اي انت لا تحتاج كثرة النماذج لكي تدخل صنف من الاصناف بل تقدر ان تعمل كومبوبوكس لتختار الصنف او باركود الصنف و اذا هناك نموذج للبحث واضافة ليس هناك مشكلة تقبل تحياتي
  8. لهذه الفقرة انت تحتاج هذا Private Sub كود_الصنف_AfterUpdate() Me.اسم_الصنف = Me.كود_الصنف.Column(1) End Sub وبدل حقل خليت المربع الاجمالي في اسفل النموذج الفرعي واضفت مربع نص اخر في نموذج رئيسي و مصدره صار مربع المجموع في نموذج الفرعي =[بيع اصناف نموذج فرعي].[Form]![MySum] سنستخدم دالة DSum مع الشروط لكي نعرف حساب اجمال لكل عميل لكن هناك نحن نحتاج جدول اخر لتسديد الديون و تاريخ الدفع وهذا خليت لك لكي تعمله انت واذا احتاجت شيء نحن هنا Database2.zip
  9. اريد اعرف ماذا تريد بالضبط ... اي هدف وراء هذه العملية
  10. على خاطرك انا قمت بالتجربة مرة اخرى و طبعت وما فيه اي مشكلة ... بيطبع كما يظهر في وضع المعايينة
  11. حسب ما ورد في مثالك انك تريد ان يعطيك يوم 28 من نفس الشهر ونفس السنة الا اذا كان يوم تاريخ المخزن بيكون 28 تريد ان يعطيك 28 للشهر بعده هل انا فهمت من طلبك ام تريد شيء اخر
  12. اهلا بك لان النموذج اللي في الصورة ليس موجودة في القاعدتك لكي نعمل عليه لذلك اقول لك ... استخدم دالة DLookUp تحياتي
  13. اتفضل تم عمل جدول جديد للمحاولات بحقول اسم المستخدم و رقم سري المستخدمة و وقت المحاولة الدخول واستخدمت هذا الكود Private Sub commond5_Click() Dim X If IsNull(Text0) Or IsNull(Text2) Then MsgBox "احد الحقول فارغ" Exit Sub Else X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]") End If If Not IsNull(X) Then DoCmd.Close DoCmd.OpenForm "namozag1" Else MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول" DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _ "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;") DoCmd.SetWarnings True DoCmd.CancelEvent End If End Sub تصيد المتلاعب.rar
  14. بخصوص مريع تحرير وسرد

    قم بتغيير مصدر كومبوبوكس 2 الى استعلام بها حقولين واحد منهم يساوي مصدر استعلام كومبوبوكس الاول اي انواع اللعبة والاخر منهم اسماء المدربين وفي حقل الالعبة اعطي شرط ان يكون يساوي مع الكومبوبوكس الاول وعند اختيار من كومبوبوكس الاول اكتب كود التحديث لكومبوبوكس الثاني واذا ما فهمت مني ابحث في المنتدى بها كثير مواضيع بها ما تطلب او ارفق قاعدة مصغرة لكي اعمل لك المطلوب تحياتي
  15. اعتذر على التاخير الرد اولا لكن بعد ما صلحت جهازي لكن رايت قاعدة بياناتك على جهاز الشركة والان هو بين يدي ... حسب رأيي اذا بتعمل جدول واحد فقط لكل مواد بدلا ان يكون هناك لكل مادة جدول خاص وبها حقل كود الطالب لكي تربط مع الحقل كود الطالب في جدول الطلاب وتعمل نموذج للطلاب وفيها نموذج فرعي لادخال الدرجات
×