ابوخليل

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

فكر معي خارج الصندوق جدول للموظفين .......... موجود جدول الاصناف ........... موجود وهذه الجداول تعتبر بالنسبة للمشروع جداول خدمية ثابتة أي جامدة نوعا ما جدول الحركة ......... وهذا هو الذي يبنى عليه النموذج الفرعي .. وهو الجدول المتغير الذي تجرى عليه 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

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

السلام عليكم مشاركة معكم احبتي الأخطاء طفيفة فقط بحاجة الى تأني كالتالي : 1- اعلن عن المتغيرات integr والواجب تكون Dbl 2- في المقارنة اخطأ ووضع اصغر من بدلا من اكبر من ... وهذه هي مشكلته الأساسية ايضا داخل الكود تسميات الحقول تنتهي بحرف L والصح تنتهي برقم واحد ... وطبعا صعب التفريق بينها عند المشاهدة Ab.rar

الحمد لله .. جزاك الله خير

وهذا برنامج مدفوع .. بحثت في مكتبتي فوجدته للاخ ابو ريان الزهراني ALZHRANI.rar

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

عليكم السلام الدالة iif تقوم بالمهمة على اكمل وجه myDate:iif([t]="1",date_dim,iif([t]="2",date_lun,iif([t]="3",date_mar,iif([t]="4",date_mer,iif([t]="5",date_jeu,""))))) times2024_2.rar

مشاركة لعل فيها فائدة لنسخ النصوص او الملفات كود نسخ SendKeys ("^(c)"), True كود لصق SendKeys ("^(v)"), True كود نسخ ولصق ملفات On Error Resume Next filecopy "c:\firstfolder\db1.mdb","e:\secondfolder\db1.mdb" if Err then msgbox "copy error" end if

ايضا من خلال امثلة الاخوة الكرام بعد انقضاء الوقت يمكنك اظهار شاشة الدخول والمطالبة بكلمة المرور ويبقى البرنامج غير مفعل في الخلفية

ولكن مشاركة الاستاذ محمد في سبتمبر 2020

الأساسات اولا كما سبق وذكرت .. الجداول وتصميمها بطريقة علمية صحيحة بمايخدم المشروع .. رؤية مسبقة وتصور لما سينتهي عليه المشروع 1- مدخلات 2- مخرجات كل هذا اثناء تصميم الجداول في نهاية هذه المرحلة نكون انجزنا 70% - 80% من المشروع يتبقى 30% هي عملية النماذج والتقارير

تفضل فقط نكرر الأمر عند حدث مفتاح السهم serch2.rar

هذا مرفق كنت عملته للبحث عن الأخطاء وسببها .. باللغة العربية AccessAndJetErrorsاخطاء اكسس بحث.rar

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

آمين وإياكم

يا رعاك الله يا خير الإيمان المثال على اسمه مثال بارك الله فيك اكثر من 4000 سجل كثيرة والحجم كبير وتكون عبئا على المنتدى --------------------------- المكان الصحيح لعدد سجلات الصفحة في التقرير هو ذيل الصفحة وليس رأسها ، لأن الحدث يأتي بالترتيب تفضل تم اظهار عدد كل صفحة والعدد الكلي في نهاية التقرير Public intPageCount As Integer Private Sub Report_Open(Cancel As Integer) intPageCount = 0 End Sub Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) intPageCount = intPageCount + 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) txtPageCount = intPageCount intPageCount = 0 End Sub كشف2.rar

تفضل الكل يعمل baseF2.rar

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

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