فهد الدوسري

شكراً لك أخي مهند .. أخي مهند .. لدي اعتراض على تسمية النماذج بنفس اسم الجداول . وأقترح أن نضيف في بداية النماذج For ثم اسم النموذج المطابق للجدول مثلاً النموذج الذي صممته أنت أخي مهند يكون اسمه هكذا :- ForStadiums أو For_Stadiums حتى لا نقع في أي إشكالية في ا…

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

أخي starnoor2000 أخي المبرمج2003 لكما مني جزيل الشكر والعرفان على كل هذه المحاولات الطيبة .

أن أعرف أن المثال الذي وضعته خاطئ ولكن وضعته لتقريب الصورة لكم . أما بالنسبة لمجموع الساعات فيمكن وضع هذا الكود في مصدر البيانات وتنحل المشكلة . =DSum("total_time";"tabl_time";"[number1] = '" & [number1] & "'") المهم عندي كيف أستطيع أن أجمع حقلين وأحدهما (( فا…

السلام عليكم ورحمة الله وبركاته .. سؤالي يتلخص في الآتي : الحالة الأولى : أسجل وقت الدخول للموظف وأنقص هذا الوقت من الساعة السابعة والنصف موعد دخول جميع الموظفين فيخرج لي مدة التأخر لهذا الموظف . الحالة الثانية :أيضاً ربما يخرج الموظف أثناء الدوام ولا يعود فأس…

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

ضع في حدث ( بعد التحديث ) لخانة الاختيار الكود التالي : If Me.w = 0 Then q.Visible = False نوع_الجائزة.Visible = False Else q.Visible = True نوع_الجائزة.Visible = True End If تحياتي ..

بالتوفيق إن شاء الله .

أخي مهند .. أخي أبو هادي .. لكما مني جزيل الشكر والعرفان على كل ما تقدمانه من فائدة وعلم . تحياتي ..

أصبحت الوحدة النمطية تعمل على ما يرام بعد تعديل الأستاذ أبو هادي يمكنك احتياطا تبديل هذا السطر : If Arabic_word Like changesearch(Arabic1) Then بهذا السطر : If changesearch(Trim(Arabic_word)) = changesearch(Trim(Arabic1)) Then تحياتي لكل من تعب معي .

عموماً أستاذي مهند ( كفيت ووفيت وما حصل منك تقصير) وأنا أشكرك من كل أعماق قلبي على سعة صدرك وتقبل إزعاجي . تحياتي ..

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

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

إذا كان رقما يصبح الكود هكذا If Me.NewRecord = True Then Dim strWhere As String, strMessage As String strWhere = "[aaa] = " & Me![aaa] & "" Me.RecordsetClone.MoveFirst Me.RecordsetClone.FindFirst strWhere If Me.RecordsetClone.NoMatch = False Then strMessage = …

أخي مهند شكرا لك حاولت تجربة المثال الذي قمت أنت بتطبيق الدالة الثانية عليه وجدت ما يلي :- 1- إذا كان في الحقل العلوي أي كلمة يوجد فيها (أإآا) فإنه يعطي رسالة الكلمة غير مطابقة حتى ولو كتابتها مثل ماهي مثال الكلمة فوق ( ام ) أقوم بكتابتها في الحقل الأسفل ( أم …

في النموذج ضع مربع نص وضع في مصدر البيانات ما يلي : =Count([اسم الطالب]) وسوف يخرج عدد الطلاب المسجلين في القاعدة ويمكن أن تضع رقم الطالب بدلاً من اسمه تحياتي ..

أخي مهند عاجز عن الشكر على سرعة ردك وتجاوبك فجزاك الله عني خير الجزاء ونفع بعلمك الإسلام والمسلمين وجعل الله هذا العلم من العلم الصالح الذي ينفع صاحبه في الدنيا والآخرة .. اللهم آمين . أخي مهند بالنسبة للكود الأول ( تغيير السجل الحالي ) فقد قمت بتنفيذه وهو يعم…

أعزائي .. السلام عليكم ورحمة الله لدي سؤالين وأتمنى أن أجد لديكم أجوبة لها مع الشكر مقدما . السؤال الأول : كيف أستطيع تغيير السجل الحالي في كل مرة أفتح فيها النموذج ؟ عمل الاستاذ أبو حمود ( الله يذكره بالخير ) هذا الكود ولكن فيه عيب أنه يكرر سجل معين دائماً أج…

بارك الله فيك أخي مهند

أيضاً حاول الاستفادة من عملية البحث المتاحة في المنتدى لتحصل على ما تريد إن شاء الله . تحياتي ..