بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
kha9009lid
-
Posts
1,347 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
29
Community Answers
-
kha9009lid's post in تعطيل خانة البحث was marked as the answer
بعد اذن اخي الفاضل @سلمان الشهراني
ايقاف رسائل التحذير
DoCmd.SetWarnings False تنفيذ استعلام الحاق
DoCmd.RunSQL "INSERT INTO table2 ( id, الاسم, [تاريخ التولد], العمر, المهنة, الملاحظات ) " & vbCrLf & _ "SELECT table.id, table.الاسم, table.[تاريخ التولد], table.العمر, table.المهنة, table.الملاحظات " & vbCrLf & _ "FROM [table];" تنفيذ استعلام حذف
DoCmd.RunSQL "DELETE table.* " & vbCrLf & _ "FROM [table];" تحديث النموذج الفرعي بعد الحذف
Me.subform12.Requery رسالة تنفيذ المهمة
MsgBox "تم تنفيذ نقل الملفات", vbInformation, "رسالة ادارية" اعادة تفعيل رسائل التحذير
DoCmd.SetWarnings True الملف مرفي المرفقات
الموظفين.accdb
-
kha9009lid's post in فتح تبويب من خلال زر فى تبويب اخر was marked as the answer
في العادة يكفي نقل التركيز للتبويب المطلوب ولكن لكونك تستخدم نماذج فرعية فالامر يختلف قليلا
Form_general.زر_التنقل7.SetFocus SendKeys "{Enter}" اولا نقلنا التركيز للتبويب
ثانيا ارسلنا امر انتر لفتح التبويب
الملف مرفق
HR_Update.accdb
-
kha9009lid's post in طريقة حماية عرض التصميم was marked as the answer
نعم ممكن
1استعلام لعدم التكرار1.mdb
-
kha9009lid's post in كيف يمكن معرفة المزايا الجديده التي يتم اضافتها في اصدار اكسس الجديدة was marked as the answer
نعم ممكن هنا المزايا الجديدة
لا اعتقد انك تحتاج الى انتقال للاصدار الاحدث الا اذا كنت تحتاج الى المزايا الجديدة في الاصدارات الحديثة علما بان الكثير من المستخدمين يفضلون الاصدار 2003
مع الاحاطة ان بعض المزايا الجديدة مثل رقم كبير عندما تستخدمها لن تعمل قاعدتك على الاصدارات الاقدم من اصدارات 2016 المحدث و 2019 و365
-
kha9009lid's post in كيف اجمع حقل التكست في التقرير was marked as the answer
جرب المرفق
IIf(IsNull([Worker01]) or [Worker01]="0";0;1)+IIf(IsNull([Worker02])or [Worker02]="0";0;1)+IIf(IsNull([Worker03])or [Worker03]="0";0;1)+IIf(IsNull([Worker04])or [Worker04]="0";0;1)
Daily Report V07.accdb
-
kha9009lid's post in حساب عدد الذكور وعدد الاناث was marked as the answer
جرب المرفق لعلة المطلوب
Class2.accdb
-
-
kha9009lid's post in ربط التاريخ was marked as the answer
لابد من وضع اسم الحقل الخاص بالتاريخ والخاص باليوم
جرب المرفق
Library.mdb
-
kha9009lid's post in هل نستطيع عمل الحقل في النموذج كما هو في التقرير (مجموعة اضافية ) او تراكمي ؟ was marked as the answer
كخاصية مضمنه في النموذج لا وانما ممكن عملها عن طريق كود بسيط اذا كان حقل له وعليه في نفس الجدول ممكن استخدام التعبير
Format(DSum("[المبيعات]-[المشتريات]";"tbl1";"[ترقيم]<=" & [ترقيم]);"عملة") للحصول على الرصيد دالة format اختيار للحصول على التنسيق بشكل مباشر
اما اذا كان له في جدولة وعليه في جدول اخر بمعنى جدول للمدفوعات وجدول للمصروفات فنحتاج الى خطوات اضافية ربما اضع مثال لذلك في وقت لاحق
في جميع الاحوال الافضل للحصول على الرصيد ان يكون عن طريق الاستعلام
في المرفقات مثال للطريقة الاولى
رصيد1.accdb
-
kha9009lid's post in تحويل التاريخ الميلادي الى هجري فى الإستعلام فقط was marked as the answer
تقصد بدون اكواد وبدون وحدة نمطية
نعم ممكن ولكن بعدة خطوات
اولا نحتاج الى اضافة جدول يحتوي على كافة التواريخ الميلادية وما يقابلها من تواريخ هجرية
ثانيا في الاستعلام نجعل قيمة حقل التاريخ الهجري يساوي الاتي
DLookUp("[h_date]";"tbl1";"[m_date]=" & Format([dates_m];"\#mm\/dd\/yyyy\#")) اي اننا نطلب قيمة التاريخ الهجري من الجدول الاضافي اذا كان التاريخ الميلادي في الجدول الاضافي يساوي التاريخ الميلادي في الاستعلام وبالتنسيق المحدد في دالة format
ثالثا بعد الحصول على قيمة التاريخ الهجري يمكننا بسهولة الحصول على حقل اليوم والشهر والسنة
المثال مرفق استعلام q2
هجري2.accdb
-
kha9009lid's post in استعلامات متعددة علي نموذج فرعي واحد was marked as the answer
العفو استاذي @jo_2010
واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر
فلا توجد مشكلة ممكن عملها
لكل زر امر نضع الكود التالي مع تغيير اسم المدينة
Dim myfilter As String myfilter = "[city]='" & "الرياض" & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True ولعرض الكل
Me.tbl1.Form.FilterOn = False ولكن اعيد ان هذه الطريقة ليست عمليه
المثال في المرفق
بحث3.accdb
استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير
-
kha9009lid's post in بيانات الحقول لا تظهر في الجدول was marked as the answer
جرب المرفق
HCT Permit To Work System V.02 - Update _Normal + Red Zon - Copy.rar
-
kha9009lid's post in طلب شرح كود was marked as the answer
وعليكم السلام
حسب فهمي لطلبك انت ترغب في اضافة بيانات للجدول عن طريق نموذج غير منظم بحيث يتم حفظ ما يتم كتابتة في مربعات النص في النموذج للحفظ في الجدول
اذا كان فهمي صحيح جرب المثال المرفق لحفظ وتعديل وحذف والبحث عن طريق نموذج غير مرتبط
للتعديل والحذف ابحث اولا عن طريق رقم الملف .
مثال.accdb
-
kha9009lid's post in مساعده بملء حقول _ نقل بيانات بين الجداول was marked as the answer
جرب المرفق
New Microsoft Access Database.accdb
-
kha9009lid's post in شرح انشاء قوائم منسدلة ديناميكية was marked as the answer
انظر هنا
وهنا
هناك طريقة ثالثة افضل استخدامها ويمكن عملها بكتابة اكواد xml وهي اجمل وتجمع قوائم مخصصة واشرطة ادوات
-
kha9009lid's post in الحروف الانجليزية كبيرة was marked as the answer
في حدث بعد التحديث للحقل المطلوب الكتابة بحروف كبيرة ضع الكود التالي
[txt] = UCase([txt]) txt هو اسم الحقل
اكتب بشكل عادي وسوف تتحول الحروف الى كبيرة
-
kha9009lid's post in هل يمكن إضافة تاريخ اليوم للسنة كاملة بضغطة زر was marked as the answer
جرب المرفق
اختار تاريخ البداية وعدد الايام
Database74.accdb
-
kha9009lid's post in الغاء التظليل من النموذج was marked as the answer
من خلال الخيارات اعدادات العميل
انظر الصورة
-
kha9009lid's post in الجمع بناء على اختيار مربع اختيار was marked as the answer
وعليكم السلام
ممكن عملها باكثر من طريقة
الطريقة الاولى
في المرفق في النموذج المسمى table تم عملها بدون استخدام اكواد عن طريق منشئ التعبير مع الاستعانة بمربعات نص غير منظمة ووضع تعبير مشروط اذا كانت خانة الاختيار =-1 تكون قيمة مربع النص تساوي القيمة الفعلية للحقل واذا كانت خانة الاختيار غير مؤشر عليها "صفر" تكون قيمة الحقل الغير منظم تساوي صفر وهكذا لبقية الحقول ثم جمعنا مربعات النص الغير منظمة للحصول على النتيجة
الطريقة الثانية
في النموذج المسمى جدول1 عملنا زر امر عند النقر يقوم بحجز متغيرات واستخدمنا كود بواسطة دالة IIF وبنفس الفكرة السابقة ولكن بدلا من مربعات النص غير المنظمة استخدمنا المتغيرات
ممكن عملها بطريقة اخرى ولكن في اعتقاد هذة اسهل الطرق للحصول على النتيجة والله اعلم
aa.accdb
-
kha9009lid's post in تقرير بتسجيل الدخول والخروج للمستخدمين was marked as the answer
فكرة جميلة وتؤدي العرض ويمكن عملها بدون الحاجة الى حقل الوقت
في الاستعلام
DLast("[id]";"Time_Enter&Exit";"[users] = '" & [Forms]![login]![Username] & " ' ")
تسجيل الدخول والخروج.accdb
-
kha9009lid's post in كيف تقوم بعمل اظهار لأسم الزرار في النموذج عند الوقوف عليه was marked as the answer
من خلال خصائص زر الامر
-
kha9009lid's post in اريد اضافة تقارير وتلوين رأس التقرير was marked as the answer
جرب الان
بس انا مافهمت بخصوص التقرير الاخضر انت ترغب يطبع السجل الحالي او كافة انا عملته يطبع الحالي وبامكانك تعديلة الى كافة السجلات من خلال الدخول على مصدر التقرير وحذف المعيار من الحقل الاول
Permit to Work.rar
-
-
kha9009lid's post in التاريخ الميلادي والهجري was marked as the answer
ماهو ضروري ان حقل التاريخ الهجري يكون مرتبط بتحديث التاريخ الميلادي
ممكن تكون القيمة الافتراضية لكليهما date() وهذا الامر مفيد للسجلات الجديدة لكونه يسجل القيمة الافتراضية ويحفظها في الجدول اما لو كان لديك سجلات قديمة فلابد من ادخال التاريخ الهجري
جرب المرفق
Database681.accdb
-
kha9009lid's post in فاتورة بيع - طريقة اضافة صنف was marked as the answer
جرب المرفق بعد ادخال البيانات والمبلغ انقر على امر حفظ الفاتورة
Sale.accdb