jjafferr

اعمل حقل 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

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

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

وضحت الفكرة ، اعطني شوية وقت وارجع لك ان شاء الله جعفر

اشكرك على كلماتك الرقيقة الظاهر المعلومة بيننا لم تصل بالطريقة الصحيحة ، لي او لك احاول شرح طريقتي مرة ثانية: نستطيع ان نستخدم مسار حقل الصورة ، من الجدول ، او من الكود (لأن المسار واسم الصورة لن يتغير بالخطوات التالية) ، عند تغيير الصورة (لاحظ لم اقل عند تغيير اسم الصورة او المسار) : يختار المسؤول اسم الصورة اللي يريد تغييرها ، فلتكن لحم5 مثلا ، والتي تتواجد الان في المجلد icons ، فتنفتح له نافذة تصفح الملفات/المجلدات ، ويستطيع المسؤول اختيار اي صورة من اي مجلد ، فيختار مثلا الصورة New_BBQ.jpg في مجلد Downloads ، فيقوم الكود بـ: حذف الصورة لحم5 الموجودة حاليا في المجلد icons ، نسخ الصورة New_BBQ.jpg من مجلد Downloads ، إلى المجلد icons ويغير اسم الصورة الى لحم5 . بهذه الطريقة ، الخطوة #1 اعلاه ، لم تتغير ، وانما تم تغيير الصورة فقط ، وبقيت جميع الصور بأسمائها في المجلد icons ان شاء الله اكون وُفقت في الشرح هذه المرة جعفر

وعليكم السلام ترتيب التنقل من حقل الى آخر في الحقل ، مرتبط بقيمتين لكل حقل: Tab Index ، اي تسلسل اي حقل تقف عليه الايقونه عند الضغط على Tab/Enter ، والتسلسل يبدأ بالرقم 0 ، Tab Stop ، وفيه خيار نعم اذا اردت الايقونه التوقف على هذا الحقل ، او لا ، . عادة ، جهاز الباركود يُدخل قيمة الباركود في الحقل ، وبعدها وتلقائيا يعطي امر Tab/Enter ، حتى تنتقل الايقونه الى الحقل التالي ، لذلك ، يجب ان تكون Tab Index الحقول مرتبه تصاعديا ، ابتداء من حقل الباركود ، واذا اردت الانتقال من حقل الباركود الى سجل جديد لحقل الباركود (يعني لا تتوقف الايقونه على اي من الحقول الاخرى) ، فاجعل Tab Stop حقل الباركود نعم ، وجميع الحقول لا. جعفر

وعليكم السلام اخوي وائل ماشاءالله عليك ، شرح كافي ووافي ، وياريت كل اللي يضعون اسئلتهم في المنتدى يشرحوها مثلك ، لو لقوا الاجابة اسرع عندي التعليق التالي على شرحك: - في أي حال ، اذا أردت إضافة صورة رابعة ، فيجب عليك دخول التصميم ، - إذن نحن لا نتكلم عن الإضافات المستقبلية ، وإنما نتكلم عن تغيير الصورة فقط ، - في هذه الحالة ، انا اقترح ان نعمل نموذج خاص لتغيير الصور ، ويختار المسؤول اسم الصورة اللي يريد يغيرها ، ثم تفتح له نافذة تصفح مجلدات/ملفات الوندوز ، ويختار الصورة الجديدة ، فيقوم البرنامج بنسخ الصورة وتغيير اسمها إلى المجلد icons ، ويحذف الصورة القديمة. شو رايك؟ جعفر

وين يا سلمان ، ننتظر المرفق نشتغل عليه جعفر

وعليكم السلام اخوي وائل انا فهمي بطيئ بدون شرح تفصيلي ومثال جعفر