![](https://www.officena.net/ib/uploads/set_resources_32/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
عزالدين المنصوري
-
Posts
56 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه عزالدين المنصوري
-
-
السلام عليكم ورحمة الله وبركاته
ايها الاساتذة الافاضل
قاعدة بيانات عيادة طبية والدكتور يحتاج الى طباعة تقارير طبية مصممة على ورقة وورد لكون التقرير في الاكسس لا يفي بالغرض حيث يوجد تقارير تتطلب اللغة الانكليزية واخرى عربي وايضا يوجد تحويل الى طبيب اخر او اشعة وسونار وهكذا ....
لذا تطلب عمل فورمات جاهز بالوورد وهو يختار الفورمة اللازمة ويطبعها لكن الدخول الى تلك الفورمات او الى الوورد نريده ان يتم من خلال نموذج اكسس
فياحبذا تجيد علينا قريحتكم البرمجية بالاراء النافعة
كأن تكون هناك منسدلة في نموذج الاكسس وفيها
1- تقرير انكليزي
2- تقرير عربي
3- تحويل الى اشعة وسونار
4- تحويل الى طبيب
وبمجرد الاختيار من المنسدلة يفتح الفورمة المحددة في الوورد وهناك يتم التعديل عليها باضافة مايمكن اضافته (علما ان اسم المريض ورقمه ورقم الحركة تصدر من نموذج كشف الدكنور وهو النموذج الواقف عليه)
ولكم خالص الشكر والتقدير
-
في ٢٦/١٢/٢٠٢٠ at 00:12, ابا جودى said:
تمام كنت أريد التاكد ان رقم الخطأ لن يتغير
فضلا وكرما دكتور عندما يسمح وقتكم تجربة المرفق الاتى اذا تم تلافى رسالة الحطأ ام لا
السلام عليكم استاذ @ابا جودى
لدي سؤال عن الموضع وه هل ينفع تشغيل هذا البرنامج مع برنامج عيادة (اقصد كيف يمكن الاستفادة من البرنامج لتشغيلة في قاعدة بيانات اخرى (عيادة طبية) )
يوجد في برنامج العيادة قاءمة انتظار للمرضى واحاول استفاد من هذا البرنامج بحيث لو وصل الدور الى المريض الموجود على راس القائمة يتم نطق اسمه او رقم التسلسل الخاص به .
ارجو المساعدة لو سمحت
ولكم خالص الشكر والتقدير
-
1
-
-
3 دقائق مضت, ابا جودى said:
وعليكم السلام
ان شاء الله تجد طلبك هنا
ممنون منك استاذ
الف الف شكر 😘
-
1
-
-
السلام عليكم ايها الاساتذة الأعزاء
اذا ممكن تعريف مختصر لكل واحدة منهم وكيف ممكن استفاد منهم
تحية ودعاء لكم جميعا 🌼
-
السلام عليكم ايها الاخوة
اكرر سؤال الاخ , هل يوجد حل لهذه المشكلة ؟؟؟
وشكرا والسلام عليكم
-
في ٣١/٨/٢٠٢٠ at 15:15, محمد أبوعبدالله said:
وعليكم السلام ورحمة الله وبركاته
نفضل اخي الكريم
وجدت لك هذا المثال ويمكن تطويره اكثر بما يناسبك
za-AccessAndPowerPoint.rar 1.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 35 downloads
تحياتي
السلام عليكم استاذ
الله يبارك فيك وجزاك الله خير
لكن هذا مش هو الشئ الذي ابحث عنه
انا بدي نموذج يعمل تصفح اوتو مثال يكون هناك زر تختار منه ملف الباور بوينت وزر اخر يعمل برزنتيشن اوتو داخل النموذج
دعائي وتحياتي لكم جميعا
-
السلام عليكم ورحمة الله وبركاته
تحية لكم ايها الاخوة
احاول اعمل نموذج في الاكسس مرتبط في الباوربوينت بحيث عند فتح النموذج يبدء العرض التقديمي يشتغل اوتو
واذا ممكن نطوره اكثر بوضع زر لأختيار العرض التقديمي الذي نريد عرضه على الشاشة لانه سيكون هذا النموذج على يعرض على شاشة للزبائن او المرضى في العيادة الطبية(احتاج اضافتة الى قاعدة بيانات عيادة طبية لذلك طلب الدكتور عرض تعليمات للمراجعين من خلال الباوبوينت)
ممنون منكم جميعا 🌷🌼
-
في ٢٢/٨/٢٠٢٠ at 11:38, الفلاحجى said:
وعليكم السلام اخى @عزالدين المنصوري
اعتذر عن التاخير فالرد
بالنسبه لتخزين الوقت فهذا يتم فعلا عند فتح النموذج فالمتغير nowLogin
اتفضل شوف التعديل وان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا
بالتوفيق
السلام عليكم ايها العزيز
تحية لك من القلب
عاشت يمينك على الشغل الجميل والمساعدة الراقية
جربت الكود وكان ناجح 100%
الف تحية ودعاء لك بالحفظ والتوفيق
-
صباح الخير والبركة
الأخ @الفلاحجى تحية طيبة لك
عندما جربت الكود كانت النتيجة رائعة جدا
لكن في اليوم التالي فتحت البرنامج وجربته ايضا" فواجهنا تحدي اخر يبدو انه صعب
وهو ان الكود يبحث في جدول الكشف عن اخر اعلى قيمة ويضيف لها خمس دقائق لكن بما انه يوم جديد فلا توجد قيمة جديدة غير التي خزنت بالامس فيقوم بالاضافة او بالبدء من منتصف الليل اي بعد الساعه 12 ليلا" لذلك نحتاج خزن قيمة الوقت الحالي قبل البدء باضافة كشف جديد او محاولة اضافة الوقت الحالي مع اول كشف دون اختيار اعلى قيمة من جدول الكشف (ممكن توقف عمل الكود فقط في اول كشف ثم يبدء العمل في الثاني واللي بعده ) لانه مش ممكن اضافة الوقت لوحده في جدول الكشف بدون اضافة سجل لمريض , او نضطر لانشاء جدول جديد للوقت يسمح لنا باضافة وقت جديد واختيار اعلى قيمة بعدها .
ملاحظة : وضعت الكود تحت منسدلة رقم المريض لانه تحدث في كل سجل بينما منسدلة الحالة انا وضعتها قيمة افتراضية لاتتحدث في كل مرة .
اتمنى ان تكون الفكرة قد وصلت بشكل واضح
ممنون منك للمتابعة والمساعدة
-
15 ساعات مضت, الفلاحجى said:
العفو اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
اتفضل التعديل ان شاء الله يكون كما طلبت
سيتم احتساب الوقت عند فتح النموذج وتسجيل المواعيد واضافه 5 دقائق
تم استخدام متغير عام على مستوى النموذج من نوع تاريخ
Dim nowLogin As Date
ثم فى حدث عند التحميل وضعت الكود
Private Sub Form_Load() nowLogin = Format(Now(), "Medium Time") End Sub
ثم فى حدث بعد التحديث لحالة الكشف
Private Sub حالة_الكشف_AfterUpdate() 'nowLogin متغير ' ld متغير Dim ld ld = DLast("[وقت الحضور]", "[الكشف]", "[تاريخ]=#" & Me.تاريخ & "#") If IsNull(ld) Then Me.[وقت الحضور] = DateAdd("n", 5, nowLogin) Else Me.[وقت الحضور] = DateAdd("n", 5, ld) End If End Sub
بالنسبه ل ld فهو متغير ويمكنك الاستغناء عنه
بالنسبه للشروط فهو شرط 1 التاريخ = التاريخ
ان شا الله اكون وفقت لشرح ما تريد
بالتوفيق اخى
عاشت عاشت الأيادي
الله يوفقك ويحفظك
عمل مميز
انا ممنون منك والله يكثر من امثالك
#اوفيسنا_كنزنا
-
في ١٧/٨/٢٠٢٠ at 19:48, الفلاحجى said:
وعليكم السلام
اتفضل انشاء الله يكون ما تريد
فى نموذج الكشف وبعد اختيار نوع الكشف ستجد تم اضافه 5 دقائق ع وقت الحضور
بالتوفيق
الف تحية وسلام لك ايها الاستاذ الفاضل
انا ممنون منك على الشغل الجميل والجهد المميز
استاذ في ملاحظات
1- وقت حضور الدكتور انت وضعتة افتراضي الساعه 7pm لكن الدكتور ايضا يعمل عند الصباح يوم الجمعة بالتالي نحتاج نجعل الحقل اوتوماتيك يأخذ الوقت في لحظة فتح النموذج بالتالي فان الدالة عندما تبحث على اخر قيمة دخلت لجدول الكشف ستجدها نفسها لحظة فتح النموذج وتضيف عليها .
2- وضعت هذا الكود Id ولما بحثت في الجدول وفي النموذج لم اعثر على حقل او مربع نص بهذا العنوان فماذا يمثل هذا الحقل
3- ممكن تشرح الشرطين في دالة Dlast وهما (
"#" & تاريخ.Me & ," [تاريخ]=#"
ولكم مني خالص الشكر والدعاء
-
-
في ٢٣/٧/٢٠٢٠ at 01:37, btsh said:
مع برنامج عرضه في السابق واليوم اقوم بحمايته الخطوات التي اتبعتها
١.خفاء شاشة اكسس
٢.عمل نموذج للشفت
٣.عمل فترة تجربيه للبرنامج
٤.الحمايه بمعرفة رقم الهارد والبرسوسر
٥. عمل رقم سري للفجول
هل ده كافي ولا في حاجه تاني ممكن اعمله
كل ماسبق من خطوات تم بمساعدتكم كلها موجوده علي موقع اوفيسنا وشكري لكل من ساهم في وضع معلومه ومعرفه علي الموقع اوفيسنا
السلام عليكم استاذ
اين هي الخطوات
هذه فقط عناوين
في اي مكان اجد الشرح لتلك العناوين
الف تحية .....
-
6 ساعات مضت, الفلاحجى said:
السلام عليكم استاذ
هذا هو المثال اللي طلبتة
اتمنى ان اكون ماثقلت عليكم
تحياتي
-
2 ساعات مضت, الفلاحجى said:
مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا
ع حسب فهمى انت محتاج اخر وقت قمت باضافته لاضافه 5 دقائق عليه فاستخدم Dlast
بالتوفيق
اشكرك جدا استاذ على المتابعة وابداء النصيحة والدعم
ولكن هل تقصد استبدال الكود بالكامل مع دالة Dlast
ام فقط تعديل الكود
تحياتي ودعائي لكم
-
8 ساعات مضت, محمد أبوعبدالله said:
تفضل اخي الكريم
تم اضافة متغيير يزيد 5 كل مرة
Dim X As Integer X = 0 For i = 1 To DCount("*", "Table4") X = X + 5 Me.MM = DateAdd("n", X, Now()) DoCmd.GoToRecord , , acNext Next
السلام عليكم استاذ
الله يبارك فيكم ويحرسكم من كل شر وجزاك الله الف خير
استاذ انا نفذت الكود وحصل رسالة خطأ نصها يقول (لايمكن تخصيص قيمة لهذا الكائن ورقم الخطأ 80020009)
ولما اضغط على debug يفتح محرر اكواد الفيجول على سطر
(()Me.mm = DateAdd("n", 5, Now
ملاحظة : انا وضعت في العداد اسم الجدول الذي يحتوي السجلات المطلوب العمل عليها + كذلك وضعت الكود في حدث عند الفتح
اشكرك جدا لمتابعتك واهتمامك استاذ محمد ابو عبدالله
-
منذ ساعه, محمد أبوعبدالله said:
وعليكم السلام ورحمة الله وبركاته
الفكرة انت وضعهتا فعلا
باقي ان تحسب الوقت المتوقع لكل كشف من الدكتور مثلا 10 دقائق ووقت حضور الدكتور
مثلا وقت حضور الدكتور الساعة 1:00pm
اذن كل كشف نضيف له 10 دقائق من وقت حضور الدكتور
ويمكن ان نطلب منه الحضور قبل الموعد بنصف ساعة مثلا لان الدكتور لن يلتزم بوقت 10 دقائق لكل كشف ( زيادة او نقص )
تحياتي
احسنت استاذ جزاك الله الف خير
نعم انا مشيت بهذا الطريق ووصلت الى نقطة او نتيجة غير ناجحة لكوني ليست مبرمج بارع
حيث عملت عداد او دالة for كما في الكود (لغرض اضافة خمس دقائق لكل كشف )
Dim mm As Date
("رقم الحركة","*")For i = 1 To DCount
(()mm] = DateAdd("n", 5, Now]
Next imm : هي حقل الوقت المتوقع
حاولت اضيف خمس دقائق لكل كشف او حركة
وضعت هذا الكود في حدث عند الفتح لنموذج القائمة الذي مصدر بياناته هو جدول الكشف الذي يحتوي على كل الحركات او الكشوفات
النتيجة بقي الحقل mm فارغ ولم تضاف له اي قيمة
اتمنى مساعدتكم لكتابة الكود الاصح ووضعه في المكان الصح ايضا
الف تحية لكم جميعا
-
الحمد لله تم حل الموضوع بتغيير اللغة
-
السلام عليكم ايها الاخوة ورحمة الله وبركاتة
اتمنى ان تكونو بالف خير وصحه وسلامة
لدي قاعدة بيانات عيادة طبية تحتوي على قائمة للمرضى المسجلين في العيادة لغرض الكشف
المطلوب حساب وقت الحضور المتوقع لكل شخص لكي يحضر في الموعد او الوقت المخصص له (لغرض تقليل الازدحام في الوقت الراهن لتجنب العدوى من الوباء(كورونا) المنتشر)
الحقول في الجدول (رقم الكشف_رقم المريض _ تاريخ _ وقت التسجيل _ (واحاول اضيف حقل جديد اسمه "وقت الحضور")
اتمنى اسمع منك سريعا حتى ولو فكرة
ولكم خالص التحية والدعاء
-
السلام عليكم ورحمة الله وبركاته
ايها الاخوة الكرام ارجو مساعدتكم في حل مشكلة هذه الرسالة التي ظهرت بعد تغيير نظام التشغيل وتغيير الاوفس الى 2019
the visual basic for applications project in the database is corrupted
حيث تم ايقاف كل اكواد الفيجول
ولم تعد قاعدة البيانات شغالة
جزاكم الله خير جزاء المحسنين
انتظر ردكم الجميل 😍
-
3 ساعات مضت, kha9009lid said:
نعم يكفي وضع الجداول على جهاز والمشاركة
لا
للمزيد اطلع على الرابط
وهنا
احسنت استاذي العزيز
جزاك الله خير جزاء المحسنين والله يبارك فيك
-
صبحكم الله بالخير
ايها الاخوة والاخوات , هل من نصيحة او فكرة ؟؟؟
خالص الشكر لكم
-
السلام عليكم جميعا ورحمة الله وبركاته
ايها الاخوة الافاضل تحية لكم
عندي قاعدة بيانات اريد اوزعها على 6 حاسبات , ماهو المطلوب مني وكيف ؟
هل يجب علي تحويل احد الحاسبات الى سيرفر ام يكفي وضع ملف الجداول في حاسبة ومشاركة المجلد ؟
هل تحويل احد الحاسبات الى سيرفر يزيد من سعة الخزن لقاعدة البيانات التي تبلغ حوالي 2 كيكا في قاعدة بيانات الاكسس ؟
ارجو التفضل علي بالجواب يرحمكم الله
ولكم خالص الشكر والامتنان
-
أحسنت وجزاك الله الف الف خير
الله يكثر من امثالك دكتورنا العزيز
-
1
-
فتح ملف وورد من خلال نموذج اكسس
في قسم الأكسيس Access
قام بنشر
السلام عليكم استاذ
الله يبارك فيك ويحفظك
الصراحة شغل مميز ومرتب عاشت ايدك
لكن للأسف لم تنجح معي لان اسماء الحقول كلها بالعربي حاولت كثيرا لكنها فشلت جميع محاولاتي
هل يجب علي تغيير جميع اسماء الحقول في القاعدة الى الانكليزي ام ماذا اعمل لتطبيق الكود
الف تحية وشكر لك ايها الطيب
ياريت تترك رقم الواتساب للتواصل
الف شكر وتحية لك استاذ ابو خليل
ممنون منك على تعاونك الكبير