اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Foksh

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4452

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

  • Days Won

    190

 نوع المحتوي 

كل منشورات العضو Foksh

  1. Foksh
    ارفق ملف اخي الكريم
  2. Foksh
    - ما المقصود بالربط من قاعدة 1 الى آخر قاعدة 36 ؟؟؟؟؟؟ - ما علاقة Dlookup البحث عن سجل بالربط !!! - عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى اخر قاعدة !!!! حاولت الربط بين الأفكار ولم استدل على المعنى والمطلوب .
  3. Foksh
    إن كنت في البداية قد فهمت المطلوب ، فالآن للأسف لم افهم
  4. Foksh
    يعني على فرضاً ان لديك 10 قواعد بيانات ( واحدة منها الرئيسية ، والـ 9 الباقيات هن قواعد بيانات الجداول ) ، وتريدين استخدام الدالة DLookup للبحث عن سجل محدد داخل جدول محدد ، بحيث يقوم الكود ( الذي تريدينه ) بالبحث عن هذا السجل ولكن داخل جميع قواعد البيانات الخلفية ( الخاصة بالجداول ) !!!!!!!!!!!!!!!!!! أتمنى أن لا يكون هو المقصود
  5. Foksh
    ما شاء الله ، تحديث سليم لمشكلة التوسيط بعد التصغير .. ، وأيضاً مشكلة عدم وجود الأيقونة في المجلد
  6. Foksh
    ومشاركة مع معلمي الأفاضل ، دعني أضيف قطرة من بحر علمهم 😇 . يمكننا باستخدام دالة Mid والتي تستخدم لاستخراج جزء معين من النص ، وعلى افتراض أن اسم الحقل النصي هو MyDate ، يمكنك استخدام الاستعلام التالي لاستخراج السنة : SELECT MyDate, Mid(MyDate, InStrRev(MyDate, "/") + 1, 4) AS YearNum FROM YourTable; * طبعاً مع تغيير اسم الجدول أيضاً في YourTable ؛ و أيضاً لم أقم بمشاهدة ملف الأستاذ محمد لطفي أيضاً 🤗 إن كان قد استخدم اسلوب الاستعلام . واذا أردنا توسيق الفكرة كما أشار المعلم الفاضل الأستاذ جعفر ، قد نجعل الاستعلام بهذا الشكل ايضاً بحيث مع اختلاف اتجاه كتابة التاريخ ( من اليمين لليسار أو العكس ) أو ايضاً بدلاً من الفاصل "/" يمكن ان يكون "-" على سبيل المثال , SELECT MyDate, IIf(InStr(MyDate, "-") > 0, Left(MyDate, 4), IIf(Len(MyDate) = 10, IIf(Left(MyDate, 4) Like "####", Left(MyDate, 4), Right(MyDate, 4)), Null) ) AS YearNum FROM YourTable;
  7. Foksh
    حاولت الوصول إلى معنى واضح ، لكن ما قدرت 😅 اذا امكن اختنا الفاضله انك توضحي طلبك بشكل بسيط حتى لو 10000 جملة 😇 المهم انك توصلي فكرة السؤال والطلب ببساطة
  8. Foksh
    وعليكم السلام ورحمة الله وبركاته ,, اخي الكريم انت استخدمت الدالة DLookup لجلب رقم المقترض ( على ما أعتقد ) بناءً على اسم الموظف في الكومبوبوكس ، هل هذا صحيح ؟؟ وبإمكانك بدلاً من ذلك استخدام نفس مصدر الكومبوبوكس com1 ولكن هنا سنختار العمود رقم 2 حيث :- ( العمود 0 = اسم الموظف ، والعمود 1 = الجهة ، والعمود 2 = رقم المقترض ) ، لذا تم استبدال الجملة التالية :- Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'") بالجملة :- Me.n2 = com1.Column(2) أيضاً تم إجراء تعديل بسيط على عدد الأعمدة في الكومبوبوكس com1 وعرض كل عمود ؛ كما في الصورة :- الملف بعد التعديل القرضة الحسنة اصدار 31.zip
  9. Foksh
    ومشاركة مع أستاذي الجليل @jjafferr Me.YourTextBox = UCase(Me.YourTextBox)
  10. Foksh
    وعليكم السلام ورحمة الله وبركاته .. ارفق ملف أخي الكريم ( وهذا مهم جداً ) ، وكمحاولة جرب التعديل البسيط التالي :- Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'") سيبحث التعديل السابق عن أي جزء من النص ، وبالتالي قد يكون أكثر دقة إذا كانت هناك تباينات في الكتابة أو أخطاء بسيطة في البيانات .
  11. Foksh
    تم الاطلاع مسبقاً اخي الكرم .. Cal error.accdb
  12. Foksh
    أخي الكريم مؤيداً لما تفضل به معلمينا ، و وجهة نظر أخرى .. فإذا كانت القيمة المطلوبة هي نتيجة قسمة حقلين مختلفين استناداً إلى شروط معينة ، يمكننا تعديل كودك بحيث يستخدم دالة DLookup للحصول على القيمتين ثم يقسمهما مباشرةً ، ومن ثم يقوم بتقريب الناتج وحفظه في الحقل المطلوب. جرب الكود التالي :- Private Sub Command7_Click() Dim value1 As Variant Dim value2 As Variant Dim result As Variant value1 = DLookup("result", "Table1", "[code] = 33") value2 = DLookup("result", "Table1", "[code] = 36") If Not IsNull(value1) And Not IsNull(value2) And value2 <> 0 Then result = Round(value1 / value2, 3) Me.C = result Else MsgBox "قيم غير صحيحة" End If End Sub جرب وأخبرنا بالنتيجة ..
  13. Foksh
    بسم الله ، ما شاء الله على الجمال والحركات الرهيبة .. إناء العسل لا يعطي طعم غير العسل ، وهذه نقطة من ابداعاتك مهندسنا الأستاذ @Moosak
  14. Foksh
    وعليكم السلام ورحمة الله وبركاته ،، جرب استخدام هذا الكود في محرر الأكواد VBA اضغط ( ctrl + G ) ، ثم اكتب السطر التالي :- CommandBars("Property Sheet").Enabled = True
  15. Foksh
    رحم الله والديك ، وجعل لهم من الجنات نصيبا .. عمل جميل أستاذنا @SEMO.Pa3x
  16. Foksh
    لا اعلم ما هي تسلسل الأحداث في مشروعك ، ولكن هذه الطريقة التي اعتمدها من زمااان ولم أواجه بها أي مشكلة ؛ كما وجدت أنها تغنيني عن أكواد أو دوال كثيرة قد لا يكون لها ضرورة
  17. Foksh
    وعليكم السلام ورحمة الله وبركاته ، من وجهة نظري قد يكون هناك أكثر من فكرة ! ولكن رأيت أفضلها ما يلي :- دالة تقوم بالبحث عن آخر رقم فاتورة ( مثل Dmax أو أكواد الـ VBA ) تعمل فقط بإنشاء رقم الفاتورة عند الضغط على زر الحفظ فقط !! وليس عند تحميل النموذج أو أي حدث آخر . بمعنى أوضح ، لنفترض انك قمت بفتح سجل فاتورة جديدة وتم إضافة الأصناف .... إلخ . وفي جهاز مستخدم آخر نفس الفكرة ، وكان رقم آخر فاتورة 99 ، أنت على جهازك على النقر على زر دفع فاتورة أو حفظ فاتورة ... إلخ سيتم انشاء رقم الفاتورة في مربع نص رقم الفاتورة قبل عملية الحفظ للفاتورة ( وهنا سنستغل البطئ اللحظي في الشبكة الداخلية على سبيل المثال ) لإنشاء رقم الفاتورة الجديد 100 . ✔ وللتجربة جرب انشاء فاتورة على جهازين مختلفين على الشبكة لديك ، وبنفس اللحظة 🕕 قم بالنقر على الزرين حفظ أو دفع للفاتورة ( بنفس الوقت ) ولاحظ ارقام الفاتورة بين السجلين
  18. Foksh
    اخي الكريم ، بدايةً أهلا وسهلاً بك معنا في عالمنا المتواضع .. هناك عدة نقاط يجب أن تنتبه لها كي تبدأ بداية طيبة وسليمة وصحيحة ، أساعدك في فهمها :- وجوب وجود حقل مفتاح أساسي وهنا تم التعديل على ملفك بانشاء جدول مستقل للمستخدمين ، وربطه بمفتاح UserID مع الجداول .. اذا كان الهدف هو تسجيل التعديلات لكل مستخدم ، فهنا سيكون لديك جدول لتسجيل رقم واسم المستخدم ليتم بعدها التفرع بالجدول الخاص بتسجيل الحركات . وهنا سيكون الحذف مقرون برقم الموظف كونه مفتاح أساسي . في التقرير ما الهدف من تحقيق المطلوب ان كان وظيفة التقرير هو عرض البيانات وتهيئتها للطباعة أو للمتابعة !!!! قم بتصويب الأمور بشكل صحيح وستجد ان مشكلتك تم حلها ببساطة .
  19. Foksh
    تأكد من أن خصائص المربعات النصية ان اتجاه النص أو المحاذاة لا تساوي "Distribute"
  20. Foksh
    وعليكم السلام ورحمة الله وبركاته ,, ارسل ملف مرفق يحتوي المشكلة للإطلاع عليه أخي الكريم
  21. Foksh
    أهلا يا دكتور ,, الله يسلمك ، و أشكرك يا غالي
  22. Foksh
    مشاركة مع ملف الأستاذ موسى ، جرب هذا التعديل البسيط تم عمل الموضوع بطريقتين ، الأولى زرين للتحديد والغاء التحديد للكل والثانية زر واحد فقط يقوم بالمهمتين دون الحاجة لزرين اثنين .. db1 (Moosak).mdb
  23. Foksh
    ما شاءالله ،، تبارك الله مهندسنا @ابو جودي ,, عمل رائع ومتكامل جداً وخفيف ، وشغل نظيف ومجهود يستحق الإحترام
  24. Foksh
    إن شاء الله لها حل ، قول يا رب 💖
  25. Foksh
    ليها حل إن شاء الله ، إن كان في العمر بقية ليوم غد سنحاول فك هذا الطلسم 😁
×
×
  • اضف...

Important Information

  I accept