jjafferr
-
Posts
9911 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
404
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو jjafferr
-
هذا الذي عملته انا في احد برنامجي (صورة مرفقة من النموذج) ، ويدويا استعملت برنامج 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 🙂 جعفر- 16 replies
-
- 1
-
-
- zatca integration
- الفاتورة الالكترونية
- (و1 أكثر)
-
وعليكم السلام 🙂 ضع الكود التالي على الزر: 'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/ DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application جعفر
-
السلام عليكم اخي ابو جودي 🙂 الله ان شاء الله يعطيك الصحة والعافية ووالدك الكريم ، وما تشوفون شر ان شاء الله 🙂 مكتبة الموقع تسمح لك بإرفاق ملفات اكبر ، فوضعت المجلد هنا : https://www.officena.net/ib/files/file/403-المجلد-vba_zatcaintegration-v2/ . جعفر
- 16 replies
-
- 1
-
-
- zatca integration
- الفاتورة الالكترونية
- (و1 أكثر)
-
Version 1.0.0
138 تنزيل
مرفق للموضوع -
مكتبة الموقع - الفاتورة السعودية المبسطة
jjafferr replied to أبو إبراهيم الغامدي's topic in قسم الأكسيس Access
السلام عليكم اخوي ابو ابراهيم🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر -
السلام عليكم اخي ابو جودي 🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر
-
السلام عليكم 🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء من الاخوة المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر
-
وعليكم السلام اخي عمرو 🙂 اهلا وسهلا بك في المنتدى ، ونتشرف بوجود مبرمج في مستواك معنا في المنتدى 🙂 حقك معك ، فلا تأخذ هم ولا بأس عليك ، فكلنا نريد ان نأكل لقمة العيش من عملنا 🙂 جعفر
- 12 replies
-
- 2
-
-
- الفوترة الالكترونية
- هيئة الزكاة والدخل
- (و16 أكثر)
-
اذن ، اطلب منك تكرما ان تفتح موضوع جديد ، تضع فيه الطلبات ، ثم تدعوا فيها الاعضاء الذين قاموا بالرد على المواضيع الثلاث اعلاه ، ومنها ان شاء الله سيبدأ المشوار 🙂 طبعا هذا لا يقلل من عمل اخي عمرو صاحب الموضوع ، ونتمنى ان يدلو بدلوه هناك ايضا 🙂 جعفر
