مهند عبادي

أخي الكريم مشكلتك تحل إما كما ذكرت لك سابقاً بتعرف النوع الذي يعطيك خطأ عنده من النوع Object مثلاً استبدل هذا السطر : Dim dbsNew As Database بهذا السطر Dim dbsNew As object أو أن تضيف مرجع هو Microsoft DAO Object Library

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

تفضلي رنين.rar

هل يوجد أوفيس 2004 في السوق ؟! اختي الكريمة .. اقرأي المشاركة الأولى في هذا الموضوع ففيها بالتفصيل أين تضعين الأكواد وأسلوب التصميم إذا اردت عمل نص يظهر في حالة الضغط فقط لديك حل وهو عمل هذا النص من أصل الصورة التي تظهر عند النقر (نوع التأثير رقم 1)

بالنسبة لتجربتي الخاصة لم أستطع إيجاد ذلك المجلد ولكني استعضت عن ذلك بتصميم الايقونات التي أريدها لأن الأوفيس يعطي تلك الميرزة

لكي تعمل هذا الشيء أنت بحاجة لاستخدام جدول يكون فارغاً والنموذج المفتوح بشكل دائم به حدث عند عداد الوقت يقوم بفحص عدد سجلات ذلك الجدول الفارغ فإذا وجد تغيراً بعدد سجلاته يعرض لك رسالة بالشكل الذي ترغبه عن استلام رسالة ثم يعرضها وينقلها إلى جدول آخر لحفظ أرشيف …

أخي الكريم أنت بحاجة لاستعلام جدولي هذا هو : TRANSFORM Count(sum_qry.n_of_student) AS Countمنn_of_student SELECT sum_qry.branch_id, sum_qry.branch_name, Count(sum_qry.n_of_student) AS [إجمالي n_of_student] FROM sum_qry GROUP BY sum_qry.branch_id, sum_qry.branc…

بالنسبة للأخوة الذين لا يظنون بأنفسهم القدرة على المشاركة أطلب منهم المحاولة وارفاق محاولتهم لكي يستفيدوا وسأحاول أن أسهل الأمور على الأخوة ، سأشرح أسلوب عمل الإحصائيات : بشكل عام أية إحصائية هي عبارة عن معلومات تؤخذ من مصدر معين (جدول أو استعلام) لذلك إذا أرد…

أخي الكريم أنت بحاجة إلى إجراء يحسب لك فرق الأيام والأشهر والستوات وهذا Sub عملته لك من أجل ذلك : Sub GetDur(D1 As Date, D2 As Date, ByRef YY, ByRef MM, ByRef DD) Dim DT As Date, d, m If D2 > D1 Then DT = D1 D1 = D2 D2 = DT End If YY = Year(D1) - Year(D2) m = …

أخي الكريم لقد وجدت تعليمة Like لحل مثل هذه المشكلات فهل جربت أن تستخدمها ؟؟

أخي الكريم طلب غريب جداً أو أن مكانه ليس في قسم الأكسس لأن الأكسس يعرض الجداول لوحدها في أسلوب عرض يشبه وأفضل من أداة DbGrid فلماذا تريد عمل شيء معمول لوحده وبشكل أفضل ؟؟ أما إذا كنت تقصد في VB فالموضوع له كلام آخر

أخي الكريم إبدأ أولاً بالتصميم الصحيح للجداول .. فكر في الموضوع وحلله وضع توصيف الجداول لكي يتم النقاش حوله وبعد إنجاز أول خطوة ننتقل للخطوة التي تليها

تفضل أخي وآسف على التأخر الاستيراد والتصدير.rar

أخي الكيم هذا كود جلب رقم الهارد دسك (ضغه في وحدة نمطية ) Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _ lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _ lpVolu…

لقد تم تصحيح الخطأ في الكود في المشاركة السابقة يرجى إعادة نسخها .. وآسف على التأخر بالرد

الأخت لولو هذا رابط تحميل الأزرار : /index.ph...=post&id=204359 الاخ بادي : ما الذي تريده بالضبط لكي أشرحه لك

استخدم هذا الكود : Me![WeekDay] = Format(date, "dddd")

أخي الكريم ما هو نوع المتحول الذي لم يتعرف عليه ؟؟ على أي حال إذا كان ما أظن جرب أن تغير هذا النوع إلى نوع object

بالنسبة لتطبيق هذا الشيء على أسطر النموذج الفرغي كلها لدينا طريقتان 1- بواسطة الكود ننتقل من سجل للتالي ونطبق المعادلة 2- بواسطة استعلام تحديث لبيانات النموذج الفرغي (هذا ما أفضله) وفي كلتا الحالتين لا يمكن أن تستخدم الحقل BALANCE_NAW وهو غير منضم .. لأنه سيحت…

أخي خالد آسف على الخطأ غير المقصور بالنسبة للكود الذي يجب وضعه في حدث الضغط على الزر هو : With [Forms]![inv_pay]![inv_pay_deyial Subform].Form .BALANCE_NAW = .BALANCE_NAW + .quantity End With