ابوخليل

ليست كل العلاقات ذات اهمية داخل الجداول المهم ضبط الجداول بصورة صحيحة تفضل تم التعديل بشكل سريع .. ومن ضمنها التسميات يفضل ان لا تبدأ بارقام ايضا الترقيم يفضل ان لا يبدأ بالرقم 1 الا لمن لا يتجاوز عددهم 9 والبداية من 11 لمن لن يتجاوز عددهم 99 او 111 لمن لن يتجاوز عددهم 999 ... وهكذا ... والسبب هو ما سوف تواجه عند الفرز والتصفية والبحث .. School2.rar

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

انا كنت اعمل على الكود لما رأيت كود الاستاذ فادي وقرأته اعتقدت انه يلبي المطلوب وتوقفت عن اكمال الكود الآن وبعد تأكيد ما فهمته من قبل الاستاذ احمد اليكم الحل دالة تأخذ قيمة B وتقارنها بأي حقل داخل السجل : Public xfld As Byte Public Function Allfld(x As String) As String On Error GoTo ErrHandler Dim rs As Object, i As Integer Set rs = CurrentDb.OpenRecordset("SELECT TP2.* FROM TP2 WHERE TP2.GradeNO= " & [Forms]![form1]![A] & "") i = 0 For Each Field In rs.Fields i = i + 1 If x = rs.Fields(i) Then xfld = 1 Exit Function End If Next Set rs = Nothing ErrHandler: If Err.Number = 3256 Then Exit Function End If End Function ويتم مناداتها من النموذج : Private Sub B_AfterUpdate() xfld = 0 Call Allfld(Me.B) If xfld = 0 Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If End Sub Test-11.rar

مشاريع سهلة قصيرة - مشروع مكتبة عامة او مدرسية - مشروع ادارة منزلية - مشروع حضور وانصراف

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

مشروع العيادة : اكتروني بلا ورق الأدوات على الأرض : نقاط فرعية او حواسيب متوفرة عند كل من : ( الاستقبال / الفحص السريع/ غرف عيادة (طبيب) / مختبر / اشعة / صيدلية الرسم التصوري : رأس الهرم أو رأس المشروع = المريض لذا يجب ان يكون معرف المريض في جميع الجداول الرئيسية مسار البرنامج او الخطوات : تتم آليا 1- الاستقبال : تسجيل المريض وتحويله الى الفحص السريع 2- يظهر عن الطبيب الذي تم اختياره 3- بعد الفحص يتم اكمال الخطوات التي يراها الطبيب 4- يظهر عند المختبر او الاشعة ويتم ادخل النتائج 5- يطلع عليها الطبيب ويصرف الدواء 6 - تظهر عند الصيدلي _________ بناء على هذا التصور .. يتم تقدير الجداول بالطبع يوجد الكثير من الجداول الفرعية التي تخدم المسار ----------------- نصيحة ... برنامج العيادات كبير ومتشعب جدا ,, ومادمت تريد التعلم فابحث عن مشروع سهل ويسير

سأعرض لك هذا التصور من خلال مشروعك العيادة

بعد ان اقمت البناء والجدران والغرف والدور الثاني ... تأتي تسأل عن القواعد والميدات والأعمدة !!! من سنين وفي كل مشاركة مناسبة وانا اوجه واقول 80% من بناء المشروع يتمثل في ضبط الجداول لن يكون مبرمجا متمكنا حتى يكون في مخيلته رسم تصوري للمشروع ( المدخلات/ المخرجات ) حال تصميمه للجداول

تفضل حسب فهمي Dim i, ii As String i = Nz(DLookup("txt_h", "TP2", "GradeNO=" & Me.A), "") ii = Nz(DLookup("txt_e", "TP2", "GradeNO=" & Me.A), "") If Me.B <> i And Me.B <> ii Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If Test-11.rar

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

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

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

ابحث عنك وجابك الله نصيدك في هذه الزحمة هذا مثال لك اعجبني جدا ضمن الرابط الذي وضعه اخونا @Foksh يشتمل على 6 اقسام ويندرج تحت كل قسم فرعين ماذا لو كل قسم اختلف عدد الازرار الفرعية فيه عن الآخر ؟ مثلا نريد تحت القسم الاول 4 ازرار فرعية وتحت القسم الثاني زر واحد وتحت الثالث 2 زرين ... وهكذا حسب الحاجة صفحة رئيسية مطورة 2.rar

تفضل التغيرات2.rar

وايضا في هذا المكان ان كان للابداع وصف

نعم هذه هي المتبعة على الطابعات العادية علما ان الطابعة تقوم بالمهمة لوحدها ... كتاب او رسالة جامعية مكونة من 500 ورقه ( وجه واحد ) والصفحات مرقمة 1- اضع 250 ورقة في درج الطابعة 2- اختار من خصائص الطابعة ( طباعة الصفحات الفردية) 3- بعد اكتمال الطباعة اقلب مجموعة الورق ( المحافظة على الترتيب نفسه) 4- اختار من خصائص الطابعة ( طباعة الصفحات الزوجية )

انظر هنا في هذا الموضوع ، تجد ما لذ وطاب

عجيب !! هذا لا يتصور وغير منطقي !!!! المسألة فيها إنّ المنطق يقول : حذف الصورة من المجلد .. لا علاقة له من قريب او بعيد بالرابط وجلب الصورة منه حاولت ابحث عن موقع يشتمل على صورة ووجدت ... وعملت الحذف ... وحذفت .. ثم جلبت مرة وحذفت .. ومرات وحذفت ... جرب المرفق kan.rar

ما دمت تعرض كورقة بيانات فحسب علمي لا يمكنك تجميد الأعمدة والمتاح .. هو التحكم في عرض الاعمدة الافتراضي عند فتح النموذج

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

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

ما فيه شي اسمه حدث بعد التحميل لتيكست بوكس فيه حدث بعد التحميل للنموذج وانت كتبت الكود فعلا .. فقط قم بترجمته if com = "كذا" then t1.SetFocus elseif com = "كذا" then DoCmd.OpenForm " mok", acNormal end if

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

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

المقصود في المتغيرات : السطر اعلاه في اول مثال لك كان Dim i As Integer, x As Integer والصحيح ان يكون : Dim i As Double, x As Double Dbl وليست Dbi اختصار لـــ Double