ابوخليل

الكود موجود في المنتدى وانا عرضته كاملا مع شروحات الأصل في اكثر من مشاركة تخص ربط الجداول ولكني هذبته لغرضي هذا الخاص هذا هو الكود: Public Function AutoLinks(ByVal strDBPassword As String) As Boolean On Error GoTo AutoLinksErr Dim tdf As TableDef Dim strNewMDB As String For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then strNewMDB = "c:\bader\BData.db" If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf AutoLinks = True ' AutoLinksDone: Exit Function AutoLinksErr: MsgBox "لا يوجد قاعدة بيانات فضلا اتصل بالدعم الفني" 'MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume AutoLinksDone End Function ويتم مناداته في نموذج البداية على هذا النحو : If AutoLinks("") = False Then Call Application.Quit End If وهذا مرفق صغير عبارة عن مجلد .. تم اعداده على ان يتم وضع المجلد على قرص C وللتجربة يمكن اخذ نسخة من القاعدة الخلفية BDAta.db ولصقها في اي مكان آخر وتغيير اللاحقة الى mdb واجراء التجربة bader.rar

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

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

اكيد يوجد حل وافضل من الأول يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة ‫hafez2.rar

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

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

ابشر طلبك قيد التنفيذ ...

الاعمدة المرفقة انواع ، فضلا ارفع مثالك

عليكم السلام ابحث في المنتدى عن : الوارد اولا صادر اولا المنتدى مليء بمثل هذه المواضيع

تم دمج الموضوعين

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

كان الاولى ان تعمل نماذج حسب فكرتك ليتم التطبيق عليها تفضل التعديل db1.mdb

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

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

تفضل فلترة للتقرير بناء على مربع قائمة ، عملته على المرفق الأول اختر بند او اكثر ثم افتح التقرير ، للعلم استعلام التقرير جعلته بداخل التقرير والنموذج الفرعي كذلك ولكني لم اكمله Dim stDocName As String Dim strCriteria As String stDocName = "الصباحية والمسائية" strCriteria = "1" strCriteria = strCriteria & filtering(Me.cbo1, "EAAQAH", "'") DoCmd.OpenReport stDocName, acPreview, , strCriteria 219_.rar

هل تقصد ترقيم سجلات جديدة ؟ ام تريد اعادة ترقيم الموجود ؟

لا تجعل المعايير بصف واحد ضع واحد في سطر المعايير والآخر في السطر ( او ) اللي تحته الآن في مثالك كأنك تقول : خذ من مربع التحرير 1 ( and ) مربع التحرير2 واذا وضعت المعيار الثاني في السطر الثاني كأنك تقول : خذ من مربع التحرير 1 ( Or ) مربع التحرير2 Query.accdb

لم افهم !! ارجوا التوضيح

المعروف ان استعلام التوحيد تم بناؤه على استعلامات تحديد الحل ان تفك بناء استعلام التوحيد هذا وبعد التحديث تعيد بناءه

في مثل طلبك قد تحتاج الى حقل او اكثر في الجدول يحتوي على توصيف لما تريد ان تقوم بتصفيته مستقبلا عملت لك حقلا للوصف في جدول الاعاقة وآخر للتصفية حسب الرغبة هكذا يمكنك التحكم بظهور البنود واحدا واحدا وايضا اختيار ما تريد ضمهما الى بعض وفصل ما تريد 218.rar

عمل جميل خاصة الشاشة الرئيسية النتيجة النهائية هي اخراج التقارير ‘ وقد وصلت اليه يمكنك اخراج العديد منها . مثلا : احصائية بعدد الاجهزة قيد الاستخدام حسب النوع والموديل حسب الادارة او الجهة نافذة استعلام عن حالة جهاز محدد وغيرها مما ترى انك بحاجة اليه .. التقارير هي زبدة المشاريع ، اتمنى لك مزيدا من الابداع والاحتراف

مشاركة مع اخي جعفر ومن باب اثراء الموضوع عثرت على وظيفة تنسخ الصورة من النموذج ويمكن لصقها في برامج التواصل كــ الوتساب للصق استخدم ctrl+v photo.rar

ما دمت نصحتك بعدم استخدام الجدول الواحد فكان لزاما ان اعرض عليك البديل تفضل المرفق يشتمل على : 1- ثلاث جداول للحسابات ( يمكن ضمها في استعلام واحد والتعامل معها) 2- لمسات على الشجرة : - ضبط الاتجاه الى اليمين بكود مختصر - تلوين العقد كما يوجد خصائص اخرى لتنسيق العرض الشجري كتلوين الخلفية وفتح النماذج من خلال النقر على العقد ، يمكن تحقيقها حسب الرغبة والطلب treeviewClr.rar

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