كل الانشطه

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

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته شكرا جزيلا علي ماتقدوه من مساعدة للأعضاء وجعله الله في ميزان حسناتكم وزادكم الله من علمه الملف المرفق هو عبارة عن كشاف للمعلمين خاص بالامتحانات مكون من جدول للمعلمين وفورم لهذا الجدول واطبع منه مباشرة والمشكلة الدباجة في اعلي النموذج مكونة من 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

أخى فادي أرجو أن يتسع صدرك لإجراء مزيد من التجارب الميدانية على تطبيقك 2003 بعد إضافته كوظيفة إضافية لبرنامج أكسس عملت على إنشاء قائمة مختصرة من خلاله وليس استيراد وكان التصميم كالتالي وعند استخدام هذا الإنشاء على التقرير الأول بقاعدة البيانات المرفقة ، فإن القائمة المختصرة تكون كما فى الصورة أما عن سطر التصدير فقد وقف عند الأكسل ولا ينفذ قمت باستيراد قائمة مختصرة من أحد تطبيقاتي لبرنامجك ( قمت بتنقيحها من قبل من عدة قوائم مختلفة يدوياً ) وكان تصميمها على برنامجك كالتالي أما عند استخدامها و إضافتها للتقرير الثانى فإن كل بنودها قد تم وضوحها وتفعيلها فقط جرب القائمة المختصرة فى كل تقرير على حده من الملف المرفق ،و سيتضح ما ذكرته للعلم جربت ما سبق على أكسس 2024 ولم يتغير شيئاً مما سبق db.mdb

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

استاذ هل تسطيع اضافة فتح مربع حوار لاختيار الملف الاكسيل

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

شكرا جزيلا أخي الفاضل خليفة وبارك الله فيك وفيكم جميعا وأخي الكريم منتصر

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