jjafferr

السلام عليكم بعدما تختار اسم المريض ، وتختار جميع زياراته ، ترى جميع زياراته في حقل Visit_Date ، وعندها تستطيع ان تنقر مرتين على التاريخ الذي تريد ، فسيتم تصفية النموذج على اساسه وهذا شكل التقرير ، كل 3 ادوية مجموعة مع بعض: جعفر 298.Medication.accdb.zip

السلام عليكم أخي عصام الكود بحاجة الى مسافة قبل كلمة Where ، فيصبح الكود الصحيح هكذا: DoCmd.RunSQL "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "' WHERE (((main.ID)=[forms]![new txn]![issue id]))" وفي برامجي ، دائما اجزّء الكود الى اسطر ، حتى لا اقع في مثل هذا الخطأ ، فيكون الكود هكذا (لاحظ المسافة قبل Where) : mySQL = "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "'" mySQL = mySQL & " WHERE main.ID =[forms]![new txn]![issue id]" DoCmd.RunSQL mySQL جعفر

وعليكم السلام رجاء وضع الكود الكامل الذي تستخدمه للأمر Update ، مع الاسطر الاخرى من الكود التي تواجه فيها مشكلة (احيانا ) ، ولماذا تستخدم هذا الامر بالذات؟ جعفر

السلام عليكم رجاء مطالعة المرفق ، فهو حسب ما ذكرته انا في مشاركتي السابقة رجاء تفسر شو معنى افتح "وصفة جديدة" ؟ هل معناه انك تريد عمل فرز للأدوية عند طباعتها ، بحيث كل وصفة ادوية تحتوي على 3 ادوية فقط؟ فاذا كان الجواب نعم ، فالمسألة لا علاقة لها في نموذج الادخال ، وانما في التقرير جعفر 298.Medication.accdb.zip

السلام عليكم هنا كانت لي مشاركة في منتدى الفريق العربي للبرمجة ، وبها احد الاقتراحات: http://arabteam2000-forum.com/index.php?/topic/291451-ربط-النماذج-الفرعيه/&do=findComment&comment=1393460 جعفر

وعليكم السلام لا يمكن عمل Combobox في نموذج مستمر ، معتمد على Combobox آخر ، فهناك من يعتقد انه احد العيوب في الاكسس التي لم يتم اصلاحها جعفر

السلام عليكم 1. بعض الاوقات الحفظ بصيغة ثانية ما يصير ، فالطريقة الاخرى لعمل هذا ، هو ان تعمل قاعدة بيانات جديدة بالصيغة اللي تريدها ، ثم تستورد كائنات البرنامج الاخر الى برنامجك الجديد 2. ها ، لا تقولون ما كان لي دور في عمل البرنامج المرفق بصيغة mdb . جعفر BackUp-delete-Control.zip

طريقتي لا تصلح للنموذج الجدولي اعمل نسخة من المعادلة التي عملتها في التنسيق المشروط ، ثم الصقها (وبدون تعديل) في التنسيق المشروط لكل حقل في السجل جعفر

وعليكم السلام اعمل مربع النص في حجم النموذج الفرعي ، واجعله خلف جميع كائنات النموذج واجعل جميع مربعات النص ذو خلفية شفافة جعفر

وعليكم السلام ايش رايك بواحده من هذه الطرق / الحركات : البرنامج على الرابط التالي: http://hitechcoach.com/index.php?option=com_docman&task=doc_details&gid=44&Itemid=19 جعفر

. وهنا بداية جديدة للمرحلة التالية ، ونريد افكارك كذلك : http://www.officena.net/ib/topic/67564-علاج-تراكم-عدد-النسخ-الاحتياطي/ جعفر

وعليكم السلام ورحمة الله وبركاته رحم الله والديك على هالفكرة ، وبالفعل ، يجب تنظيف الملفات القديمة والآن يجي دور اخونا محمد سلامة ، علشان يطلع لنا بعدّة خيارات للحذف (مثل ما عمل عدة خيارات للحفظ) جعفر

وعليكم السلام عندي مجموعة اشياء في اعلا القائمة ، ومحتاج اخلصها ، وبعدين اشوف مسقط التقارير بس للعلم ، ارفق لك جزء قمت به ، وليس متكاملا لإختيار الخطوط . جعفر

حياك الله أخوي رمهان زين الحمدلله طلّيت علينا انا كذلك كان عندي تجربة اخرى مع Echo ، وهي عند كتابة ملاحظات على Status Bar في اسفل النموذج ، وكذلك استخدمت بديل له ، وهو: DoEvents Call SysCmd(acSysCmdSetStatus, "HI THERE!!") DoEvents . و الامر DoEvents جدا مهم ، وهو لإخبار الكود بأن يعمل الامر هذا ، ويواصل العمل للخطوة التالية اما عن اغلاق المواضيع ، فانا اقوم بإغلاق مواضيعي ، وذلك بعد ان يسأل صاحب الموضوع سؤال لا علاقة له بالموضوع ، فأضطر عمل هذا حتى لا يتشعب الموضوع جعفر

