rudwan

السلام عليكم أخي الكريم قم بما يلي : -حذف جميع العلاقات الموجوده -تعديل حقل المحرم في الجدول الأساسي الى رقم بدلا من نص -انشاء علاقه بين الرقم في جدول بيانات الاتصال و الرقم في المحرم - الجدول الأساسي -انشاء استعلام جديد تختار فيه الحقول التي تريدها من جدول بيانات الاتصال و الجدول الأساسي - ثم بناء نموذج جديد يعتمد على الاستعلام السابق أما دالة Dlookup فتستخدم كما يلي : F=dlookup("رقم الاتصال","بيانات الاتصال","رقم المحرم = " & me.رقم المحرم)

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

رابعا : الوحدات النمطيه تعريف جميع أنواع المعرفات و الوسائط المستخدمه في الأكواد كيفية كتابة روتين فرعي أنواع المتغيرات و تعريفاتها جميع أنواع الأخطاء و أرقامها في الأكسس معرفة أكواد ال ASCII شرح دوال التاريخ و الوقت كود لمعرفة هل يقع التاريخ ضمن الاسبوع الحالي أم لا كيفية جعل يوم السبت أول ايام الأسبوع برنامج منشىء التقاويم المقارنة - ميلادي - هجري - أم القرى كود لمعرفة أول و آخر يوم في الشهر الميلادي كود لتجاهل الهمزه عند البحث كيفية تشغيل ملف صوتي دالة تفقيط بالعربي و الانكليزي دالة مع مثال لصندوق الرسائل باللغه العربيه كود لتنسيق رسائل الادخال على نمط كلمة سر كيفية جعل واجهة النموذج عربي - انكليزي اخفاء أشرطة الأدوات بالكود أداة لتنسيق حقل المذكره كما في الوورد كود اغلاق البرنامج في توقيت معين أو بعد مضي فترة زمنية معينة دالة لتقريب الأرقام لأقرب نصف مثال لطريقة حساب العمر كود لاعادة ترتيب الترقيم التلقائي لسجلات الحقل اضافة سجل باستخدام ADO اضافة سجل باستخدام DAO اضافة سجل بتشغيل جملة SQL اضافة عنصر ActiveX بالكود كود الغاء علامة الاستعلام المعلمة كيفية منع المستخدم من اغلاق النموذج كود للتأكد من اغلاق جميع النماذج المفتوحة اضافة أسماء الملفات في مجلد الى حقل في الجدول كود لتغيير رمز سواقة الأقراص المدمجة كود لانشاء قاعدة بيانات جديدة مع تحديد كلمة السر لها كود لعمل فورمات أكواد التعامل مع الملفات و المجلدات انشاء علاقة بين جدولين بالكود و طباعة العلاقة اضافة حقل بالكود كود فتح قاعدة بيانات خارجية عمل فاصل زمني بين أمرين برمجيين كود تغيير اللغة الحالية تشغيل تطبيق خارجي من الأكسس تغيير خيارات بدء التشغيل برمجيا التجكم بأزرار لوحة المفاتيح برمجيا تصدير البيانات الى الوورد استخدام المفاتيح بطريقة SendKey اضافة ملف فلاش في قاعدة البيانات كود للاعلام بامتلاء القرص المرن

