jjafferr

وعليكم السلام تجربتي تقول ، ان جميع ما تقرأ هو نظري ، الى ان تبدأ وتطبقه عمليا ، وافضل طريقة للتطبيق العملي المتنوع ، هو مواضيع المنتديات ، وابدأ بـ : مراجعة مواضيع المنتدى ، وابتدأ بالاسئلة السهلة ، افهم السؤال ، اشتغل على اجابة السؤال دون النظر الى الردود ، ثم قارن نتائج اجابتك بنتائج بقية اجابات السؤال ستلاحظ الطرق المتعددة لحل سؤال ما ، تطبيقيا ، وقد تكون طريقتك افضل من الطرق الاخرى جعفر

وعليكم السلام تحويل التقرير الى صورة ، سواء bmp او png او jpg او غيرها ، هي من الاسئلة العريقة التي لا تزال الروح فيها ، ونراها بين فترة واخرى هناك نوعان من الصور التي يستطيع تقرير الاكسس طباعتها ، وهما خاصّتان بمايكروسوفت فقط ، صيغة snp ، ثم في الاكسس 2007 فما فوق تم اضافة صيغة xps (في نفس الوقت الذي تم إضافة صيغة pdf كذلك) ، لا توجد برامج تحويل هذه الصيغ الى صيغ الصور المتعارف عليها مثل bmp او png او jpg او غيرها ، غير عدد جدا محدود ، مثل تحويل xps الى صور: xps2img: https://sourceforge.net/projects/xps2img/ ولكن وحسب تجاربي ، فأفضل طريقة لتحويل التقرير (او اي شيء من الكمبيوتر تريد تحويله الى صورة) ، هو استخدام الطابعة الافتراضية ، انا لا استخدم طابعة الورق عندما اريد ان اجرب اطبع التقارير ، وانما اطبع بصيغة pdf باستخدام طابعة افتراضية مجانية مثل http://www.dopdf.com/ اما الطابعات الافتراضية لتحويل التقارير الى صور ، فمنها (المجانية): https://www.print-driver.com/stories/convert-pdf-to-jpg-via-the-command-line http://emfprinter.sourceforge.net/ والتي بعد ان تطبع التقرير (تحفظ التقرير بصيغة صورة) ، فيمكنك ان تغير اسم ومكان الصورة بالكود: نسخ الملف من مجلد الى آخر FileCopy "Source_Path_And_Name", "Destination_Path_And_Name" مثل dim New_File_Location as string 'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc" New_File_Location="D:\BD\File_1.doc" FileCopy "D:\myFile.doc", New_File_Location نقل الملف من مجلد الى آخر، او تغيير اسم الملف Name "old_path_AND_name" As "new_path_AND_name" مثل dim New_File_Location as string 'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc" New_File_Location="D:\BD\File_1.doc" Name "D:\myFile.doc" As New_File_Location حذف الملف Kill "SourcePathAnd Name" . وعملت على احد برامج طباعة هويات الموظفين ، لطباعة الهويات على طابعة الهويات Fargo DTC550 وعند طباعة التقرير (الهوية بالصورة) مباشرة من التقرير الى الطابعة ، لاحظت ان الصور غير واضحة ، وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بهذه الخطوة قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي: ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer والذي يتم تنصيبه مع تنصيب الاكسس 2007 فما فوق ، وتطبع الهوية من هناك ، والصور كانت واضحة جدا وقد قمت بشراء الطابعة الافتراضية للمشروع اعلاه: https://code-industry.net/imageprinterpro/ ولكن نتيجة الطباعة كانت نفسها كالتي بـ xps viewer جعفر

وعليكم السلام تفضل هذا الرابط الخارجي ، وبه مرفقات ايضا ، حسب نسختك من الاكسس https://www.devhut.net/2014/01/22/ms-access-enable-mouse-wheel-scrolling-of-text-box/ جعفر

وعليكم السلام الشيء الذي جذب انتباهي ، هو عبارتك باللون الاحمر ، والتي لم تلتفت لها اي من الاجابات!! الرابط التالي يعطيك فكرة عن كيفية التعامل مع الحقول الفارغة: جعفر

