نجوم المشاركات

القي نظرتا الى هذا SELECT CHECKINOUT.USERID, First(CHECKINOUT.CHECKTIME) AS FirstOfCHECKTIME, [11].ID, [11].FristName, Format([CHECKTIME],"dd/mm/yyyy") AS DateIN, First(Format([CHECKTIME],"hh:nn:ss AM/PM")) AS TimeIN FROM 11 INNER JOIN CHECKINOUT ON [11].USERID = CHECKINOUT.USERID GROUP BY CHECKINOUT.USERID, [11].ID, [11].FristName, Format([CHECKTIME],"dd/mm/yyyy") HAVING (((Format([CHECKTIME],"dd/mm/yyyy"))=[Forms]![ADSEmployees]![iDate2]) AND ((First(Format([CHECKTIME],"hh:nn:ss AM/PM"))) Between #12/30/1899 5:0:0# And #12/30/1899 9:59:59#)); TimeINOUT.zip

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

اتفضل تم اضافة مربع نصي اخر في نموذج الفرعي وتم استخدام هذا الكود =[الاشقاء نموذج فرعي].[Form]![Text25]+[الاجمالي] اليك المرفق مدرسة خاصة.rar

نعم mm.rar

رقيب: لا يتوفر له بيانات تاريخ تقاعد قاعدة البيانات3.zip

انا استخدمت هذا الكود بعد تحديث الاسم اي اذا كان لا يوجد اي حرف في الاسم سيكون حالة شاغر واذا كان هناك حروف اي اسم فيه سيكون الحالة مشغول اليك الكود Private Sub الوظيفة_AfterUpdate() If Len(Me.الوظيفة & "") = 0 Then Me.الوظيفة = "شاغر" Else Me.الوظيفة = "مشغول" End If End Sub جربه mm.rar

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.icmali > 5999 Then MsgBox "ان المبلغ الاجمالي اکبر من 5999 لذلك لا يتم الحفظ" Me.Undo Cancel = -1 End If End Sub جربه الان Database21.zip

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

جيد أستاذ يوسف أتحفنا بإبداعاتك: أستأذنكم في المشاركة معكم بهذا الكود: كود اليوم الأول من الأسبوع الأول: "01/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الأول: "07/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثاني: "08/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثاني: "14/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثالث: "15/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثالث: "21/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الرابع: "22/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الرابع: "28/" & Format(Date();"mm/yyyy")

اعتذر بشدة ... لم انتبهت على ذلك اتفضل اليك هذا استعلام SELECT CHECKINOUT.USERID, Max(CHECKINOUT.CHECKTIME) AS MaxOfCHECKTIME, [11].ID, [11].FristName, Max(Format([CHECKTIME],"dd/mm/yyyy")) AS DateIN, First(Format([CHECKTIME],"hh:nn:ss AM/PM")) AS TimeIN FROM 11 INNER JOIN CHECKINOUT ON [11].USERID = CHECKINOUT.USERID GROUP BY CHECKINOUT.USERID, [11].ID, [11].FristName HAVING (((Max(Format([CHECKTIME],"dd/mm/yyyy")))=[Forms]![ADSEmployees]![iDate2]) AND ((First(Format([CHECKTIME],"hh:nn:ss AM/PM"))) Between #12/30/1899 5:0:0# And #12/30/1899 9:59:59#)); TimeINOUT.zip

استخدم first في الاستعلام TimeINOUT.zip

شكرا لك انا ما انتبهت على ذلك استاذ @sandanet

اسال الله ان يزيدك من فضله استاذي يتربو بعزك

ما شاء الله تبارك الله بارك الله لك في الموهوب لك، وشكرت الواهب، وبلغ أشدّه، ورزقت برّه

الف الف مبروك استاذنا ابو احمد من مواليد السعاده يتربا بعزك ان شاء الله

الف الف مبروووووك وربنا يحفظه لك ومن الان يبقي اسمك ابو احمد بارك الله في جودي ومبروك مرة تانية

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

هل تم إنشاء محرك أقراص شبكي أم لا؟ هذا هو المهم عندي الآن! فاذا تم ذلك فمعنى ذلك أن الإجراء صحيح.. أما ربط الجداول فيمكن معرفة السبب لاحقا.. ملاحظة: أغلاق قاعدة البيانات يقوم بقطع الاتصال بمحرك الأقراص إذا تم إنشاؤه.. التحقق يكون قبل إغلاق قاعدة البيانات.. محرك الأقراص الشبكي سوف يكون معرفه (:Z)

في الخلية H5 هذه المعادلة =IF(ISNA(MATCH($H$4,$A$3:$A$7)),$A$3,INDEX($A$3:$A$7,MATCH($H$4,$A$3:$A$7)+1)) في الخلية H6 هذه المعادلة =INDEX($A$3:$A$7,MATCH($H$5,$A$3:$A$7,0)+1) اذا لم تعمل معك المعادلة استبدل الفاصلة "," بفاصلة منقوطة ";" (حسب اعدادات الجهاز عندك )

اتفضل اليك كود قبل تحديث مثلا عندك مربع نصي باسم تيكست 0 Private Sub Text0_BeforeUpdate(Cancel As Integer) If Left(Me.Text0, 1) <> 9 Then Me.Undo MsgBox "يجب ان تبدأ من رقم 9" End If End Sub

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

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

بسم الله والصلاة والسلام على أشرف المرسلين اخوي أبا جودي اسال الله ان يزيدك علما وتم التوصل للمطلوب والمعذره كلفت عليك واشغلتك

جزاكم الله خيرا ان شاء الله واسال الله تعالى قبول تلك الدعوات الطيبات الطاهرات المباركات ان يرزقك كل ااستذتنا الكرام فى هذا الصرح الشامخ الذين نتعلم منهم وعلى ايديهم ويزرقنى واياكم وكل المسلمين من امة سيدنا ونبينا وحبيبنا محمد صلوات ربى وسلامه عليه خير هذه الدعوات الطيبة اختنا الكريمة وقت الشرح واعتذر عن تأخرى فى الرد عليكم اولا التعديلات التى تمت كالاتى : 1- النموذج user2 مربع النص n1 الحدث بعد التحديث الكود القديم DoCmd.Requery الكود بعد التحديث اصبح كالاتى DoCmd.Requery If IsNull([user_name]) Then Ms$ = "لا يوجد مستخدم بهذا الاسم" Ti$ = "خطأ اسم مستخدم" Re = MsgBox(Ms$, 0, Ti$) n1.SetFocus Else n2.SetFocus End If استخدمت if الشرطية بحيث لو اسم المستخد غير موجود او تمت كتابته بطريقة خاطئة تظهر رسالة تفيد بعدم وجود هذا المستخدم ولو تمت الكتابة لاسم المستخدم بشكل صحيح بحيث يوافق احد اسماء المستخدمين يقوم بنقل التركيز الى مربع النص باسم n2 -------------------------- 2- النموذج PP >>---------------> النموذج الفرعى مربع النص باسم نص58 القيمة الافتراضية قبل التعديل كانت =[Forms]![user3]![full_name] قمت بحذف هذا السطر من القيمة الافتراضية لمربع النص ووضعت هذا الكود فى مصدر بيانات مربع النص =[Forms]![user3]![full_name] ثم قمت بعمل تنسيق شرطى لكل مربعات النص [nem]<>[نص58] >------------------->> عدم تمكيل اعتذر على التاخير انا لسه جاى من الشغل

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

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

انا فعلا اسف باعتذر على التأخير طب ممكن سؤال انا بأفكر من شوية فى موضوع حضرتك دلوقتى ايه راى حضرتك نعمل عدد 2 نموذج الاول لإدخال البيانات النموذج الثانى لفتح البيانات مع السماح بالتعديل عليها ويتم عمل فلتر على البيانات فتظهر سجلات كل مستخدم له فقط دون الباقى ؟ وللعلم باسورد المستخدم احمد 3 مش 2

الشيء المهم والذي يجب ان يعرف : ان الضغط والاصلاح لقاعدة البيانات هو عبارة عن عملية يتم من خلالها خطوتين اثنتين وثالثة 1- نسخ القاعدة الى الذاكرة مع الضغط وتغيير الاسم 2- حذف القاعدة الاصلية 3- اعادة لصق ما في الذاكرة واعادة اسمها الاصلي ومن هنا يتبين خطورة العملية فيما لو لم يتم اخذ الاحتياطات اللازمة فالاولى عند تنفيذ العملية ان يسبقها مباشرة في اول الكود عملية اخذ نسخة احتياطية

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

وعليكم السلام ورحمة الله وبركاته اهم نقطة في الامان وهي التي يجب ان تؤخذ في الاعتبار : أخذ نسخة من القاعدة قبل الاصلاح والضغط وايضا : - مراعاة ان تكون القاعدة الخلفية منفكة من الواجهات ويتحقق عدم الارتباط عند تخصيص نموذج البداية غير منضم لمثل هذا العمل - مراعاة تناسب حجم قاعدة البيانات مع ذاكرة الجهاز المتوفرة