ثالثا : النماذج أنواع النماذج و طريقة انشاءها بواسطة المعالج التحكم في عدد سجلات النموذج الفرعي كود منع تكرار السجلات في النموذج كيفية طباعة سجل محدد من النموذج الفرعي كود لاضافة عنصر الى قائمة مربع التحرير و السرد كيفية منع المستخدم من اغلاق النموذج الا من خلال زر خاص كيفية عمل شريط القوائم كيفية فتح النموذج عند آخر سجل تم تحريره كيفية الحصول على الأرقام الشاغره بين رقمين كود لاضافة أرقام محصورة بين رقمين تلقائيا كيفية فتح نموذج آخر على قيمة معادله لها في النموذج الحالي مثال على الفهرسه اختيار الحروف كيفية مواصلة تنفيذ الكود بعد اغلاق نموذج يستدعى ضمنه كيفية تعطيل زر أمر بعد الضغط عليه مباشرة بحث تلقائي عن قيمة ضمن لائحة قيم List-Box تنسيق حجم النموذج ليتناسب مع حجم عناصره كيفية اعادة ضبط حجم النموذج حسب حجم الشاشة و دقتها كيفية اعادة ترقيم سجلات حقل بناء على قيمه معينه كيفية الغاء سجلات قديمه اذا وصل عدد السجلات الكلي الى رقم معين اعطاء رقم في النموذج ( ف ) يحسب بموجبه مجموع آخر ( ف ) سجل من الجدول تشغيل كود أو تعطيله من خلال زر أمر كود لاخفاء الحقول الفارغه في النموذج كود لتحديد حد أقصى لعدد أحرف مربع النص عند الادخال المجموع التراكمي في النموذج ما هي العلاقه البرمجيه بين مربع النص و العنوان المرافق له تحريك الكائنات ضمن النموذج مجموع نموذج فرعي في نموذج رئيسي ادراج صوره في النموذج كيفية فتح نموذج له مصدر بيانات مختلف في كل مره كيفية فتح نموذج في قاعدة بيانات أخرى كيفية ادراج وقت متناقص في النموذج كيفية عرض سجل بلون و الآخر بلون في النماذج المستمرة كيفية عمل تلميح يومي يتغير في كل مرة تفتح فيها النموذج مثال على شريط التقدم - نموذج يرجى الانتظار مثال لاخفاء و اظهار شريط الأزرار على النموذج استخدام الزخارف يؤدي لاهتزاز عناصر النموذج استخدام شروط في قاعدة التحقق من الصحه تغيير عنوان النموذج حسب قيمة الزر الذي يفتحه تحديد احدائيات النموذج على الشاشه التحكم في أعمدة و صفوف النموذج الفرعي ربط نموذجين بالكود كود جعل النموذج متاح للاضافة فقط و يقبل التعديل بكلمة سر

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

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

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

السلام عليكم بالاضافه الى ماذكره الأخ خضر : يمكنك أخي الكريم تحديد السجل الذي ترغب حذفه في النموذج الفرعي و تحذفه بشكل مباشر و اذا أردت الحذف من خلال كود . اذهب الى تصميم النموذج الفرعي , و ضع عليه الحدث التالي Private Sub Form_DblClick(Cancel As Integer) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 end sub وبذلك ينحذف السجل المطلوب بمجرد النقر المزدوج على النموذج الفرعي , بمجرد خرجت من الكتابه على النموذج الفرعي ثم ذهبت الى زر الالغاء على النموذج الرئيسي و ضغطت عليه , لن يكون هناك أي نموذج فرعي نشط أي أن الزر الذي تطلبه يجب أن تحدد له اسم النموذج الفرعي الذي سيحذف منه

السلام عليكم جزاك الله خيرا أخي جمال و يعطيك العافيه مثال جميل و أقترح لو هناك امكانية اضافة زر آخر لعرض اسماء الحقول في جدول معين تحياتي

السلام عليكم راجع هذا الموضوع الاستعلام التراكمي

