كل الانشطه

السلام عليكم اخواني واحبتي في الجدول tblCtrlDetails اريد من خلال استعلام اظهار السجل الذي يمثل الوقت الحالي حسب اليوم والفترة فقط الوقت الحالي محصور بين وقتين (بداية ونهاية ) ...................................................... الأيام : أيام الأسبوع : الأحد /الاثنين / الثلاثاء / الأربعاء / الخميس نهاية الأسبوع : الخميس / الجمعة / السبت لاحظ ان يوم الخميس مشترك .................................................................. لك مطلق الحرية في تغيير اوقات الفترات ... والأيام واعتقد من اجل التجربة يجب العبث بوقت جهاز الحاسوب Database1.accdb

ما شاء الله مجهود كبير تسلم على الشغل العالي ده

السلام عليكم ورحمة الله وبركاته الأخوة والأخوات الكرام تحية طيبة وبعد،،، يوجد بالمرفقات ثلاث ملفات بعد فك الضغط 1- نموذج الـ Html باسم {ahmosAutoHtmlTemplate_V10} وتحتاج إليه فقط اذا اردت التعديل او اضافة اي شي للنموذج بشكل دائم ولإضافتة داخل البرنامج : - قم بنسخ كامل المحتوي ثم قم بتشغيل الكود التالي : [Call splitAutoTableSections] 2- ملف نصي باسم {Text_Table_Sample} ويستخدم بنسخ محتواه ثم الضغ علي الزر [Convert Copied Text To html] بالنموذج يتضمن هذا الملف مثال لجدول محدد بالعلامات التالية \t ---> vbTab علامة الفصل بين الأعمدة \n ---> vbLf علامة فصل السطور داخل الخلية \r\n -> vbNewLine علامة السطر الجديد 3- البرنامج باسم {Ahmos_AutoHtmlTable} يقوم البرنامج بتحويل الجداول الداخلية باستخدام استعلامات الـ SQL الي صفحة ويب و اي جدول خارجي عن طريق نسخ الجدول بالكامل او إذا كان الجدول علي شكل نص تم تجميعة برمجياً يوجد أمثلة كما يمكنك التجربة علي اي ملف اكسيل مع بعض الصور بعض أهم النقاط : 1- داخل هذه الوظيفة { Public Function autoTblBody } يتم معالجة محتوي الخلية للجداول الخارجية وهنا تم إضافة بعض المعاير مثل إذا كان المحتوي رقم اقل او بساوي 5 يتم توسيطة داخل الخلية اذا كانت القيم TRUE or False / YES or No يتم التوسيط وتغير اللون إذا كانت بداية الخلية = او ' يتم إزالتها وكذلك الوظيفة الخاصة بالجداول الداخلية { Public Function sqlToHtmlTbl } 2- يمكن إضافة عمود فارغ علي صفحة الـ HTML باستخدام addRecNumField = True وهو يضيف عمود recNum وفائدة هذا العمود يوجد وظيفة داخل الـ JavaScript تقوم بعمل ترقيم تلقائي لهذا العمود يتم الترقيم التلقائي عن 1- فتح الصفحة 2- عند التصدير وذلك حتي يتم تعدل الارقام علي الصفوف الظاهرة فقط 3- عند عمل إلي للتصفية Clear Filters الوظيفة هي function renumberTableColumn(columnHeadName, filterOnly = false) ويمكن ان تستخدم لترقيم اي عمود بكتابة اسم العمود بدل من columnHeadName هكذا 'recNum' اما filterOnly تحدد إذا كنت تريد ترقيم الصفوف الظاهرة فقط ام كامل الصفوف false كامل الصفوف true الظاهرة فقط اي ما يتبقي بعد البحث او التصفية 3- وظيفة saveTable تمكنك من حفظ الصفحة مرة اخري وفائدتها هي ان تقوم بحفظ نسخة اخري من الصفحة بعد حذف أعمدة او تصيفة صفوف function saveTable(deleteHiddenRows = true) وهي بشكل افتراضي تقوم بحذف الصفوف الغير ظاهرة من النسخة وليس من الأصل 4- ستجد Optional ByVal constFileName As String = "", _ داخل الوظيفة { strTbltToHtml و sqlTbltToHtml } ويسخدم هذا في تعديل هذه القيمة داخل نموذج الـ Html $fileName$ <span id="fileName" style="display: none;">$fileName$</span> وفائدتة هي وجود وظيفة في الـ java script {getExportFileName} تقوم بتحديد اسم الملف عند التصدير وتقوم بإضافة الوقت والتاريخ له فاذا كانت القيمة هنا $fileName$ او فارغة سيتم استخدام قيمة افتراضية [ahmosExTable] وغير ذلك ستسخدم أغلب وظائف الـ java script قمت بها بمساعدة الـ AI ولكن الحمد لله فاهمها بنسبة كبيرة 😁 بالتوفيق Ahmos_AutoHtmlTable_Files.zip

