ابو عبد الله العراقي

عاشت ايدك استاذ وهو المطلوب ، ممنون منك في ميزان حسناتك ان شاء الله استاذ انا كنت اعرف الدالة هذه مع الرقم 2 تستخرج اللنك من الرابط التشعبي ماكنت اعرف هذه الدالة مع الرقم واحد تستخدم اسم الرابط ؟ استاذ هاي التفاصيل والمعلومات كيف اطلع عليها واشوف غير دوال او غير خصائص ؟؟؟ HyperlinkPart([LinkName], 2)

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا في قاعدة بيانات المرفقة جدول يحتوي على حقل نوعه ارتباط تشعبي من خلال الاستعلام يمكننا عن طريق دالة HyperlinkPart استخراج الرابط من الارتباط التشعبي للحقل ، المطلوب هو كيف استطيع استخراج اسم الموقع بدون رابط تشعبي يعني فقط الاسم ؟ هل هذا ممكن وكيف ؟؟؟؟؟؟ LinkName.rar

عاشت ايدك أستاذ ممنون منك و جزاك الله كل خير وفتح عليك

الأخ الكريم Foksh شكراً جزيلا على تواصلك معي وعلى الآراء التي ابديتها صحيح كلامك أستاذ بالنسبة للتصميم فما الحاجة إلى ان يكون هناك جدول للسنة الدراسية ولان تكون غير قابلة التكرار ، هو بالفعل هو هذا الجدول السنة الاكاديمية موجود في قاعدة البيانات والعام الدراسي غير قابل للتكرار ومرتبط أيضا وما في مشكال في الجدول ولا في قاعدة البيانات لكن المشكلة التي حصلت وأصبحت تتكرر هو الخطأ في اختيار العام الدراسي لان العام الدراسي يتم اختياره أولا ثم يتم ادخال التاريخ وحتى لو كان الامر بالعكس ادخال التاريخ ثم اختيار العام الدراسي فالخطأ محتمل في اختيار العام الدراسي لذلك حاولت احل هذه المشكلة بإدخال الكود تحويل التاريخ الى العام الدراسي تلقائيا ، وجزاك الله خيرا فقد اوصلتني إلى بداية حل المشكلة والاخ العزيز أبو خليل الذي اود أيضا ان اشكره على المساعدة التي يبديها لي ولكافة المشاركين في هذا المنتدى ، هو أيضا أبو خليل فكرته رائعة بأن احول الكومبوبوكس إلى مربع نص لكن فكرته وكلامه صحيح مئة بالمئة فماذا لو كان العام الدراسي غير موجود وغير مدخل في الجدول الأساسي ؟ كيف نحل هذه المشكلة ؟؟؟؟ هو الحل في تصوري هناك رسالة خطأ تظهر في حالة ادخلنا عام دراسي غير موجود ( الحل هو في حالة ان العام الدراسي الذي ينتج من تحويل تاريخ الادخال إلى عام دراسي غير موجود او لا يساوي العام الدراسي في جدول العام الدراسي ، فيجب في هذه الحالة ان تظهر رسالة تقول بأن العام الدراسي الحالي غير موجود هل تود ان تدخل العام الدراسي حاليا ! فاذا كان الجوان نعم فسوف يفتح نموذج ادخال العام الدراسي ثم يخرج هذا النموذج ويحدث العام الدراسي في نموذج العام الدراسي ؟ لكن المشكلة في تطيبق هذا الحل هل من الممكن المساعدة في هذا الموضوع مع الشكر والتقدير شكرا جزيلا لكم مرة أخرى

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا في قاعدة البيانات المرفقة وفي نموذج Meetingfrm عند ادخال تاريخ الاجتماع سوف يتم تحديث وتحديد العام الدراسي تلقائيا في مربع نص كود السنة الاكاديمية هذه العملية المطلوب تطبيقيها على مربع تحرير وسرد السنة الاكاديمية (اي عند ادخال تاريخ الاجتماع يتم اختيار العام الدراسي تلقائيا في combo box اختيار السنة الاكاديمية بدل من ان يتم اختيار العام الدراسي يدويا في هذا الكومبوبوكس ؟ ( يعني اختيار قيمة من مربع تحرير وسرد من قيمة مربع نص ) هل من الممكن ؟؟ AcademicYear.rar

السلام عليكم عاشت ايدك استاذ شكرأ جزيلاً

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل في منتدى اوفيسنا : اريد التحكم في صلاحيات المستخدمين في قاعدة البيانات المرفقة من حيث الإضافة او الحذف او التعديل لذلك قمت بعمل نموذج يحتوي على combo box مصدره حقل المستخدمين من جدول المستخدمين واضفت إلى هذه النموذج نموذج فرعي يحتوي علي صلاحيات المستخدمين مصدره أيضا جدول المستخدمين وقمت بربط اسم المستخدم في هذا النموذج الفرعي باسم المستخدم في الــcombo box بحيث عندما اختار اسم المستخدم من الcombo box تظهر صلاحياته في النموذج الفرعي واقوم بتغيير أي صلاحية من هذا النموذج الفرعي لحد الان ماكو أي مشكلة . السؤال هو عندما قمت بوضع button في النموذج الرئيسي لكي يقوم بعملية التراجع عن اجراء أي تعديل أقوم به في صلاحيات المستخدمين علما اني وضع الكود التالي : Me.Usertbl_subform.Form.Undo في حدث on click لهذا الـــbutton . فما هي المشكلة ان الكود لا يعمل تراجع ؟؟؟ هو من الممكن ان أقوم بعملية التراجع بإزالة علامة الصح يدويا من الــcheck box لكن بصراح اود معرفة سبب عدم عمل هذا الكود كذلك اريد التحكم بالنموذج الفرعي من خلال button في النموذج الرئيسي لا نه يستخدم في السؤال في ما اذا اريد الحفظ او التراجع ؟ ارجو المساعدة في هذا الموضوع ؟ وجزاكم الله خير الجزاء Users.rar

السلام عليكم ورحمة الله وبركاته استاذنا العزيز kkhalifa1960 في هذا المثال تم تحديد مكان تصدير التقرير في مكان وجود قاعدة البيانات والذي هو CurrentProject.Path طيب انا حاولت انه عند تصدير التقرير , المستخدم يحدد مكان تصدير التقرير عن طريق مربع الحوار application.fileDialog ولكن لم استطيع تنفيذ هذا الامر ! هل من الممكن المساعدة في هذا الموضوع ؟ MergMic.rar

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

تعبتك معاي استاذي العزيز، في ميزان حسناتك إن شاء الله Bوالعمود A ولكن استاذ في المرفق الي حضرتك ارفقته للتو هو صحيح صدر شيت الاكسل لكن ما قام بتشغيل كود دمج العمودين في الاكسل قصدي العمود حضرتك الكود الاول الموجود في مشاركتك الاولى هو مضبوط ويصدر ويقوم بعملية دمج العمودين في شيت الاكسل ، لكن مع الاسف ما تظهر البيانات المدموجة في شيت الاكسل تظهر الصفحة بيضاء فقط هل هناك حل لهذه المشكلة ؟

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

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل في منتدى الاكسس في قاعدة البيانات المرفقة وهي نموذج للمثال الذي اطمح واطمع من حضارتكم مساعدتي في عمل كود تشغيل ماكرو كنت قد سجلته في برنامج الاكسل ثم اخذت كود الماكرو ( الخاص بتنسيق ملف الاكسل ) ووضعته في وحدة نمطية ليتم استدعاء هذا الاجراء في button بعد تصدير ملف الاكسل ؟ لكي يظهر شيت الاكسل كما في الصورة المرفقة MergMic.rar

السلام عليكم ورحمة الله وبركاته شكرا جزيلا أستاذ kkhalifa1960 على تواصلك معي في حل هذه المشكلة هو بصراح بالنسبة لقاعدة البيانات اكسس التي أحاول ربط جداول MySQL بها هي قاعدة بيانات جديدة وفارغة ( عدا في الصورة اعلاه ) ولا يوجد فيها أي جداول ولا استعلامات كذلك لم استخدم فيها أي نوع من استعلامات VBA داخلها ، كما ان الشبكة التي استخدمها هي محلية localhost عن طريق برنامج xampp وفعلا تم ربط قاعدة البيانات بنجاح ولكن للأسف لم استطع ربط الجداول المجودة في قاعدة Mysql مع قاعدة بيانات اكسس بسبب ( خطأ محجوز ) ؟؟؟؟؟ لم استطع حل هذه المشكلة !

السلام عليكم عملت اتصال بين قاعدة بيانات اكسس وقاعدة بيانات MySQL وتم الاتصال ولكن عند ربط جداول Mysql مع قاعدة بيانات access تظهر رسالة يقول خطأ محجوز( -7745 ) علماً أن الرسالة تظهر في الاكسس وليس في Mysql . يرجى المساعدة ؟؟؟

ممتاز شكرأ جزيلا اخي الكريم

السلام عليكم الاخ محمد امين هل سيكوال سيرفر مجانية يمكننا استخدامها لرفع قاعدة بيانات اكسس على الشبكة ولا هي مدفوعة ؟؟؟

الاخ Foksh والاخ ابو عارف شكرا جزيلا لكما وعاشت الايادي مضبوط 100 بالمئة

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل والاخوة الأعزاء المشتركين في منتدى اوفيسنا رمضان مبارك ، تقبل الله منا ومنكم الصيام والقيام والطاعات وكل عام وانتم بخير. في قاعدة البيانات المرفقة ( AcademicYear ) في النموذج الرئيسي الذي يظهر عند تشغيل قاعدة البيانات يحتوي على مربعي نص الأول يظهر التاريخ الحالي ( تاريخ الحاسبة ) والأخر المفروض يظهر العام الدراسي مثلا (2024-2025) . المطلوب كيف اجعل هذا المربع الأخير يظهر العام الدراسي بصورة تلقائيا من تاريخ الحاسبة علما أن العام الدراسي محسوب بداية مثلا من 1/9/2024 ولغاية 1/6/2025 . هل من الممكن صناعة كود يقوم بهذه العملية تلقائيا بدون تدخل من المستخدم ، او حتى عن طريق دوال التاريخ ؟؟؟ تحياتي للجميع AcademicYear.rar

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل Foksh , kkhalifa1960 شكراً جزيلاً لكما على تواصلكم ومساعدتي في حل هذه المشكلة ، يبدو أن المشكلة في نسخة الـــoffice عندي هو الرابط حاليا يعمل لكن بعد ظهور رسالة الخطأ يعني عند الضغط على اللينك تظهر رسالة الخطأ ثم يفتح الرابط ، على العموم شكرا لكما مرة أخرى وما قصرتوا ؟

السلام عليكم ورحمة الله وبركاته استاذ هذا المثال مرفق على رسائل الخطأ hyperlinErr.rar

السلام عليكم ورحمة الله وبركاته اخي الكريم ، عاشت ايدك تم تحويل مربع النص والذي اسمه (lin_address) إلى hyperlink وا يضأ قمت بإضافة الكود في حدث عند النقر Dim link As String On Error GoTo lil: link = Me.lin_address If link <> "" Then Application.FollowHyperlink link Exit Sub lil: MsgBox Err.Number & Err.Description End If وعملت له Debug ماكو أي مشكلة لكن عند حفظ النموذج والنقر على الرابط في مربع النص تظهر ثلاث رسائل خطأ الأول هي إشعار الأمان لـmicrosoft access فيها زرين الأول نعم والأخر لا فاذا ضغطت على نعم تظهر رسالة run-time error 16388 ونصها ( لا يمكن أن يتم اتباع الارتباط التشعبي إلى الوجهة ) وإذا قمت بالضغط على لا تظهر رسالة run-time error 490 ونصها ( لا يمكن فتح الملف المحدد ) . وكلا الرسالتين يشيران إلى السطر البرمجي Application.FollowHyperlink link علما إني أيضا قد وضعت كود معرفة ارقام الخطأ فهي تظهر نفس الأرقام (16388 ) و ( 490) ما هي المشكلة ؟؟؟

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الـــ Data type في sql server للروابط (link) هو text أما Data type في الاكسس للروابط فهي ارتباط تشعبي (hyperlink ) ، فعندما قمت بربط الاكسس بــ sql server وأحد الجداول في sql server فيها واحد من الحقول هو رابط موقع معين لذلك اخذ نوع البيانات كما اسلفت text وأيضا في الاكسس اخذ نفس النوع من البيانات أيضا text وتم جلب الرابط كما هو sql server لكن المفروض انه الروابط في الاكسس هي hyperlink لكي عندما نريد فتح الرابط في نموذج الاكسس فقط نضغط على الرابط اما الان بعد الربط مع sql server لا استطيع فتح الرابط عند الضغط عليه وانما لكي افتح الرابط لازم اعمل نسخ للرابط ثم اضعه في المتصفح . الفكرة التي تراودني هي ان اضع رز فتح الرابط في نفس النموذج وهو يقوم بفتح الروابط حسب السجلات لكن كيف ابدأ بصناعة هذا الكود ؟؟؟ او اذا كان هناك حل اخر . افيدوني وجزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته أستاذ جربت الكود الأخير لكن أيضا طلع run-time error '5' لذلك انا خليت هذا الـــerror number '5' في هذا الكود If Err.Number = 5 Then MsgBox "سجل مكرر! لا يمكنك ادخال نفس البيانات مرتين", vbExclamation + vbMsgBoxRight, "تنبيه", Cancel = True Else MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, "الاسم مكرر! لايمكنك ادخال نفس البيانات مرتين" End If والحمد لله مشي الحال ، لكن أستاذ هو ما يطلع اول رسالة لوجود التكرار وإنما يطلع ثاني رسالة الي هي " حدث خطأ " لذلك قمت بوضع الاسم مكرر في ثاني رسالة كما في الصور . الحمد لله مشي الحال شكرا جزيلا لك أستاذ على تعبك معاي ، ممنون منك

السلام عليكم ورحمة الله وبركاته اخي الكريم ، أنا عملت كود بيان رقم الخطأ وخليتوا في زر الحفظ On Error GoTo hoh DoCmd.Save DoCmd.GoToRecord , , acNewRec Me.Instructor_ID.SetFocus hoh: MsgBox Err.Number End Sub وعند ادخال اسم موجود في قاعدة البيانات يعني مكرر طبعا ما يقبل يدخل الاسم وهذا شيء صحيح وهو يقول رقم الخطأ 2105 واعتقد هذا كود رسال الخطأ الخاصة بالاكسس وكذلك حاولت اطبق الكود الي حضرتك نصحتني به ولكن مع الأسف أيضا ما اشتغل ؟! وهذه نسخة من قاعدة البيانات يا ريت حضرتك تشوفها وتساعدني في حل هذه المشكلة مع التحية والاحترام لحضرتك ؟ شكرا جزيلا مرة على التواصل والمساعدة ..... تحياتي Mylibrary2.rar

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل :- هذه رسالة أخرى تظهر في نموذج الاكسس عند ربطه بــsql server عند ادخال قيمة مكررة ، حيث يوجد حقل في جدول في sql server غير قابل للتكرار وعندما قمت بربطه بالاكسس وعمل نموذج في الاكسس لادخال البيانات ، فعند ادخال قيمة مكررة تظهر هذه الرسالة في الاكسس (مرفق ) . هو طبعاً لازم ما يقبل تكرار لكن السؤال كيف الغي هذه الرسالة وابدلها برسالة من عندنا اكثر وضوحا للمستخدم ... ؟؟؟