كل الانشطه

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

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

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

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

اعتذر عن المتابعة .. المرفق الذي كان العمل عليه لا يطابق المرفق الأخير ، وهنا اتوقف عن المتابعة لأن الجدول يستخدمه أكثر من نموذج . ثانياً ما الفائدة لا أعلم .. فيمكن الإستغناء عن فكرتك هذه بفكرة إضافة حقل للقيمة الإفتراضية التي تم تعديلها مؤخراً ويتم حفظها فيه . وبالتالي لا حاجة لتلعب في تصميم الجدول وتخسر بياناتك في أول خطأ صغير . أعتدل عن فكرتي لصحة ما تفضل به معلمي @ابوخليل منطقياً وبرمجياً .. مع اتلاف التنفيذ فإنه يعود لك أخي جو .

شكرا لكل من حاول مساعدتى

شكرا استاذ بارك الله فبك

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته شكرا جزيلا علي ماتقدوه من مساعدة للأعضاء وجعله الله في ميزان حسناتكم وزادكم الله من علمه الملف المرفق هو عبارة عن كشاف للمعلمين خاص بالامتحانات مكون من جدول للمعلمين وفورم لهذا الجدول واطبع منه مباشرة والمشكلة الدباجة في اعلي النموذج مكونة من 20 عمود وفيه عدد الأيام وهي متغيرة ، والتاريخ وهو متغير ، والفترات ف1 – ف2 وهي متغيرة وممكن يدخل صفين في فترة واحدة ( وطبعا ادخل الأيام يدوي والصفوف والفترات ) وأنا عايز اتعامل مع النموذج من غير ما ادخل علي طريقة عرض التصميم بمعني عايز اختار اليوم واختار الصف واختار الفترات بنفسي من النموذج ويتم طباعتها في تقرير saad.accdbsaad.accdb

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

استاذى الفاضل حضرتك بتقولى ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج مش فاهم امسح القيمة الافتراضية من النموذج ممن فيديو توضيحى لانى مش فاهم اعمل دة ازاى

تفضل استاذ @بلال بلال الشرح والمرفق حسب طلبك ومجرب تمام . ووافني بالرد . Import Excel From Gmail.rar

سامحني نكمل غداً اشاء الله لاني نظري تعب جداً .

جاري العمل لا تيأس .

استاذ عند ارسال الموظف ملف الاكسيل الى الايمايل يتم تحميل ملف ونقوم بستراد الى البرنامج

1- تقصد نموذج جديد به كمبوبكس تشتمل غلى 3 ورقات الاكسل وعند اختيار ورقة ينفذ العملية ؟؟؟ 2- ام زر يستدعي ملف الاكسل من اي مكان بالكمبيوتر ووضع مساره بتكستبكس . والتعامل مع هذا المسار بدلا من الاعتماد على وجود الملف بجوار القاعدة ؟؟ اختار 1 او 2 او كلاهما او اي شئ آخر .

تفضل د / @jo_2010 التعديل بطلبك ومجرب . ووافني بالرد . JO_Lab-17-06-2026_2.rar

المنفذ والبروتوكول: الأفضل استخدام المنفذ 587 مع TLS. المنفذ 465 مع SSL أحيانًا يرفض الاتصال. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True بدل لو كان 465 الى 587 او العكس

تفضل استاذ @مصطفى حماد سيد حماد هذا مرفق من عندي وبه طلبك . ووافني بالرد . NewTest.rar

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

وعليكم السلام ورحمة الله وبركاته .. لم نفهم المشكلة بالضبط . ولكن من خلال تجربتي لملفك المرفق ، كانت هذه تجربتي :-

صحيح 100% ، وقد تم تعديل الملف المرفق في المشاركة السابقة بإزالة القيمة الافتراضية من مربع النص فعلاً .. شكراً لملاحظتك الثاقبة أخي منتصر

قام الاخ @Foksh مشكورا بحل المشكلة ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

هذه تجربتي على ملفك المرفق ، ولكن على الإصدار 2010 . أما الإصدار 2003 فقد قمت بتثبيته على جهازي الثاني في المنزل .. وسأعمل على تجربة نفس المرفق على الاصدار 2003 :-

مشاركةً مع الأخوة والأساتذة .. اعتقد ان هناك مشكلة قد تواجهك إن كنت تريد تعديل خاصية الحقل داخل الجدول فعلاً .. وهي أن الجدول سيكون قيد الإستخدام يا صديقي !! صحيح ؟؟؟ لهذا اعتقد ان هناك إلتفاف حول الهدف بحيث نقوم بإلغاء ارتباط الجدول بالنموذج ، ومن ثم التعديل وإعادة الربط . وكل هذا في جزء من الثانية .. جرب تعديل حدث عند النقر المزدوج لمربع النص Esal :- Private Sub Esal_DblClick(Cancel As Integer) Dim TaskDialog As Y_CTaskDialog Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strSource As String Set TaskDialog = New Y_CTaskDialog With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_INPUT_BOX + TDF_RTL_LAYOUT .MainInstruction = "رقـم الايصـال الاسـاسـى" .Content = "ما هـى ... القيمة الافتراضية للايصال " .CommonButtons = TDCBF_OK_BUTTON Or TDCBF_CANCEL_BUTTON .IconMain = IDI_QUESTION .InputBoxTextAlign = TDIBTA_Right .InputAlignInFooter = tdcaRight .InputAlign = TDIBA_Footer If Not IsNull(txtChoices) Then .InputWidth = txtChoices .InputCueBanner = " من فضلك أدخل رقم الايصال ؟ " .DefaultCustomControl = tdccNothing .ShowDialog If .ResultMain = 1 Then If IsNull(.ResultInput) Or Not IsNumeric(.ResultInput) Then MsgBox "يجب تحديد قيمة رقمية", vbMsgBoxRight, "قيمة خاطئة" Exit Sub Else If Me.Dirty Then Me.Dirty = False strSource = Me.RecordSource Me.RecordSource = "" Set db = CurrentDb() Set tdf = db.TableDefs("Tbl_Lab_All") tdf.Fields("NO").DefaultValue = """" & .ResultInput & """" Set tdf = Nothing Set db = Nothing Me.RecordSource = strSource DoCmd.GoToRecord , , acNewRec Me.NO.DefaultValue = """" & .ResultInput & """" End If ElseIf .ResultMain = 2 Then Undo Exit Sub End If End With Set TaskDialog = Nothing End Sub ووجب مني التأكيد على ما تفضل به معلمي الفاضل @ابوخليل ، بأن الإسم No هو من الأسماء المحجوزة لآكسيس . وهذا خطأ كبير جداً أخي جو . ملاحظة :- تم العمل بالتعديل على ملف المشاركة التي تفضل بها أخي @منتصر الانسي . JO_Lab.zip

وعليكم السلام ورحمة الله وبركاته اليك الحل بالمعادلات في شيت1 بالاكواد شيت2 مثال1.xlsb