jjafferr

اذن الموضوع صار خارج نطاقنا ، وصار بينك وبين الشركة 🙂 رجاء اخبرنا النتيجة 🙂 جعفر

اخي انصاري 🙂 للمرات القادمة ان شاء الله ، رجاء مراعاة قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

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

اخي الدكتور حلبي 🙂 يمكنك الاستعانة ببرنامج مجاني مثل https://www.irfanview.com/ لتكبير وتصغير واللعب بالصور كما تشاء 🙂 واسمح لي ادلك على برنامج مجاني تقوم بتنصيبه اسمه Lunacy من الموقع : https://icons8.com/lunacy فيه اشياء اكثر بكثير من حاجتي ، ولكني انزلته لأن به ايقونات 🙂 هذا شرح سريع لإستعمال البرنامج للأيقونات : 1. ايقونات 2. مجموعة الايقونات اللي تريدها او تبحث عنها . 3. تنقر على الايقونة باليسار 4. تلقائيا تصبح موجودة للاستعمال ، فاختار المكان المناسب في الشاشة ، وانقر باليسار لتثبت في مكانها ، وترى حجمها 5. من اطراف المربع المحيط بالصورة ، تقدر تعمل تكبير/تصغير/دوران 6. تقدر تعمل تكبير/تصغير بدقة اكثر . 7-10. لحفظ صورة الايقونة . 11. ولما فتحت الملف ببرنامج خارجي ، تأكد لي حجم الملف لذي تم تحفظه في برنامج Lunacy 12. وتأكد لي ان خلفيته شفافة 🙂 . جعفر

من يقوم بهذا التحويل؟

العفو اخوي ابوبسملة ، ما انتبهت للشهر ، كنت اعتقد قصدك تتكلم عن العلامات =>

ليش !! يعني التاريخين من ضمن الشرط 🙂 وتحياتي اخي العزيز احمد 🙂 والحلين موجودين للاخ محمد يختار منهم 🙂 جعفر

وعليكم السلام 🙂 هذه هي الدالة في الوحدة النمطية : Function Get_Results(D2 As Date, i2 As Integer) As Integer If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then If i2 = "4" Then Get_Results = 10 Else Get_Results = 12 End If Else Get_Results = 0 End If End Function . وفي الاستعلام نناديها ، ونرسل لها القيمتين اللي تحتاجهم في التقييم ، هكذا: . ونتائج الحقلين يتساون ، ما عدا ان حقلك السابق نتيجته "نص" (لاحظ تنسيق الاكسس للحقل الى اليسار) ، بينما نتيجة حقلي "رقم" (لاحظ تنسيق الاكسس للحقل الى اليمين) . جعفر 2003.zip

هو جدول جديد وفارغ 🙂

وعليكم السلام 🙂 انا تجربتي كانت مع : https://icon-icons.com/ جعفر

هذا الذي عملته انا في احد برنامجي (صورة مرفقة من النموذج) ، ويدويا استعملت برنامج irfanView لتصغير الصور ، ولكن بدون تغيير اسم الصور التي انزلتها من الانترنت 🙂 . تقدر تستفيد من البرنامج المرفق ، بعرض الصور في من مجلد معين ، ثم تبرمج احد الازرار حتى تحفظ الصورة بالحجم المطلوب ، والمسار والاسم المطلوب 🙂 جعفر FolderImages v3.1.accdb.zip

حيا الله اصحابنا القدامى 🙂 ارسلت رسالتك للإدارة ، وخلينا نشوف ايش ممكن يعملوه لإرجاع حسابك 🙂 جعفر

جرب هذا الكود بدلا عن السابق : 'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70 Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ToggleDesktop Set objShell = Nothing . انت تخفي خلفية الاكسس ، وهذا يجعل العمل غير المألوف ، ويجعل بعض الاوامر لا تتواءم معه !! تجربة اخرى وباستعمال الدالة التي تستخدمها في اخفاء الاكسس ، بدل الاختيارات فوق ، جرب: Call fAccessWindow("minimize") . جعفر

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

وعليكم السلام ابو ماجد 🙂 نصيحة ، لو ما حصلت على اجابة خلال يومين ، اكتب تفاصيل اكثر 🙂 جعفر compobox.zip

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

السلام عليكم 🙂 لوسمحت تشرح لنا خطوات "تحميل الصورة" ثم "حفظها" ، وهل مقاس الحفظ دائما سيكون ثابت ؟ هل سيكون للاكسس دور في العملية اعلاه ؟ جعفر

جرب هذا الكود بدلا عن السابق : 'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70 Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ToggleDesktop Set objShell = Nothing جعفر

والجواب على مشاركتي انا انا ، هل حلت المشكلة 🙂 جعفر

وعليكم السلام 🙂 هذه طريقتي لكود اخي السيد حسام 🙂 Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", vbYesNo, "Confirm Save") <> vbYes Then me.Undo Cancel=true End If End Sub . ولكن وش لك في البحر واهواله و رزق الله على السيف 🙂 الاكسس يعمل لك هذا التغيير مباشرة من الزر الذي حوله دائرة حمراء : . جعفر

شكرا جزيلا اخي احمد سعد على البرنامج ، ان شاء الله الاعضاء يستفيدوا منه 🙂 جعفر

الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!) قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂

سيدي الفاضل 🙂 الرابط اللي اعطيتك ، فيه الطريقة اللي انا شخصيا استخدمها في برامجي ، وها انا ذا استخدمها هنا كذلك : في VBE او Notepad او الوورد او اي برنامج ، قم بتفكيك الامر iif الى سطور ، حتى يكون الامر سهل لك في فهم ما تقوم به ، وحتى الكلمات العربية ما تتداخل وسط الكود ويصبح الكود غير مفهوم : . IIf([ff] = "نجاح", 1, _ IIf([ff] = "فشل", 2, _ IIf([ff] = "Na", 3, _ IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) IIf([ff] = "نجاح", 1, IIf([ff] = "فشل", 2, IIf([ff] = "Na", 3, IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) . وفي النهاية ، احذف العلامة _ وضع الكود في سطر واحد (اوقف على نهاية السطر الاول ، واحذف العلامة _ ، ثم انقر على زر Del على لوحة المفاتيح حتى يأتي السطر الثاني في نهاية السطر الاول ، ويبقى لدينا سطر واحد فقط ، والذي سنأخذ نسخة منه الى الاستعلام مباشرة) . لاحظ في الاستعلام انه بالفعل قلب لنا المتغيرات والحقول ، بسبب اللغة العربية : . . رجاء احتفظ بملف النص ZZ.txt ، فكلما اردن ان تعمل تعديل على معادلة الاستعلام ، اعملها في ملف النص ، ثم انسخها الى الاستعلام 🙂 اما انا ، فبدل ان يكون عندي ملف اضافي في هذا المشروع ، فأقوم بعمل هذه الخطوات في VBE (طبعا ما اناديها برمجيا ولا استعملها) ، واللي تكون جزء من البرنامج 🙂 جعفر ZZ.zip fr.zip

وعليكم السلام 🙂 مشاركة مع اخي ابو جودي 🙂 . . وهذه هي الدالة في الوحدة النمطية : Function Get_R(txt As String) As String If txt = "نجاح" Then Get_R = 1 ElseIf txt = "فشل" Then Get_R = 2 ElseIf txt = "Na" Then Get_R = 3 Else Get_R = 3 End If End Function جعفر fr.zip

وعليكم السلام 🙂 1. ما هو المطلوب ؟ 2. طيب ليه يا كابتن عندك حسابين ، حساب الكابتن وحساب osn ؟ جعفر