اذهب الي المحتوي
أوفيسنا

أبو إبراهيم الغامدي

أوفيسنا
  • Posts

    673
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    13

أبو إبراهيم الغامدي last won the day on ديسمبر 4 2022

أبو إبراهيم الغامدي had the most liked content!

السمعه بالموقع

856 Excellent

عن العضو أبو إبراهيم الغامدي

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    السعودية
  • الإهتمامات
    قواعد بيانات أكسس

اخر الزوار

5,841 زياره للملف الشخصي
  1. أهلا بك أ. @محمد احمد لطفى في فريق الخبراء.. أرجو أن يتهيأ لك الوقت لترينا بعضاً من فرائدك البرمجية!
  2. وعليكم السلام، وأهلا بك @محمد التميمي أود لفت انتباهك إلى أمرين يتعلقان بطلبك !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد لا تكون هي المطلوبة! ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...
  3. في هذه الحالة نريد أن نعرف من أين يأتي الخلل؟ عند حفظ الصورة المخزنة في السجل الأول من المثال، والتي لم نتمكن عرضها في المثال وفتح الملف في محرر النصوص نجد أن المف يحمل نسق مختلفا عن باقي ملفات الصور... (النسق يعني الترويسة أو التوقيع الخاص بالملف) انضروا إلى الجزء المظلل في العينة التالية يعتبر الجزء المظلل حشوا زائدا في ملف الصورة، بينما المتوقع أن يبدأ الملف بالنسق المبين في العينة التالية يمكن معالجة الأمر بإزالة الحشو الزائد يدويا وسوف تظهر الصورة بالشكل الصحيح.. يبقى السؤال: من أين أتى هذا الحشو؟ هل هو من برنامج اللاقط؟ أم قاعدة بيانات SQL؟ أرجو منك أن تتحقق من الأمر.. أنصحك أن تستخدم ShareX
  4. أهلا بك @عبد الله قدور ليس الأمر كذلك! كل مافي الأمر أن عرض الصورة غير مرتبط بمصدر بيانات النموذج.. الصورة في مثالك لها تنسيق مختلف عن نسق الصور التقليدي! ولأنها معالجة بطريقة مختلفة فلن تظهر في عارض الصور.. حاولت معالجة الصورة لكني لم أصل إلى حل إلى الآن.. إذا كانت الصور المخزنة في الجدول جميعها بهذا النسق، فسوف أبحث عن حل قدر المستطاع.. إن شاء الله بالنسبة لمثالك قمت بالتعديل عليه حتى تتمكن من الإضافة التعديل والحفظ Database8.accdb
  5. وعليكم السلام أستاذ @عبد الله قدور الأستاذ @ابو البشر ذهب بعيداً..! بسبب التوصيف غير الواضح في الاقتباس ("لقد قمت بتخزين صورة في كائن ole")، وما ينبغي أن تكون علي العبارة ("لقد قمت بتخزين صورة في حقل ole") لعرض الصورة المخزنة في حقل OLE يتطلب الأمر عنصر تحكم Image، وباستخدام الخصيصة PictureData يمكن عرض الصورة Me.ImgViewer.PictureData([Your OLE Fied]) المثال المرفق يقوم بتخزين الصورة في حقل OLE ومن ثم عرضها باستخدام عنصر التحكم Image PictureViewer.accdb
  6. أهلا @Foksh في ظني أن هذا ملف وورد غُيرتْ لاحقة الملف إلى accdb! هذا كل ما في الأمر! جميع تطبيقات أوفس التي تعتمد على ملفات XML في بنائها هي من هذا القبيل! ميزة 7z أن كل ملف يمكن إجراء فك الضغط عليه! جرب إنشاء ملف (وورد، أكسل، بوربوينت،..) وقم بفك الضغط عنه باستخدام 7z سوف تجد نفس النتيجة!! الهنود، يستخدمون هذا الاسلوب لكسر كلمة المرور لهذه الملفات!! جرب مع أكسل! هذا لا ينطبق على أكسس لأنه لا يعتمد على XML في بنائه!!
  7. أهلا بالجميع.. الحقيقة أن الزملاء قاموا بعمل جبار في تطويع أكسس للإنجاز الفكرة.. بارك الله في الجهود.. تحقيق طريقة HTML مع أكسس أرى أن فيها صعوبة! ولم أجرب فعل ذلك.. لكن استخدام محتوى HTML في أكسس، فذلك ممكن... Pattern_Keypad_ADB.zip
  8. وعليكم اسلام @عبد الله قدور الغلط في القطعة التالية من الشفرة ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date) عند إنشاء المحدد لا يجب أن يقترن بالمعامل (@). هذا الإقتران يكون عند إنشاء الإجراء فقط.. قم بإزالة المعامل فقط ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("Param3", adDate, adParamInput, , Date) إذا أردت اعطاء المحددات قيمة جديدة لا تقم بإنشاءها مرة أخري.. فقط مرر القيم الجديدة بالطرية التالية Param1.Value=Id Param2.Value=Name Param3.Value=Date ComObj.Parametrs.Refresh
  9. كنت تعرف؟! هذا يعني أنك في ذلك التاريخ كنت راشداً!! (؟2+23=>؟؟) نحن بحاجة إلى @شايب لحل هذي المعادلة...
  10. على الرحب والسعة! هناك أمر آخر يمكن استخدامه لهذا الغرض غاب عن بالي لقلة من يهتم له! ألا وهو SwitchBoard (لوحة التبديل)! وهو يعمل في كلا البيئتين (التطويرية accdb) أو (الإنتاجية accde)! بعد إنشاء لوحة التبديل عن طريق المعالج، يمكنك بعد ذلك التحكم في لوحة التبديل عن طريق الجدول دون الحاجة إلى الحاجة إلى استخدام المعالج!!!
  11. أهلا بالجميع.. أولا.. دعوني أتوجه بالشكر للاستاذ @AbuuAhmed لبعد نظره البرمجي.. فليست القضية أن تقدم حلاً! أو تسبق إليه! بل يجب أن يتعدى ذلك إلى كونه صالحا للتطبيق كمنتج! ثانيا.. سبق لى وفي مشاركات عدة تقديم هذا المطلب ضمن الحل.. لكن لم يكن ذلك هو المطلوب من السؤال.. ثالثا.. هناك طريقتان سبق وأن استخدمتهما ضمن الحلول قمت بالمساهمة فيها وهما.. ** استخدام أدوات ActiveX .. لكن ليست هي الأسهل! ولا الأجمل! وتحتاج إلى Class Module لتمرير الأحداث ** استخدام أدات WebBrowser وهي الأسهل! والأجمل! في نظري! هذه الأمثلة لتطبيق الفكرة (استخدم Office64Bit) Database.zip
  12. أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub
  13. إذا كان هذا الشكل البيضاوي الذي تريده استخدم الشفرة التالية Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Me.ScaleMode = 6 '// Millimeters Me.Circle (50, 5), 18, vbMagenta, , , 0.26 '// 0.1 To 1.0 End Sub db1.accdb
  14. أشكر لك هذا الإطراء وأتمنى أن تحوز مشاركاتي على رضاكم..
×
×
  • اضف...

Important Information