الاستاذين القديرين الاستاذ / ابوخليل الاستاذ / kkhalifa1960 بارك الله فيكما ولا حرمك الله الاجر يعجز اللسان وتقف الكلمات عاجزة عن الشكر

السبب في مشكلتك ليست في الأكواد أو الأدوات ، وإنما من بنية الجدول في اكسيس لديك !!! على سبيل المثال :- العمود E ويمثل alsaf_Id في اكسل وقيمته على سبيل المثال = كي جي1 . بينما نظيره في جدول اكسيس = الحقل alsaf_Id ، وهو حقل رقمي . فكيف سيتم نقل قيمة نصية الى حقل رقمي !!!!!!!!! إذا عرف السبب بطل العجب وهنا ينتهي دوري للأسف .

دع الـ B الأولى كما هي وبدل في الـ B الثانية: With Range("B3:C" & LR) في سطر التبديل بين الياء والألف المقصورة، العادة يتم تبديل الياء بالألف المقصورة وليس العكس أي نتخلص من النقط كما فعلناها مع التاء المربوطة والهاء وكما تخلصنا من الهمزات. ولكن الموجود في الكود هو تبديل الألف المصورة بالياء.

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته عندي طلب عملي قلق وحاولت كثيرا علشان احله ولم أفلح عايز اعمل استيراد لبيانات الطلاب Tbl_student من ورقة أكسيل بعد التعديل عليها استعملت اكواد كثيرة من عمل الأخوة الأعضاء بينقل كل البيانات لكن البيانات التي بها قوائم منسدلة في الاكسس ( زي الصف والدمج والفصل والقيد ) لا تنقل من الاكسيل الي الاكسس New folder.rar ملحوظة أنا كتبت اسماء الحقول باللغة الإنجليزية في الاكسيل زي ما هو موجود في الاكسس علشان الاستيراد يكون صح

لما أكون محتاج أزود أعمدة يشتغل عليها الكود أعمل ايه هنا With Range("C3:C" & LR)

جزاك الله خيرا تمام الكود شغال وحذف المسافة ما هو الغلط فيها "ي" , "ى" Replace

الخبير الفاضل خالص الشكر لحضرتك واعتذر لعدم طرح سؤالى بشكل جيد

افتح موضوع جديد اذا أحببت ، أو ارسل لي شرحاً باسماء الحقول بالتفصيل يعني كل عمود في اكسل الى اي حقل في اكسيس ، وحتماً ستجد حلاً . طبعاً مع ارفاق قاعدة بيانات تحتوي الجدول فقط مع ملف اكسل للبيانات التي تريد استيرادها من اكسل الى اكسيس .

أضف هذا السطر: .Replace "عبد ال", "عبدال" ليصبح كامل الكود كالتالي: Dim ch LR = Cells(Rows.Count, 3).End(xlUp).Row With Range("B3:B" & LR) For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" .Replace "عبد ال", "عبدال" End With أشك أن هذا السطر مقلوب: .Replace "ى", "ي"

الله يبارك فيك أخي الفاضل ويزيدك من علمه عندي طلب عملي قلق وحاولت كثيرا علشان احله ولم أفلح عايز اعمل استيراد لبيانات الطلاب Tbl_student من ورقة أكسيل بعد التعديل عليها استعملت اكواد كثيرة من عمل الأخوة الأعضاء بينقل كل البيانات لكن البيانات التي بها قوائم منسدلة في الاكسس ( زي الصف والدمج والفصل والقيد ) لا تنقل من الاكسيل الي الاكسس وكمان جربت برنامج الأخ fokash للاستيراد الذكي ولم يفلح هل فيه حل عند حضرتك ؟

السلام عليكم لو تكرمتم محتاج تكملة الكود الموجود في الصورة بحيث عند الضغط علي الزر يحذف المسافة بين عبد الرحمن أو عبد الرحيم وغيرهم ... أرجوا أنا أكون وضحت المطلوب إليكم الكود للتكملة عليه جزاكم الله خيرا Dim ch LR = Cells(Rows.Count, 3).End(xlUp).Row With Range("B3:B" & LR) For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With المشكلة الحروف العربية معكوسة بس أكيد مفهومة لأهل الخبرة والعلم

