jjafferr

السلام عليكم أخوي وائل هل هذا الذي كنت تريده!! جعفر

شكرا جزيلا على الشرح الواضح

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

وين العمليات هذه!! رجاء اعطني مثال واضح بالارقام واسماء الحقول

وعليكم السلام اخوي بدر اعتقد اني توصلت الى شئ ، وما ادري اذا هذا قصدك !! في جدول الادوية tbl_Drugs ، عندك حقلي Bottle_ml و Bottle_mg ، فهل تريد مضروب هذين الحقلين تكون نتيجته للحقل Frq_Pres في النموذج الفرعي؟ جعفر

السلام عليكم اخوي بدر الظاهر اننا ما نتكلم عن نفس الشئ!! انت لما تعمل دبل كليك على الدواء ، فانه ينتقل الى النموذج الفرعي ، والحقل المحسوب Frq_Pres موجود الان (حسب مرفقي السابق) في النموذج الفرعي (وهو حقل في الجدول) ، وتلقائيا بياناته تدخل الجدول ، ولكنه لا توجد فيه بيانات عند الدبل كليك !! واللي كنت شايفه من عملك السابق ، ان نتيجة هذا الحقل هو ضرب الحقلين Bottle_ml و Bottle_mg ، ولكن عند عملك الدبل كليك ، هذه الحقول فارغة ، وعند ادخالك البيانات فيها ، فيتم ادخال هذه البيانات في الحقل Frq_Pres . السؤال هنا ، وصفك للدبل كليك ، وادخال البيانات المحسوبة في الحقل Frq_Pres غير واضحة !! جعفر

السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zip

يا سلام عليك ، الآن الجواب واضح مثل البدر جعفر

السلام عليكم أخي صالح يا ريت تضع لنا خطوات العمل او الكود ، حتى لا نضطر الى انزال المرفق لمعرفة طريقة الحل جعفر

السلام عليكم أخي شفان يا ريت تضع لنا خطوات العمل او الكود ، حتى لا نضطر الى انزال المرفق لمعرفة طريقة الحل جعفر

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

1. هذا انا عملته لك في المرفق ، ولكن عليك ان تستخدم الحقل Frq_Pres في التقرير ، 2. يعني تعمل الدبل كليك على ايش؟ لا تنسى ان العملية الحسابية مرتبطه بحقلين ، لذا اذا اردت ، وتفاديا للنسيان/الخطأ ، انزل الحقلين Bottle_ml و Bottle_mg الى نفس خط ادخال البيانات وقبل الحقل الاحمر Frq_Pres ، فبهذه الطريقة سيتم دون نسيان ، اما اذا اردت ان تعمل دبل كليك على الحقل الاحمر ، ثم بطريقة او اخرى تٌدخل قيمتي الحقلين Bottle_ml و Bottle_mg ، فكذلك بإمكانك ضرب القيمتين وإعطاء الناتج للحقل Frq_Pres جعفر

وعليكم السلام نعم ، اذا كان برنامج الاكسس تم تنصيبه (اي حزمة الاوفيس او الاكسس فقط) على الجهاز ، وإذا لا يوجد اكسس على الجهاز: لا يمكن تشغيله ، لأن اي ملف يحتاج الى برنامج لتشغيله ، ولكن ، اذا كان عندك برنامج الاكسس على كمبيوتر وفيه احد برامج التحكم عن بُعد (مثل TeamViewer) ، فيستطيع شخص آخر الدخول عن طريق الانترنت ، وعن طريق برامج التحكم عن بُعد (مثل TeamViewer) ، بالدخول واستعمال البرنامج (في هذه الحالة ، جهاز الايباد مثلا لا يقوم بالعمل ، وانما الجهاز الاخر هو الذي يقوم بالعمل) ، اذا كان عندك برنامج الاكسس على كمبيوتر/سيرفر وفيه احد برنامج "الكمبيوتر الافتراضي Virtual PC" ، فيستطيع شخص آخر الدخول عن طريق الانترنت ، وبطريقة معينة ، بالدخول واستعمال البرنامج (في هذه الحالة ، جهاز الايباد مثلا لا يقوم بالعمل ، وانما الجهاز الاخر/السيرفر هو الذي يقوم بالعمل) ، وتحذير ، اذا كان برنامج الاكسس مقسّم الى واجهة وجداول ، والجداول موجوده على كمبيوتر/سيرفر على الشبكة (سواء شبكة المكتب او على الانترنت) ، فلا يُنصح باستخدام الاكسس عن طريق شبكة اللاسلكي WiFi ، لأن الارسال في شبكة اللاسلكي متقطع ، وعليه قد تفقد البيانات ، او يتم ادخال بيانات جزئية جعفر

لجعل الكلام دائما في منتصف الصفحة ، اضف السطرين التاليين: . 1. ولجعل الصفحة بالعرض ، 2. وازالة اسم الصفحة من اسفل الصفحة . جعفر

فكرة ممتازة اخوي أبو إبراهيم ما جاء على بالي استخدام webbrowser للقيام بالعمل جعفر

أسف أخوي ، بس انت تعرف ان فهمي بطيئ ولا افهم بالمختصرات جعفر

تفضل في الجدول tbl_Prescriptions اضفت الحقل Frequncy ، ولكن ، وبما انه في مصدر سجلات النموذج الفرعي عندك حقل بنفس الاسم ، فغيرت الاسم فيه وفي النموذج الفرعي الى Frq_Pres جعفر 516.Test.accdb.zip

اعمل حقل Frequency في الجدول ، ثم اربط الحقل في النموذج بهذا المصدر ، وخلي المعادلة على حدث "بعد التحديث" للحقلين Bottle_ml و Bottle_mg هكذا me.Frequency=[bottle mg]*[bottle ml] . جعفر

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

وعليكم السلام أخوي بدر للأسف ما عرفت كيف اظهر نتائج الحقل الاحمر في النموذج الفرعي ولكني اخذت SQL مصدر سجلات النموذج الفرعي ، وعملت منه استعلام منفرد qry_sfrm_Patient_Drugs ، ثم قارنت بينه وبين مصدر سجلات التقرير الاستعلام qry_Patient_Drugs_rpt ، فوجدت ان الاستعلامين يأخذون الحقول من نفس الجداول (كما تلاحظ في الصورة المرفقة) ، . لذا ، فكل اللي لازم تعمله هو ان تضيف حقلي Bottle_ml و Bottle_mg الى استعلام التقرير qry_Patient_Drugs_rpt ، ثم تنسخ الحقل المعادلة من النموذج الفرعي ، الى التقرير جعفر

شكرا لك أخي أبو أبراهيم ولكن التنسيق RTF ليس متوفر في الاصدارات قبل 2007 ، لهذا السبب انا ذكرت: . والآن ، الى الغوص في الكود من جديد جعفر

هلا والله أخوي أبوخليل هذا الموقع فيه ما لذ وطاب ، وفي اعتقادي بأن مايكروسوفت اخذوا الكثير من الافكار من هذا الموقع لعمل الاصدار 2007 وقد جربت احد اكواد الموقع ، وحصلت لي مشكلة ، وتغلبت عليها ، وارسلت ايميل الى صاحب الموقع ، فتفضل مشكورا ان عرض في موقعه رسالتي والحل الذي اقترحته جعفر

السلام عليكم 1. يجب ادخال جميع ارقام الصور في الجدول يدويا من البداية ، سواء انك تستخدمهم او لا ، وبدون ادخال المسار ، 2. في اول نموذج تفتحه في البرنامج ، وعلى حدث "التحميل" او "فتح النموذج" ضع هذا الكود: الكود الاول سيجعل نافذة اختيار الملفات تفتح في آخر مجلد تم اغلاقها منه (حيث العادة انها تفتح على c:\c) ، والكود الثاني ليخبر البرنامج مكان وجود مجلد الصور icons If Len(Explorer_Path & "") = 0 Then Explorer_Path = "c:\" End If icons_Folder = "C:\Users\ACER\Desktop\icons\" 3. يجب ان يكون اسم كل حقل في النماذج ، اسم صحيح وموجود في الجدول ، وعندما نريد تغيير الصورة ، نستخدم النقر المزدوج . 4. كل حقل يجب ان يكون لدية الكود التالي على حدث "النقر المزدوج" Call Get_Pictures(Me, "img2001", "2001") وهذا مثال كامل للحدث للحقل img1006 Private Sub img1006_DblClick(Cancel As Integer) Call Get_Pictures(Me, "img1006", "1006") End Sub 5. وهذه الوحدة النمطية تقوم بالعمل الشاق Option Compare Database Public Explorer_Path As String Public icons_Folder As String Function Get_Pictures(frm As Form, Ctl, img_Name) On Error GoTo err_Get_Pictures Dim strFilter As String 'make the user select a new picture strFilter = GetOpenFile_CLT(Explorer_Path, ".حدد مكان الصورة") 'if nothing is selected, exit If strFilter = "" Then Exit Function 'return to this folder, next time windows explorer is opened Explorer_Path = Mid(strFilter, 1, InStrRev(strFilter, "\")) 'delete the old picture, if it exists 'get the name and path of this picture from the table, and delete the picture 'delete the file Kill DLookup("item_pic", "Tmenu", "[itemcode]='" & img_Name & "'") 'now copy the new file 'make the new picture name, with the icon filder path New_Path = icons_Folder & img_Name & ".jpg" New_Path = Replace(New_Path, "\\", "\") 'copy the file FileCopy strFilter, New_Path 'update the pictre path in the table mySQL = "UPDATE Tmenu SET item_pic = '" & New_Path & "' WHERE itemcode='" & img_Name & "'" CurrentDb.Execute (mySQL) 'show the picture in the Form frm(Ctl).Picture = New_Path Exit_Get_Pictures: Exit Function err_Get_Pictures: If Err.Number = 94 Or Err.Number = 53 Then 'Old picture does not exist for deletion Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function 6. في تجاربي استعملت النماذج Form1 و Form2 ، ولا تستطيع استعمال النموذج المستمر لوضع الصور. جعفر 514.اضافة صورة لصنف.mdb.zip