1. شو كانت المشكلة؟ الكود اللي في الاستعلام هو عينا نفس الكود الذي ارفقته لك!! 2. هل قصدك تريد هذه المعايير: . بهذه النتيجة: . Dim City As String: Dim City2 As String: Dim City3 As String Dim School As String: Dim School2 As String City = "اسكندرية": City2 = "الدقهلية": City3 = "قليوبية" School = "خالد بن الوليد": School2 = "الخلفاء الراشدين" 'مجموعة اوامر الحقل الاول 'المدينة myCriteria = "(" myCriteria = myCriteria & "[testQ].[country1]= '" & City & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1]= '" & City2 & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1]= '" & City3 & "'" myCriteria = myCriteria & ")" 'مجموعة اوامر الحقل الثاني 'المدرسة myCriteria = myCriteria & " AND " myCriteria = myCriteria & "(" myCriteria = myCriteria & "[testQ].[School1]= '" & School & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[School1]= '" & School2 & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "Len([testQ].[School1] & '')=0" myCriteria = myCriteria & ")" 'Debug.Print myCriteria Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True جعفر

وعليكم السلام واختصارا لكود اخي @صالح حمادي ، وبدل ان نفتح الباب لكل اوامر الاكسس ، جرب هذا السطر commandbars("Property sheet").enabled=true جعفر

تفضل المرفق ، والكود في الاستعلام 660.2.Test2006.mdb.zip

وعليكم السلام اختي في قواعد البيانات ، لا نحفظ حقل محسوب في جدول ، إلا اذا كان كُلاً ولا بُد اعملي استعلام ليعطيك هذه القيمة ، وكلما احتجتي لهذه القيمة لنموذج او تقرير ، فاستعملي الاستعلام جعفر

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

تفضل بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) والشرح Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) Or [DateX] Is Null جعفر

أخي محمد الربكة عندك في And و Or ، فرجاء مراجعة عملهم بالضبط. رجاء عمل التالي: 1. وانت في النموذج ، اضغط على زرّي لوحة المفاتيح: Ctrl + G 2. وسيأخذك الى صفحة الكود ، وستلاحظ نافذة صغيرة في اسفل صفحة الكود ، 3. السطر التالي ، احذف اول اشارة من سطره ، الاشارة: ' 'Debug.Print myCriteria' 4. اذهب للنموذج واعمل التصفية التي تريدها 5. ارجع لصفحة الكود ، وستلاحظ في النافذة الصغيرة وجود كود التصفية 6. انسخ هذا الكود 7. اعمل استعلام فارغ 8. بالزر اليمين في الاستعلام ، غيّر الاستعلام من تصميم الى SQL 9. احذف الكلمات الموجودة في الاستعلام ، والصق كود النموذج 10. شغّل الاستعلام ، وشوف نتائجه 11. ضع الاستعلام في وضع تصميم ، وشوف تفاصيله ، وهي التفاصيل التي قمت بها انت لتصفية النموذج. 12. العب في And و Or للحقول التي تريدها ، وسوف تعرف ايهم تستعمل والانسب لعملك ، وعليه ترجع لكود تصفية النموذج وتغيّر فيه حسب طلبك ************************* هذا الموضوع هو انشاء تصفية ولعدة حقول ، والحمدلله استطعت انت ان تجرب النتائج جعفر

وعليكم السلام انت طلبت معرفة الفرق ، ولكنك انت الذي تحدد اهمية الكود من عدمه هذا الكود: لإنشاء فاتورة جديدة ، وهي الجزئية التي لا تزال موجودة ولم تحذفها انت ، اما الجزء الذي حذفته فهو لعمل سجل في النموذج الفرعي اذا بعد الحذف كل شيء كان تمام ، فتوكل على الله واستمر ******************* اعمل ضغط واصلاح لبرنامجك حتى تصغر حجمه جعفر

اذا ممكن تنزل المرفق في مشاركتي الاولى ، وشوف اذا تطلع لك نفس المشاكل

وحده وحده يا محمد 1. اذن الخطأ هذا كان بسبب انك ما ادخلت تاريخ ، ولأن الكود محتاج التاريخ في حقل DateX ، لهذا السبب حصلت على الخطأ: 2. خلينا نشوف الكود لوسمحت ، لأن الكود عندي شغال تمام بالنتائج الصحيحة ، فيمكن انت عملت تغيير في الكود وحصلت لك المشكلة جعفر شوف المرفق في مشاركتي الاولى

