كل الانشطه

لما أكون محتاج أزود أعمدة يشتغل عليها الكود أعمل ايه هنا 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

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

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

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

برنامج ادارة بيانات ادارة تعليمية بمدارسها للبيع مع امكانية تقسيمها علي سيرفر be&fe للطلب والاستعلام 012730901221

الاستاذ (ابو خليل) المحترم... إن عملك الجاد وتفانيك لا يمكن أن يمر دون أن يتم ملاحظتهما، انا محظوظ بوجودك، مساهماتك لا تقدر بثمن لقد كان تفانيك الثابت وأفكارك المبتكرة وأخلاقيات العمل الاستثنائية ستكون عاملاً فعالاً في نجاحنا، شكرًا لك لكونك عضوًا لا يقدر بثمن في فريق اوفسينا. وأنا كلي ثقة وإيمان وإدراك، أنكم لن تبخلوا بأي جهد وستكونون كما دائماً في الأوقات الصعبة والمصيريّة مقدامين مقدّمين رياديين وشجعان في تجاوزها وإيجاد أفضل وايسر الحلول وفقك الله

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

تحسين الإتصال بقاعدة البيانات الخلفية ( الجداول ) ، وتلافي أخطاء محتملة .. تحسين واجهة العرض الرئيسية ( شاشة الإنتظار ) ، وتحسين سرعة في تحديث البيانات على الشاشة . عدم إتاحة الفرصة لأي مستخدم باختيار قاعدة بيانات خلفية غير المسموح بها . توسيع صلاحيات المدير بإضافة ميزة النسخ الإحتياطي ( إنشاء و إستعادة ) . وهذه الميزة جديدة بفكرتها ، بحيث تتميز بـِ :- التعامل مع الجداول فقط عند النسخ الإحتياطي أو الإستعادة ، وليس كقاعدة كاملة . ولكن بسهولة ويسر .. التعامل بإحترافية مع تضمين كلمة المرور الحالية للقاعدة المرتبطة ضمن اسم النسخة الإحتياطية ( باستخدام تشفير بسيط Base64 ) . سهولة تمرير كلمة المرور لكل قاعدة يتم استعادتها أو ربطها من النسخ الإحتياطية - دون الحاجة إلى كتابة كلمة مرور قاعدة بيانات الجداول - حتى لو اختلفت من نسخة الى نسخة . توحيد مجلد قاعدة البيانات الخلفية في مكان واحد لجميع الأجهزة المرتبطة عند الإستعادة لأي نسخة احتياطية . عملية ربط ديناميكية سريعة محدثة عن النسخة السابقة . نظام رسائل تنبيه حديث ومتطور ( بدلاً من رسائل آكسيس ) . حيث تم الإستغناء عن 90% من رسائل آكسيس التقليدية MsgBox . تحسين تفاعل شاشة المدير مع المستخدم . افتح قاعدة بيانات المدير (Manager Controls) ، وسيطلب منك اختيار قاعدة بيانات الجداول الخلفية المرفقة بجانب قاعدة البيانات حالياً باسم (TBL) ، والغير محمية بكلمة مرور طبعاً - ( الأمر اختياري لك ) . الآن تباعاً سيتم نسخ قاعدة البيانات الى المجلد TBL:- \Data\TBL انتهى دور المدير في الوقت الحالي . الآن بالتسلسل سيقوم كل موظف / جهاز حجز الدور بتشغيل قاعدة بياناته ، وسيطلب منه تحديد قاعدة البيانات الخلفية بشكل يدوي أول مرة طبعاً فقط . وهنا فقط تستطيع الربط مع القاعدة الموجودة في المجلد \Data\TBL في مساره على الجهاز الرئيسي طبعاً . بعد تحديد مسار الملف بغض النظر عن موقعه ( شبكة محلية / بجانب قاعدة البيانات ... إلخ ) سيتم فتح نافذة - ( الصورة أدناه ) - تطلب منك إدخال كلمة مرور الجداول ، فإذا كانت محمية بكلمة مرور فقم بكتابتها . وإلا اضغط موافق واترك الخانة فارغة للمتابعة . ونكون قد انتهينا من الربط وتهيأة النظام للعمل 😅 . :- دائماً يسعدني إبدائكم الرأي والملاحظات حول الأخطاء والمشاكل التي يمكن مواجهتها في أي مشروع يتم تأسيسه في آكسيس أو غيره من لغات البرمجة . في حال رغبتك أخي المستخدم بإضافة التقارير ، فقد تم تأسيس الجداول بسهولة ودون تعقيد ، وبعدد حقول قليل ويخدم جميع البيانات التي تحتاجها . QMS 1.30.zip

وعليكم السلام ورحمة الله وبركاته ,, If MsgBox("الخاص " & Me.BTNFoksh.Caption & " هـل . . . . . تريـد طبـاعة تقريـر" & vbNewLine & vbNewLine & _ " بـــ " & PNAME & " " & kind, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.Close acReport, Reports(0).Name Else DoCmd.Close acReport, Reports(0).Name End If جرب هذا التعديل ؟؟

هل استخدمت التجميع في الاستعلام ؟؟؟؟ اذا لم يكن هناك دوال حسابية في الاستعلام ، فحاول استخدم التجميع ، وفي الحقل G N ، في الحقل Total = Max ... غير ذلك ، أعتذر لعدم إفادتك دون ملف مرفق !!!!

انظر لهذه الرسالة يمكن انا اريد أضع مع معيار التحديث أن يكون في أعلى رقم