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

ابوخليل

أوفيسنا
  • Content count

    7,907
  • تاريخ الانضمام

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

  • Days Won

    76

ابوخليل last won the day on January 13

ابوخليل had the most liked content!

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

2,485 Excellent

عن العضو ابوخليل

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

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم

اخر الزوار

6,006 زياره للملف الشخصي
  1. مشكلة الترقيم التلقائي

    اسهل الحلول هو ان تنتقل لترقيم اكسس يمكنك ارفاق مثال بسيط
  2. مشكلة الترقيم التلقائي

    ترقيم اكسس التلقائي فعلا يعمل ذلك ، بحيث لا يعيد اي رقم تم استخدامه يبدوا انك تستخدم ترقيم تلقائي مصنوع
  3. السلام عليكم يوجد ملاحظة في تسمية الجداول وهي وجود مسافات خالية في التسمية علما انك تلافيت ذلك داخل الجداول وبالنسبة لبرنامج او مشروع لم تقم بشرحه بالتفصيل فلا تسأل عن علاقات وربط اسأل عن تصور عام للمشروع وما يحتاجه من جداول أساسية فهي اهم بكثير من مسألة البحث عن علاقات هذا رأي واجتهاد مني مررت فاحببت التعليق ولك حرية الاختيار
  4. نقل الملفات ونسخها من مجلد الى مجلد

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

    على كل حال انا غير مقتنع بطريقتك ومع هذا خذ الحل حسب رغبتك المرفقات تشتمل على ثلاث قواعد فك الضغط على D مثلا الرئيسية A والمرتبطة B والقاعدة البعيدة التي سنجلب منها الجداول هي C B.rar
  6. If Me![txtbox] = "1" Then Me.txtbox.BackColor = (IIf(Me.txtbox.BackColor = vbRed, vbWhite, vbRed)) ElseIf Me![txtbox] = "2" Then Me.txtbox.BackColor = (IIf(Me.txtbox.BackColor = vbBlue, vbWhite, vbBlue)) Else Me.txtbox.ForeColor = RGB(0, 0, 0) Me.txtbox.BackColor = RGB(255, 255, 255) End If
  7. نقل الملفات ونسخها من مجلد الى مجلد

    يابو ياسين صحيح اتعبتني ولكن تعبي معك هو اني اسألك لماذا تريد تنتهج هذه الطريقة الخاطئة في النسخ الاحتياطي ولم تجبني .. فيفترض اذا فكرتك مفيدة انك ما تحرم اخوانك منها وانا اعطيتك الحل على طلبك رغم اقتناعي بعدم صلاحيتها للمستخدم يعني .. الطريقة هذه تقوم اول خطوة بحذف الجداول الموجودة ,, ثم جلب الجداول البعيدة انا انصحك بعدم استخدامها
  8. Dim i As Boolean ' اعلنا عنها كقيمة منطقية i On Error Resume Next 'لتجاهل الخطأ عند عدم وجود القيمة ' البحث عن الرقم المعرف في الجدول بشرط رقم الصنف في الجدول يساوي رقم الصنف الذي كتبناه في النموذج i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'") If i = False Then 'اذا غير موجود Exit Sub ' أخرج من الحدث Else 'وإلا hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0)'الحقل= تاريخ آخر بيع hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0)'الحقل= تاريخ آخر شراء End If
  9. مشكله بالخصائص

    ابحث عن مثل هذا الزر في الاصدار عندك قد يكون غير مفعل
  10. لم اطلع على مثالك لاني اعمل على اصدار 2003 ولكن انظر هنا فقد تجد فائدة علما ان مشروعك اتصور انه اسهل من الموجود في الرابط لانك توزع صنف واحد
  11. نقل الملفات ونسخها من مجلد الى مجلد

    هذا ما قلته لك الكود يعمل فقط في القاعدة غير المنقسمة
  12. =DMax("Atarih";"AfwtIar";"Nwaha=11") =DMax("Atarih";"AfwtIar";"Nwaha=13") تاريخ اخر حركه2.rar
  13. نقل الملفات ونسخها من مجلد الى مجلد

    في المثال المرفق يتم التطبيق على القاعدة والجداول الحالية اذا تعمل على قاعدة منقسمة فيجب تغيير CurrentDb الى مسار قاعدة الجداول
  14. CLng للتحويل الى قيمة رقمية ‘ واعتقد ان المثال يمكن ان يعمل بدونها ، ولكني وضعتها من اجل هذا السطر في الحدة النمطية : i=DMin("monthx", "qryScnd", " nID =" & uid) وهو التغيير الجديد ويرجع بأصغر قيمة من عمود الشهر حسب الموظف كان الوضع السابق انه يعتبر الشهور كأرقام تبدأ من 1 وتنتهي بـــ 12 الآن يأخذ الارقام الموجودة ابتداء بالاصغر ويستمر الى مالا نهاية i = DMin("monthx", "qryScnd", " nID =" & uid) ii = mnthID For z = i To ii فـــ i تمثل الشهر الاصغر و ii تمثل آخر شهر و z تمثل الشهر الذي تتم معالجته
×