أخي محمد هل ادخلت التاريخ في الحقل DateX جعفر

وعليكم السلام اجلب بيانات النموذج من جديد، بالتحديثات DoCmd.Requery اذهب الى السجل الاخير DoCmd.GoToRecord , , acLast اضف سجل فارغ في الجدول Sales_Invoice_sub Set Rs = CurrentDb.OpenRecordset("Sales_Invoice_sub") Rs.AddNew Rs.Update Rs.Close Set Rs = Nothing اجلب بيانات النموذج الفرعي من جديد، بالتحديثات Me.[Sales_Invoice_sub_Subform].Requery جعفر

وعليكم السلام المفروض ان الاكسس يعطيك كود مثل هذا: ([testQ].[datex] between #01-Jul-17# and #27-Apr-17#) AND ([testQ].[country1]= 'اسكندرية' or [testQ].[country1]= 'الدقهلية' or [testQ].[country1] is null) اليك الكود ، وقد فككته الى اصغر مكوناته وانت اعمل المدرسة Dim City As String City = "اسكندرية" City2 = "الدقهلية" 'مجموعة اوامر الحقل الاول 'للتاريخ myCriteria = "(" myCriteria = myCriteria & "[testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#" myCriteria = myCriteria & ")" 'مجموعة اوامر الحقل الثاني myCriteria = myCriteria & " AND " myCriteria = myCriteria & "(" 'للنص myCriteria = myCriteria & "[testQ].[country1]= '" & City & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1]= '" & City2 & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1] is null" myCriteria = myCriteria & ")" 'للرقم 'myCriteria = myCriteria & " AND " 'myCriteria = myCriteria & "[testQ].[ID]<> " & Me.ID 'Debug.Print myCriteria Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True جعفر

أخي محمد رجاء استخدام الاداة التالية لعرض الكود ، حتى يظهر بالطريقة الصحيحة: جعفر

أخي طارق رجاء اتباع الخطوات في الرابط التالي: جعفر

رجاء مراجعة الموضوع في هذا الرابط لتوضيح اي الخيارين تستعمل ولكن عودة للبرنامج الذي لا يعمل ، السؤال هو: ما الذي لا يعمل في البرنامج؟ جعفر

الذي فهمته صح ، ولكن ، بما انه كل جدول يمكنه ان يحتوي على مفتاح اساسي واحد فقط ، ولكنه يمكنك ان تجعل اكثر من حقل لا يقبل التكرار ، والطريقة هي ان تجعل هذه الحقول مفهرسة وان تجعلها لا تقبل التكرار (Indexed : Yes (No Duplicates) جعفر

عفوا أخي عبدالله انت قصدك: جعفر

نعم ، هذه مشكلة معروفة في الاكسس 2016 يجب ان تكون الصور بصيغة bmp يجب عليك ان تحدث نسخة الاكسس ، والرابط التالي فيه تحديث لهذه الفقرة فقط: https://support.microsoft.com/en-us/kb/3114379 جعفر

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

سأفرد موضوع لهذا السؤال ، فقد تكرر هذا السؤال في عدة مواضيع 1. نحن نحتاج الى Requery ، اذا اردنا قراءة البيانات من جديد من الجدول او الاستعلام ، بينما في الطريقة اعلاه التصفية (me.Filter) تكون في بيانات النموذج مباشرة ، ولا تحتاج الى Requery ، حيث (me.FilterOn = True) يقوم بمقام Requery ، 2. اذا اردت عمل تصفية لأكثر من حقل ، يعني اكثر من شرط واحد ، فأنا لا احبذ ان اضع جميع الشروط في صف واحد ، فهذا يسبب خطأ ، وليس من السهولة معرفة اين الخطأ ، لذا انا استخدم كما في الرابط وعليه ، يصبح الكود هكذا: myCriteria = "([testQ].[datex] between #5/1/2017# and #7/1/2017#)" myCriteria = myCriteria & " AND ([testQ].[country1]<> " & Chr(34) & "اسكندرية" & Chr(34) myCriteria = myCriteria & " or [testQ].[country1] is null)" Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True 3. عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . 4. ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر