jjafferr

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

تقدر ترفعه على موقع خارجي ، ثم ترفق لنا الرابط هنا جعفر

نعم ، لوسمحت أرفق برنامجك ، وأخبرنا اسم الحقل ، والنموذج ، والتقرير جعفر

عفوا أخي محمود ، هناك ملاحظة يجب ان تنتبه لها: البرنامج يعمل على ان فترة الاجازة شهر او شهرين فقط ، يعني مثلا: 1-1-2006 الى 25-1-2016 او 5-1-2016 الى 23-2 2016 ولكنه لن يعمل على فترة اجازة اكثر من شهرين ، يعني مثلا: 1-1-2016 الى 3-3-2016 او 2-2-2016 الى 4-4-2016 للعلم جعفر

السلام عليكم أخي الفاضل ، انت مسكت الموضوع من طرفة ، ولم تكمل مشوار الموضوع الذي تحدثت عنه ، وهو: http://arabteam2000-forum.com/index.php?/topic/282771-استيراد-البيانات-من-صفحة-ويب/ اقرأ الموضوع بالكامل ، وانزل المرفقات حسب ملاحظات كل مشاركة ، وستصل الى الحل ان شاء الله جعفر

حياك الله اخوي محمود جعفر

نعم أخوي أبوخليل ، احاول اطوّع التالي لخدمة المطلوب: http://lebans.com/autosize_textbox.htm و http://lebans.com/textwidth-height.htm بس ما ادري شو الممكن وعليكم السلام أخي أبو إبراهيم ، وحياك الله في المنتدى للأسف مافهمت قصدك ، ولا يمكن انزال المرفق . جعفر

حيا الله أخي محمد انا اعمل على الاكسس 2010 ، واليك نسخة اخرى ، وان شاء الله تعمل معك بوجه عام ، البرنامج فيه فقط اسم الموظفق ، بداية تاريخ الاجازة ، ونهاية تاريخ الاجازة ، وهكذا ننادي الوحدة النمطية من الاستعلام: . جعفر 513.MM.accdb.zip

وهل عرض الصفحة A4 بالطول؟ كُلٌ له ذوقه في الاصدار أخي أبوخليل صامد مع الاصدار 2003 ، بينما انا على الاصدار 2010 ، وفي شباب على الاصدارات الاجدد ، وكُلٌ له اسبابه جعفر

ما هو اصدار الاكسس الذي تشتغل عليه؟ اذا عندك 2007 فما فوق ، فالموضوع اسهل ، اما اذا اقل من 2007 ، ففيه صعوبة!! جعفر

تفضل تختار الشهر من النموذج ، وتفتح التقرير: . واذا لا تريد الايام التي لا علاقة لها بالشهر الذي تم اختياره ، فما عليك إلا وضع الشرط التالي في الاستعلام Q: . والعقل المدبر للعملية كلها هي هذه الوحدة النمطية: Function Count_Days(S As Date, E As Date, M As Date) As Integer 'S = Det_A = Start Date 'E = Det_B = End Date 'M = Month of Report Dim LastDay_S, FirstDay_E, LastDay_M As Date LastDay_S = DateSerial(Year(S), Month(S) + 1, 0) FirstDay_E = DateSerial(Year(E), Month(E), 1) LastDay_M = DateSerial(Year(M), Month(M) + 1, 0) If Month(S) = Month(M) And Month(E) = Month(M) Then 'M month = month for both S and E Count_Days = DateDiff("d", S, E) + 1 ElseIf Month(S) = Month(M) And Month(E) <> Month(M) Then 'M month = month for S only Count_Days = DateDiff("d", S, LastDay_S) + 1 ElseIf Month(S) <> Month(M) And Month(E) = Month(M) Then 'M month = month for E only Count_Days = DateDiff("d", FirstDay_E, E) + 1 Else 'out of boundries Count_Days = 0 End If End Function . جعفر 513.MM.mdb.zip

السلام عليكم وبعد إذن اخوي أبوخليل ، أرجو من اخي سامي إرفاق برنامجه ، وخلينا نشوف كيف نقدر نطبق فكرة اخوي أبوخليل ، بالتنسيق والمسافات اللي تريدها جعفر

هاي مب مشكلة ، ولكن يجب ان نعرف تسلسل الصورة ، وإلا كيف يمكن ان نعطيها رقم!! اذا ممكن ان تعمل نموذج في الاكسس ، مثل اللى عملته في الشرح ، فيه اسماء الصور ، فعليه الموضوع بيكون اسهل ، لي وللمسؤول جعفر