jjafferr

اذا استعملنا اسماء الحقول اللي في ملفي (طبعا هذا جدول اخوي ابو جودي 🙂 )، فنحن نتحقق من الحقل 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 ؟ جعفر

وعليكم السلام 🙂 ضع هذا الكود في احداث النموذج وسيؤدي العمل : Option Compare Database Option Explicit Dim Goto_L As Boolean ' Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 1 Then Goto_L = True End If End Sub Private Sub Form_Current() If Goto_L = True Then DoCmd.GoToRecord , , acLast Goto_L = False End If End Sub . . جعفر New Microsoft Access Database.zip

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم. همممم اعتقد بأن اخونا عمرو قصده ، بأنها اسهل بلغة #C او Java 🙂 جعفر