المطلوب الأول حسب ما فهمت ، استبدل الاستعلام في الزر "تحويل حالة هذه الكتب ..." بالاستعلام التالي CurrentDb.Execute "UPDATE [جدول تسجيل الكتب] SET CaseBook = 'مفقود' WHERE [G N] = (SELECT MAX([G N]) FROM [جدول تسجيل الكتب]);", dbFailOnError المطلوب الثاني غير مفهوم .. وأتمنى منك التوضيح بشكل مفهوم أخي الكريم

تفضل Data125.rar

لا أعلم لم لا يتم التقيد بسياسة المنتدى عند فتح اي موضوع أخي الكريم 🙄 فلم تأتِ على ذكر ان الكود جزء من مديول ، هذا أولاً . ثانياً لا يتم الأمر بالصورة التي تتوقعها ، ولكن سيكون هناك دالة منفصلة على هذا الطلب . على العموم ، في مديول جديد أو موجود ، انسخ الدالة التالية ، والصقها في مشروعك :- Public Sub FokshBTN(btn As commandButton, ByVal PNAME As String, ByVal Kind As String, Optional ByVal JO_Title As String = "تأكيد طباعة") On Error Resume Next Dim msg As String msg = "الخاص " & btn.Caption & " هـل . . . . . تريـد طبـاعة تقريـر" & vbNewLine & vbNewLine & _ " بـــ " & PNAME & " " & Kind If MsgBox(msg, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.Close acReport, Reports(0).Name Else DoCmd.Close acReport, Reports(0).Name End If End Sub ثم في أي زر ، يتم الاستدعاء بالشكل التالي :- FokshBTN Me.ActiveControl, PNAME, Kind 😅

في النموذج F_GardBooks عند الضغط على مفتاح "تحويل حالة هذه الكتب الى فاقد" يتم تحويل حالة الكتب من موجود الى فاقد كما هو الحال الان المطلوب اضافة في SQl معيار تحويل سنة الجرد لهذه الكتب إلى السنة الجرد الاخيرة فقط وفي حالة كانت حالة الرقم العام لهذا الكتاب فاقد من سنوات جرد سابقا تظهر العبارة التالية "هذا الكتاب كان فاقد في سنة الجرد / " أرجو أكون وصلت الفكرة وجزاكم الله خيرا

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

معلمى الفاضل دى وحدة نمطبة مش هينفع استخدم me ثم حضرتك دى بتعمل علي اكثر من زر مش هايتفع Me.BTNFoksh لان كل زر لة اسم انجليزىو Caption انجليزى مختلف

ما فهمت شي من المطلوب بشكل واضح للأسف ، ولكن من خلال رؤية بنية الإستعلام ، استعمل الشرط التالي في الحقل G N :- (SELECT MAX([G N]) FROM [جدول تسجيل الكتب]) بدلاً من عبارة ( [أعلى رقم جرد] ) . على ما أعتقد إذا كان فهمي للوضع صحيح .. وأخبرنا بالنتيجة

أستاذي الكريم جزاكم الله خيرا مرفق نموذج مصغر للقاعدة والمطلوب فيها هو المطلوب 1.في النموذج F_GardBooks مفتاح تحويل حالة الكتب الى فاقد كما هو مطلوب اضافة تحويل رقم الجرد إلى أحدث رقم جرد أي تعديل الكود التالي كما تراه SELECT MAX([G N]) FROM [جدول تسجيل الكتب] 2. عند تسجيل الرقم العام للكتاب في الحقل txtSearch يتم تحوبل حالة الكتب من الفاقد إلى موجود (زر تحديث) كما هو موجود اضافة إذا كان هذا الرقم العام للكتاب كان فاقد في تاريخ جرد سابق يذكر العبارة MsgBox " الكتاب تالف في عملية الجرد سابقة لسنة " & from_to 3. في التقرير وضع في المعيار (SELECT MAX(from_to) FROM T_Gard) في العمود G N مع تعديل ما يلزم (اسم الجدول "جدول تسجل الكتب"، واسم العمود "G N وجزاكم الله خيرا وأشكركم لسعة صدركم هلما بأن القاعدة على أكسس 2003 القاعدة.rar

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

شاكر جدا لتنبيهي علي ذلك لكن لو امكن تحويل موضوعي لهذا القسم

اعتقد ان القسم المناسب لنشر الموضوع هو قسم الإعلانات الشخصية للأعضاء