بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
Ahmed_J
-
Posts
733 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Ahmed_J
-
-
اخي العزيز
قلت لك توجد عدة طرق لاستيراد ملف الاكسل من الاكسس والاكواد تختلف حسب نوع الاستيراد
اول شيء لابد انك من عندك قاعدة بيانات اكسس مع ملاحظة التالي:
1- هل لديك جدول بالاكسس مشابة لجدول الاكسل وعاوز تنزل البيانات فيه
2- ام عاوز كود لتكوين جدول لتنزيل البيانات فية
ارجو ارفاق ملف لكي يتم التعديل عليه
تحياتي لك
-
السلام عليكم
توجد اكثر من طريقة لاستيراد ملفات الاكسل الى الاكسس
احدى هذه الطرق هذا الملف لاحد الاخوة بالموقع
اول شيء تختار مسار الملف
ثاني شيء تختار اسم ورقة العمل من القائمة المنسدلة تحت مسار الملف
ثالث شيء تضغط على البيانات من ملف اكسل
اتمنى ان يكون المطلوب
-
السلام عليكم
اتفضل هذا رابط الموضوع
اتمنى ان يكون المطلوب
تحياتي
-
1
-
-
-
-
السلام عليكم
اولا انا احب العمل بالوحدات النمطية لاني اعمل وحدة نمطية واحدة لكل النماذج وبصراحة لااعرف سيئات ذلك
ثانيا حسب طلبك تقول الحساب في الوحدة النمطية وانت تريد التعامل مع النصوص ( ابتدائي واعدادي وثانوي وتمهيدي وابناء عاملين )
المهم اخي العزيز من الافضل ان ترفق ملف توضيحي لطلبك
وحسب فهمي لطلبك يمكن استخدام دالة Select Case او دالة IF في الوحدة النمطية
تحياتي
-
السلام عليكم اساتذتي الاعزاء
ظهر لي خطا في Module1 الاولى بعد End Function كما في الصورة
تحياتي للجميع
-
تفضل اخي الكريم
استخدم دالة nz او اجعل قيمة افتراضية للحقل =0
المجموع: Nz([num1];0)+Nz([num2];0)-
2
-
-
السلام عليكم استاتذتي الاعزاء
ارجوا تحميل الملف بصيغته النهائية بعد التعديلات والذي يدعم اللغة العربية
وفقكم الله وجعلها في ميزان حسناتكم
تحياتي للجميع
-
-
2
-
-
-
1
-
-
-
بارك الله فيك استاذ @Khalf
عاشت ايدك على المجهود الكبير
للتوضيح عن طلبي السابق
مرفق ملفين الملف الاصلي والملف الجديد
الملف الاصلي فيه كود للبحث في النموذج الرئيسي والنموذج الفرعي وهو يعمل جيدا
اردت فقط ان انقل عملية البحث والحقول الى نموذج جديد (نموذج البحث المتقدم)
بحث يكون مثل بحث نظام الاكسس عن طريق نموذج اخر كما في الصورة
تحياتي
الملف الاصلي.rar الملف الجديد.rar
-
السلام عليكم استاذ @ابو البشر
بارك الله فيك
ارجوا منك اكمال الكود بحيث لانستطيع التعديل على القائمة المنسدلةنفسها تصبح غير قابلة للتعديل
كما في الصورة
-
لسلام عليكم اساتذتي الاعزاء
مرفق برنامج لاستاذة ( ام عهود) الله يحفظها لاحتساب الاقساط الشهرية
المطلوب: في حقل القسط عندما نختار (تم الدفع) يصبح السجل في النموذج المستمر غير قابل للتعديل (Me.A.Enabled=False)
وشكرا لكم
-
السلام عليكم
تفضل استاذي العزيز حقل محسوب
IIf([نوع الحركة]="شراء";[الكمية]+([كمية مجاني]*[الشد]);0)-
1
-
1
-
-
تدلل استاذي العزيز
بالخدمة
تحياتي
-
استاذي العزيز
المشكلة عندك بالنماذج لاتقرا السجلات كان النماذج غير مرتبطة بالجداول
ايفونة البحث تعمل بصورة طبيعية
الحل : من بيانات - ادخال البيانات - قم بتغيير نعم الى لا (قم بتعديل كل النماذج بنفس الطريقة)
تفضل الملف بعد التعديل
اتمنى يكون المطلوب
تحياتي
-
1
-
-
-
السلام عليكم
لدي نموذج فية رقم (عدد صحيح) مكون من 6 مراتب
المطلوب: تقريب الرقم الى اقرب الف (ثلاث مراتب فقط)
تحياتي للجميع
-
-
عند فتح النموذج FrmMain يفتح FrmNotReg
وهذا Activation Number
00000000-0000-0000-0000-00241D23C84C
-
استاذ @ابو جودي
بيفتح عادي جدا
ثم قمت بنسخ الملف الذي فتحته بالجهاز الاول الى جهاز ثاني وبيفتح عادي
تحياتي لك
-
اخي العزيز
هذا الكود يعمل شو هي المشكلة عندك فية
Dim X Dim i i = DLookup("[الاسم]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[اسم الاب]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[العائلة]", "BeneficiaryT", "[card]=[رقم الهوية]") X = DLookup("[رقم الهوية]", "BeneficiaryT", "[card]=[رقم الهوية]") If Not IsNull(X) = True Then MsgBox "رقم الهوية" & " ( " & [card] & " ) " & " تم تسجيله مسبقاُ" & "بأسم" & " " & i, vbCritical, " تنبيه" Undo DoCmd.FindRecord X Else: Exit Sub: End If DoCmd.RefreshRecord
عمل تقرير بشكل مخصص
في قسم الأكسيس Access
قام بنشر · تم تعديل بواسطه Ahmed_J
السلام عليكم اساتذتي الاعزاء
لدي ملف بيانات الموظفين
اريد عمل تقرير مخصص كما في الصورة علما بان التقرير مبني على استعلام
وتكون كافة الحقول مساوي من حيث التصميم لعدد حقول التقييم
لان احيانا يكون عدد التقييمات واحد او اثنان وهكذا لغاية خمسة كحد اقصى
تحياتي للجميع