abohajr

البرنامج سليم وقد جربته على ويندوز98 وويندوز إكس بي وهو يعمل عندي بشكل جيد

خطأ مطبعي العبارة الصحيحة "كما أنه قد لا يفيد بشكل كبير"

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

عفواً أخي الحبيب لقد أبعدت النجعة وأخطأت الطريق أنا لم اقصد أن تغير اسم مشروع فيجوال بيسك بل أقصد أنك ستجد في حدث التايمر Timer1 أمر فتح قاعدة البيانات التالي Shell a & "MSACCESS.EXE" & " " & App.Path & "yourdatabasename.mde", vbMinimizedNoFocus Form1.WindowSt…

الأخ مصلح السلام عليكم في هذه الحالة يمكنك استخدام كود كالتالي Dim wrkJet As Workspace Dim AbA As Database Dim tbl As TableDef Set wrkJet = DBEngine.Workspaces(0) Set AbA = wrkJet.OpenDatabase("databasename.mdb", _ False, False, _ ";PWD=123") For Each tbl In A…

الأخ العزيز / أشرف خليل كيف حالك وأحوال الرس وكيف محمود وأمه المثال المرفق مثال جميل لكنه لا يصلح حينما يكون مستخدمو البرنامج مبتدئين كما أنه قد يفيد بشكل كبير في حالة استخدام الأسماء الإنجليزية في الحقول والجداول تحياتي وشكراً لك يا أبا محمود

أهلاً بك لكن من المهم ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد الارتباط نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing

الحقيقة أنني كنت أنوي الرد لكن بما أن السؤال موجه إلى أشخاص معينين فلم أحب أن أتدخل حتى لا أكون ( ملقوفاً ) كما يقولون بالعامية

المشكلة في العلافة التي وضعتها بين الجدولين داخل الاستعلام افتح الاستعلام ثم انقر نقرة واحدة على الخط الذي يريط بين الجدولين و من القائمة المنسدلة اختر خصائص الصلة حدد الخيار الثاني في خصائص الصلة وهو خيار عرض جميع السجلات من جدول1 والسجلات المرتبطة من جدول2 و…

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

أخي الكريم معذرة فقد أخطأت في كتابة الكود والسبب كما ذكرت سابقاً هو أنني أكتبه في المتصفح مباشرة الدالة يجب أن تكون بالشكل التالي function countOfSome (myvar as string , whatyourvar as string) dim a as integer dim b as string dim acount as integer acount = 0 b…

جيد يمكنك استخدام الأمر السابق في شبكة الاستعلام بعد تحويله إلى دالة ووضعها في إحدى الوحدات النمطية العامة وتمرير المتغير إلى الدالة بحيث تعرض في نتيجة الاستعلام التكرار لكل متغير في الجدول يمكن أن تكون الدالة بالشكل التالي function countOfSome (myvar as strin…

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

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

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

أخي الكريم من الواضح أن المشكلة في برنامج أكسس وليست في الطريقة فالطريقة صحيحة ولا غبار عليها تأكد من أن كل شيء صحيح وحاول تركيب أوفيس من جديد

متى ترغب في ظهور الرسالة هل تريد ظهورها عند بدء تشغيل البرنامج أم عند فتح النموذج

ما تريده ليس أمراً صعبا لكنني قد أن أخبرك كيف آمل توضيح الهدف فقد يكون هناك فكرة أفضل من فكرتك

استخدم خاصية visible لإخفاء التقرير الفرعي بالصيغة التالية : me.subreport.Visible = False هذه طريقة وثمة طريقة أخرى هي أفضل من وجهة نظري وأنا أستخدمها كثيراً وهي أن تجعل عنوان التقرير الفرعي داخل التقرير الفرعي نفسة في مقطع رأس التقرير وتحدد خاصية قابل للتقلص …

الأستاذ محمد طاهر من المؤكد أنك فتحت القاعدة بأكسس XP وأنا صممتها بأكسس 2000 قم بتحويلها إلى أكسس XP واجعل التاريخ الافتراضي هو الهجري وسيكون كل شيء على ما يرام