ثانيا : الاستعلامات شرح جميع أنواع الاستعلامات مع أمثله تطبيقيه شرح أحرف البدل في الاستعلام تنفيذ الاستعلام بالكود مباشره كود تشغيل استعلام انشاء جدول مع طلب اسم الجدول تنسيق رسالة استعلام يطلب ادخال معلمه تشغيل استعلام من قيمه مختاره من مربع تحرير و سرد مثال على فرز سجلات الاستعلام و توزيعها بناء على رقم معين مثال على استعلام التوحيد معالجة خطأ تجميع , بانشاء استعلام توحيد أخطاء في عمل استعلام الالحاق مثال على استعلام يعطي مجموع تراكمي مثال على استعلام بشروط معتمده على مربع تحرير و سرد تشغيل استعلام بناء على قيمة حقل في النموذج مشاهدة بيانات الاستعلام محددة بين تاريخين كيف تفتح استعلام من نموذج لعرض بيانات محدده بين تاريخين ادخال أكثر من شرط في الاستعلام استعلام لاظهار آخر سجل نسخ بيانات سجل من نموذج في سجل جديد من نفس الجدول كود لحذف سجل بعد تاريخ معين اظهار قيمة حقل من الجدول اعتمادا على قيمة حقل آخر - نماذج استعلام اظهار قيم بناء على قيمة آخر تاريخ كود منع ظهور رسائل تأكيد التعديل أو الحذف أو الاضافه - نماذج معالجة تكرار البيانات في الاستعلام معالجة خطأ ظهور قيمة فارغه في استعلام طرح قيمة حقلين استعلام الحاق جداول من قواعد بيانات مختلفه نقل بيانات سجل من على النموذج الى جدول ثاني و حذف الأول استعلام لاظهار القيم الفارغه في الجدول وضع قيمه معينه لقيمة حقل عند تحقيقه شرط معين تمرير متغير عام في الاستعلام استخدام الشرط في الاستعلام كيفية تعريف حقل ينتمي لجدول آخر في الاستعلام منع التعديل في الاستعلام كيفية اختيار عدد معين لسجلات ناتج الاستعلام عمل ترقيم تلقائي لسجلات الاستعلام حذف السجلات المتكرره في الاستعلام

السلام عليكم اخواني بدأت بأرشفة مواضيع أرشيف الأكسس , و هذا ماتم انجازه حتى الآن , حيث المواضيع كثيره , و سأتم العمل ان شاء الله تباعا و ليكن كل يوم عدة مواضيع مثلا , و يتم اضافتها على هذا الموضوع لحين الانتهاء , ثم نبدأ بتنقيح مواضيع المنتدى العام , و اضافة الجديد منه الى هذا الموضوع . و في حال الانتهاء كاملا من العمل يتم نشره في صفحه جديدة للأعضاء . و من يرغب من الأخوه المساعده , فليتفضل مشكورا : أولا : أرشيف الجداول دوره متكامله في تصميم جداول الأكسس مثال عملي لتحليل و تصميم النظم الوصايا السبع للمبتدئين بالأكسس أنواع العلاقات بين الجداول مع مثال عملي قناع الادخال في الأكسس تنسيقات الأرقام و أمثله عليها البحث ضمن الجدول عن القيمه المقابله في جدول آخر كيفية تحويل حقل الى مربع تحرير و سرد لعرض أكثر من قيمة فيه تعلم الأكسس من خلال 4 ملفات وورد تعلم الأكسس بالصوت و الصورة قوالب تصميم قواعد بيانات جاهزة NorthWind شرح و تحليل قاعدة البيانات الشهيرة

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

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

السلام عليكم اكتب في حقل مصدر بيانات العنصر غير المنضم =date() ثم في التنسيق اختر تاريخ طويل

السلام عليكم لدينا مجموعة سجلات عباره عن فواتير يتم ادخالها وفقا للتاريخ الهجري , و بعد ذلك , و نظرا لاحتياجات الميزانيه و التقديرات الماليه , نقوم بتوزيع المصاريف على الأشهر الميلاديه و ذلك يعتمد على : أولا : تحويل فترة كل فاتوره من التاريخ الهجري الى الميلادي ثانيا : تحديد الأشهر الميلاديه الواقعه مابين فترتي من - الى الميلاديه ثالثا - تحديد قيمة ما يتحمله كل شهر رابعا - عمل استعلام cross tab لتجميع القيم الواقعه ضمن الأشهر بالنسبه لكل الفواتير و المطلوب عمل الخطوات السابقه فمن لديه فكره عن عمل ذلك فليتبرع مشكورا Distribution.rar