آسف ياشباب نسيت اخبركم ، انا عملت موضوع مستقل لمثال عن Me.Painting على الرابط التالي: http://www.officena.net/ib/topic/67520-تجديد-تحديث-النموذج-mepainting/ جعفر

تسلم أخي كرار ، على السطرين الاخيرين جعفر

وعليكم السلام اليك هذاالكود من احد برامجي: ونفترض ان اسم الحقل (سواء في الاستعلام او في النموذج) strText ، فكود تغيير الاسم يكون: في النموذج Me.strText = Characters_Windows_Refuse (Me.strText) في الاستعلام A: Characters_Windows_Refuse ([strText]) و الوحدة النمطية Function Characters_Windows_Refuse(str_Name As String) As String 'check if the file name is correct, 'and it does not incluse the characters windows refuse 'usage: 'Me.strText = Characters_Windows_Refuse (Me.strText) ' Dim Correct_To As String Correct_To = "-" str_Name = Replace(str_Name, "\", Correct_To) str_Name = Replace(str_Name, "/", Correct_To) str_Name = Replace(str_Name, ":", Correct_To) str_Name = Replace(str_Name, "*", Correct_To) str_Name = Replace(str_Name, "?", Correct_To) str_Name = Replace(str_Name, Chr(34), Correct_To) str_Name = Replace(str_Name, "<", Correct_To) str_Name = Replace(str_Name, ">", Correct_To) str_Name = Replace(str_Name, "|", Correct_To) 'return this value to the field Characters_Windows_Refuse = str_Name End Function جعفر

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

يا واد انت جعفر

السلام عليكم انا رأيت عند بعض الاطباء برنامج يعمل التالي: 1. نموذج اسم المريض ومعلوماته (عندك الجدول ولكن بدون بيانات وبدون نموذج) ، 2. نموذج الادوية (وهو موجود عندك ، مع بيانات الجدول) ، 3. نموذج الوصفات لكل مريض ، وفيه جزئين ، في الاعلى اسم المريض والتاريخ ، وفي الاسفل وصفات الدواء لهذه الزيارة ، ويعمل النموذج كالتالي: الطبيب يفتح النموذج ، ثم يختار اسم المريض ، ثم يضغط على زر الادوية ، فينفتح نموذج الادوية تحت نموذج المريض ، وعندما يختار الدكتور اي دواء ، يضغط عليها مرتين ، فتلقائيا ينتقل هذا الدواء الى نموذج المريض (والطبيب يحدد عدد مرات استخدام الدواء وووو في نموذج المريض لهذا الدواء) ، ويستطيع الطبيب ان يختار اي عدد من الادوية ، واذا اخطأ الطبيب ، وتبين له انه ادخل دواء خطأ للمريض ، فيذهب الى نموذج المريض ويحذف هذا الدواء. هل هذا الذي تريده؟ اذا كان الجواب لا ، فالرجاء عمل توضيح وشرح (مثل ما انا قمت به) ، ولا تستعمل كلمات برمجية ، وانما شرح بالعربي جعفر

السلام عليكم اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833 النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر): الكود: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Call Change_Colors("q3") Call Change_Colors("q4") Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان: اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ، ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ، والكود هو: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Me.Painting = False Call Change_Colors("q3") Call Change_Colors("q4") Me.Painting = True Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . طيب ، ما الفائدة عمليا من هذا الكود؟ انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو: برنامج فيه آلاف السجلات ، وهناك صور للسجلات ، فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ، فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ، وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ، فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ، والنتيجة كانت مرضية لي جعفر 297.Me.Paint.accdb.zip

الرابط التالي فيه وحدة نمطية تصلح المشكلة : http://allenbrowne.com/ser-40.html جعفر

السلام عليكم اي نسخة من الاكسس تعمل عليها؟ وهل قمت بعمل جميع التحديثات على الاكسس؟ لو سمحت تتأكد ان حقل "الترقيم التلقائي" في الجدول فيه هذه الاعدادات (وهكذا يجب ان تكون في كل الاحوال) : 1. نوع الحقل ، ترقيم تلقائي ، 2. علامة المفتاح يجب ان تكون عليه ، 3. انه رقم طويل ، 4. رقم تدريجي (وليس عشوائي) ، 5. نعم للفهرسة ، ولا للتكرار. . وبعد هذا اعمل الضغط والاصلاح جعفر

وعليكم السلام جرب الضغط والاصلاح جعفر