د.كاف يار
-
Posts
1,681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
Community Answers
-
د.كاف يار's post in حل مشكلة تكرار السجلات was marked as the answer
تفضل التعديل
الخطأ كان في العلاقة بين الجداول
تم انشاء علاقة بين جدول الحسابات و جداول الحركات
بعد الربط اصبح الكشف بهذا الشكل
project no 2.zip
-
د.كاف يار's post in تفعيل و ايقاف السماح بتكرار سجل في جدول ممنوع في التكرار was marked as the answer
لإنشاء مفتاح اساسي استخدم الكود التالي
DoCmd.RunSQL "ALTER TABLE [mowadfen_check] ADD CONSTRAINT PK_Person PRIMARY KEY ([الرقمالوظيفي], [التاريخ]) لإلغاء المفتاح الأساسي استخدم الكود التالي
DoCmd.RunSQL "ALTER TABLE [mowadfen_check] DROP CONSTRAINT PK_Person"
-
د.كاف يار's post in سعر شراء الصنف لا يظهر في فاتورة المشتريات was marked as the answer
حاول اخي الكريم في المرات القادمة ان ترفق مثال مصغر لكي يسهل التعامل معه
تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات
Database2.rar
-
-
د.كاف يار's post in برنامج القروض البنكية والسداد للموظفين هدية مجانية was marked as the answer
اعجبني الموضوع و حبيت اقدر مشاركة بسيطة
اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر
اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر
و في باقي الحالات يكون اللون الأبيض
هدية مجانية - قروض بنكية.zip
-
د.كاف يار's post in إرسال تقارير بصيغة PDF بالبريد الإلكتروني لعدة أشخاص دفعة واحدة was marked as the answer
المرفق ليس الا مثال
لكن تفضل هذا التعديل
تم تشفير بيانات تسجيل الدخول الى البريد الإلكتروني
كما يجب من اعدادات الايميل تمكين دخول البرامج الأقل أمانا
myaccount.google
بعد التمكين قم بإضافة الايميل و كلمة المرور لقاعدة البيانات
صورة من الإيميل
صورة الشهادة
12839.pdf
Course certificates -Mohd+Moosa.zip
-
د.كاف يار's post in مساعدة في تعديل مسار الصور واضافة نموذج لاستعراض المرفقات was marked as the answer
ابشر اتفضل التعديل
sa1.3.zip
-
د.كاف يار's post in مشكلة في دالة iif was marked as the answer
لأن نوع العمود رقمي و يأخذ قيمته من جدول العام الدراسي بناء على كود العام
نصيحة لك استبدل نوع العمود و اجعله نصي لكي يسهل العمل عليه
تفضل هذا التعديل كما تريده تماما بعد تغيير نوع عمود السنة الدراسية
school.accdb
-
د.كاف يار's post in نقل سجل كامل من جدول الى آخر عن طريق النموذج was marked as the answer
فقط غيير المعيار الى الاسم
و الغي المفتاح الاساسي عشان يقبل التكرار
تفضل التعديل
test-a.accdb
-
د.كاف يار's post in مساعدة في صلاحيات المستخدمين was marked as the answer
تفضل بهذا الترتيب يكون التحكم اسهل
Dim SetCoulmin() As String, SetWhere As String SetCoulmin = " TransID,TransType, TransTitle, " & _ " TransSubject,TransDescription,TransCreatedOn, " & _ " TransCreatedBy,TransStatus,TransUpdatedBy, " & _ " TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp " Forms!DynamicForm!lstDynamic.RowSource = "SELECT " & SetCoulmin & " From TransactionsT " & _ " WHERE TransType is Not Null " & _ " and TransTitle is Not Null " & _ " and TransSubject is Not Null " & _ " and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' " & _ " ORDER BY TransID DESC"
-
د.كاف يار's post in الرجاء المساعدة ( الترحيل الى Access و الجلب من Access ) was marked as the answer
تفضل هذا التعديل السهل و البسيط
القي نظرة على الماكرو
بعد التصدير ستجد ملف الاكسل بجوار برنامجك
عملية الترحيل و الجلب من و الى اكسال.zip
-
د.كاف يار's post in وحدة نمطية للتأكد من الادخالات التي يدخلها المستخدم مطابقة لتنسيق الخانانت was marked as the answer
اقترح عليك ان تستخدم قناع الادخال لكل عنصر
مثال على ذكل
لدينا مربع نص رقمي و ليكن مثلا يتكون من عدد 4 حقول و يمثل حقل ID
و يكون قناع الادخال بهذا الشكل
بالتالي فأن القيمة المدخلة ستكون رقمية و لن يقبل القيم النصية
مثال آخر لقيمة نصية
هنا لدينا مربع نصي لإدخال الاسم و التنسيق الافتراضي له هو حروف فقط
يكون قناع الادخال بهذا الشكل
بإختصار من خلال قناع الادخال بإمكانك التحكم بنوعة الادخال لكل حقل
فمثلا لو كنت تريد ما يلي :-
اجبار المستخدم على ادخال قيمة نصية محددة لا تزيد عن رقم فيكون قيمة قناع الادخال هو : 0
اما لو اردنا المستخدم ادخال عدد محدد من الارقام مثلا تسعة ارقام فيكون قيمة قناع الادخال هو : 9
اما مثلا لو اردنا اجبار المستخدم على ادخال رقمين و حرفين فيكون قيمة قناع الادخال بهذا الشكل : ##LL
لتمكين المستخدم من ادخال حروف و ارقام بعدد محدد مثلا خمسة حروف او ارقام فيكون قناع الادخال بهذا الشكل : AAAAA
******* ملاحظة *************
الحروف في قناع الادخال مثلا A كبير فيعني ادخال اجباري اما لو كان الحرف صغير a فيعني ادخال اختياري
كما ستجد بعض نماذج اقنعة الادخل من خلال الخصائص
-
د.كاف يار's post in طريقة تسديد ديون من الفاتورة التي بيعت بالآجل was marked as the answer
تفضل هذا التعديل
Database1.zip
-
د.كاف يار's post in الذهاب لنموذج منفصل وتمكين الحقول الموجوده فى النموذج الرئيسي فقط was marked as the answer
تفضل هذا التعديل
GoToForm.accdb
-
د.كاف يار's post in الذهاب لنموذج منفصل وتمكين الحقول الموجوده فى النموذج الرئيسي فقط was marked as the answer
تفضل هذا التعديل
GoToForm.accdb
-
د.كاف يار's post in تصدير ملفات اكسس الى اكسل حسب المرفق was marked as the answer
جرب هذا التعديل
تقسيم.zip
-
د.كاف يار's post in رسالة موافق غير موافق was marked as the answer
تفضل جرب هذا التعديل
numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End If
-
د.كاف يار's post in كيفية اخذ قيمة من كومبوبوكس لمتغير من نوع TempVar was marked as the answer
جرب هذي الطريقة
TempVar!EmpNameTemp=Me.cbo123.Column(2)
-
د.كاف يار's post in مساعدة في كشف عن خطأ في المعادلة was marked as the answer
تفضل هذا المثال وضعت لك مثالين لسحب الصورة من الماسح الضوئي و جلب صورة من الكمبيوتر
Database12222.mdb
-
د.كاف يار's post in كيفية الحساب من الوحدة النمطية was marked as the answer
من الطبيعي ان تواجه مشكلة
من الطبيعي ان تتوقف الجداول عن اضافة المزيد من الحقول
اخي عدد الحقول لكل جدول هو 255 عمود
بعد الوصول للحد الاقصى فلن تكون قاعدة البيانات قابلة للتعديل
لكي تتجاوز هذه المشكلة فإن ايسر الحلول و اسهلها
انشاء جدول جديد من خلاله تستطيع اضافة حقول تتجاوز العشرة آلاف لكن بالطرق السليمة الصحيحة
ومن خلال ربط الجدول الجديد مع الحالي
تكون قد حققت الهدف بعيد عن التحميل الغير منطقي على قاعدة البيانات
و تكون النتيجة بهذا الشكل
تم الاستغناء عن 236 حقل و التعويض عنها بعدد 4 حقول مترابطة سليمة
حين يكون العمل بالصورة السليمة سوف تجد سهولة في التعامل مع
طبق التعديلات تطبيقا منطقيا و اعد رفع الملف ان واجهت مشكلة اخرى
التسويات 8-2022.zip
-
د.كاف يار's post in انشاء استعلام والبحث فيه باكثر من معيار was marked as the answer
تفضل ملفك
حضور وانصراف موظفين.zip
-
د.كاف يار's post in مساعدة فى عملية حسابية مشروطة was marked as the answer
سؤالك مكرر و تمت الاجابة عليه سابقاً
شكرا لك
-
د.كاف يار's post in موازنة الصندوق بين النقدي والآجل (معدل) was marked as the answer
تفضل التعديل
system.zip
-
د.كاف يار's post in فتح ملف وورد من داخل اكسس was marked as the answer
خطأ في صيغة ملف الوورد
استبدل الكود بالتالي في ازرار فتح الملف الثاني و سيعمل بدون مشكلات
Dim X As Object On Error Resume Next Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\althane.doc" X.Visible = True X.Activate X.ActiveDocument.Bookmarks("Idd1").Select X.Selection.InsertAfter Me.Idd.Value
-