السلام عليكم اذهب الى شاشة تصميم النموذج , و ضع الموشر على مربع النص المطلوب ثم اذهب الى أدوات - تنسيق شرطي على اليسار يوجد حقل و به اختيارات : field value is اتركه كما هو الحقل الثاني و به عدة اختيارات تستطيع اختيار احداها حسب ما تريد , , و هنا تستطيع أن تختار : greater than ثم في الحقل الثالث ضع رقم 50 ثم اختر اللون الذي تريد ثم حفظ و طبعا تستطيع وضع عدة شروط أخرى حسب المطلوب

السلام عليكم ضع في مصدر بيانات العنصر غير المنضم المعادله التاليه : =forms!NextForm!NextText حيث : NextForm النموذج الذي تريد القراءه منه NextText مربع النص المطلوب أما كلمة froms فهي ثابته

الأخ مزكي الأفضل ايقاف الفأره عن العمل هل لك بارفاق المثال الذي قلت عنه مشكورا و جزاك الله خيرا

هل تريد الحاق السجل الحالي من خلال النموذج ؟ اذا كان كذلك , تضع في حقل الشرط للاستعلام الالحاقي , الشرط التالي : forms!myform!tableID بحيث أن tableID هو الحقل الموجود في السجل الحالي للنموذج , و موجود كذلك في الحقل الذي سيت الحاق البيانات اليه

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

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

المعذره , أنا قطعت هذا الكود من احد النماذج عندي , و نسيت انهائه على كل حال هذا هو بعد التعديل Private Sub Command4_Click() On Error GoTo Err_ClosCmd_Click Dim m As String Const mb_ok = 0, mb_okcancel = 1 Const mb_yesnocancel = 3, mb_yesno = 4 Const mb_iconstop = 16, mb_iconquestion = 32 Const mb_defbutton2 = 256, idyes = 6, idno = 7 m = InputBox(" enter your password") If m = "correct answer" Then Title = " رسالة تنبيه " Msg = (" هل أنت متأكد من أنك تريد حذف السجل ؟ ") dgdef = mb_yesno + mb_iconstop + mb_defbutton2 Response = MsgBox(Msg, dgdef, Title) If Response = idyes Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 End If End If Exit Sub Err_ClosCmd_Click: MsgBox Err.Description End Sub وشكرا على التنبيه

السلام عليكم أخي الكريم ليس من المستحسن نسخ البيانات في كل مره , الأفضل أن تعمل جدول خاص بالأسر , تضع فيه ماشئت من بيانات الأسره ثم تعمل جدول آخر مستقل لأذون الصرف , يكون فيه على سبيل المثال الحقول التاليه : رقم اذن الصرف - رقم الاسره - المبلغ - تاريخ - ... الخ و تعمل ربط ما بين جدولي الأسره و اذون الصرف على حقل رقم الأسره تعمل نموذجا خاصا تختار فيه جدول أذونات الصرف و تختار جميع الحقول التي تحتاجها من بيانات اذن الصرف تضيف على هذا النموذج حقول غير منضمه تمثل بيانات الأسره , و ليكن مثلا : حالة الأسره - عدد الأفراد و أنت بحاجه فقط لاختيار رقم الاسره و تظهر لك تلقائيا بقية البيانات انظر المثال المرفق __________________.rar

ضع هذا الكود في حدث عند النقر Private Sub ClosCmd_Click() On Error GoTo Err_ClosCmd_Click dim m as string Dim Ae As DAO.Recordset Const mb_ok = 0, mb_okcancel = 1 Const mb_yesnocancel = 3, mb_yesno = 4 Const mb_iconstop = 16, mb_iconquestion = 32 Const mb_defbutton2 = 256, idyes = 6, idno = 7 m=inputbox(" enter your password" ) if m= " correct answer " then Title = " رسالة تنبيه " Msg = (" هل أنت متأكد من أنك تريد حذف السجل ؟ ") dgdef = mb_yesno + mb_iconstop + mb_defbutton2 Response = MsgBox(Msg, dgdef, Title) If Response = idyes Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 end if end if