ابوخليل

المقصود في المتغيرات : السطر اعلاه في اول مثال لك كان 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

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

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

اي فلترة ؟؟ اذا اخترت المعرف فليس لك خيار الا سجل واحد فوجود الفلترة لا معنى له

عليكم السلام المجاميع المتغيرة ليس مكانها الجدول فقط يتم عرضها في النماذج والتقارير بواسطة الاستعلام .. او الكود كمصدر بيانات للحقل sumAm: nz(dsum("amount","tbl_BonusAmount","no_emp='" & no_emp & "'"),0) test12.rar

حسب طلبك بالضبط .. وحتى يكون الجواب طبق الأصل من السؤال نظفت المثال من جميع الاكواد والازرار الزائدة يمكنك نقل الحل الى برنامجك baseF.rar

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

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

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