د.كاف يار

في حدث عند الفتح + في ازرار الحفظ Me.AllowEdits = False في ازار الاضافة Me.AllowEdits = True

تفضل التعديل اخي الكريم موظف.accdb

اخي الكريم يوجد خطأ في بناء الجداول اقترح عليك الآتي - جدول الأطباء ( المفتاح الرئيسي رقم الطبيب) - جدول المرضى ( المفتاح الرئيسي رقم المريض ) يجب اضافة المفتاح الرئيسي لرقم الطبيب - جدول المستهلكات ( المفتاح الرئيسي رقم المادة ) المفتاح الرئيسي لرقم المريض / كذلك بالامكان اضافة المفتاح الرئيسي لرقم الطبيب و تفيد في حال الرغبة باستخراج تقرير بالمستهلكات من طرف كل طبيب لو لاحظت بأن الربط اصبح هرميا او تراكميا بهذه الطريقة يسهل عليك عمل التقارير و ربط الجداول مع بعضها الربط الأول :( ربط جدول الأطباء مع جدول المرضى) الربط الثاني : ( ربط جدول المرضى مع جدول المستهلكات " باعتبار انها محسوبة على المريض " )

الف شكرا لك اخي الكريم على هذه الكلمات المحفزة و المشجعة و مرورك العطر

سؤال محاسبي بحت و اجابة محاسبة احترافية ماشاء الله

انت هنا حددت الناس المنقولة و طبقت عليهم شروط الفصل الجديد اذا كان في الصف الأول ينقل للصف الثاني ... الخ و هكذا Select Case OldClass Case "الأول" NewClass = "الثاني" Case "الثاني" NewClass = "الثالث" Case "الثالث" NewClass = "الرابع" Case "الرابع" NewClass = "الخامس" Case "الخامس" NewClass = "السادس" Case "السادس" NewClass = "السابع" End Select

تفضل اخي الكريم هذه فكرة مبدئية بناء على جدول الاكسل في ما بعد تستطيع انشاء شهادات لحضور الدورات و امور كثير بإستطاعتك تنفيذها اسم المستخدم : Admin كلمة المرور : 123 ** مع العلم لقد تركت المصدر مفتوح لكي تستيطع التعديل عليها و طلب المساعدة تدريب.mdb

اخي الكريم يتم الجميع داخل الفيجوال بيسك افضل TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text) كذلك تستطيع استخدام IFF الشرطية TextBox1.Text = IIF(Val(TextBox2.Text) = 1 , "ناجح",IIf( Val(TextBox3.Text) = 2 , "راسب"))

العفو و على رأسي بارك الله فيك

اخي الكريم لدي برنامج شبيه بالمطلوب و لكن غير مكتمل ارجوا الاطلاع عليه اذا كانت الفكرة مناسبة سيتم استكماله بناء على طلبك و تقريبا لوجهات النظر هذا من ناحية التصميم اما من ناحية قاعدة البيانات فأرشح القاعدة المرفقة من أخي @أبو عبدالله الحلوانى فتصميمها محكم جداً كذلك جودة العلاقات بين الجداول ممتازة جدا Database2003.mdb

تفضل الملف اخي الكريم استيراد و تصدير من الاكسل.mdb

جرب هذا المرفق Exam.accdb

و هذه فكرة اخرى AA.accdb

ارجوا توضيح المطلوب المرفق يعمل بشكل سليم بدون تكرار

تفضل هذا الاقتراح الضريبة.accdb

اخي الكريم لنفترض انه لديك جدول للمستخدمين (UserId , UserName , Password , UserTayb, Additions (Yeas / No), Deletions (Yeas / No), Edits (Yeas / No)) ففي شاشة الدخول LOGIN نحتاج لتعريف متغيرات عامة من نوع Global حسب جدول المستخدمين ففي حال تطابق اسم المستخدم مع كلمة المرور يتم جلب بيانات المستخدم و تخزينها في المتغييرات اذا فالفكرة العامة بأن نقوم بجلب صلاحيات المستخدم و تطبيقها على جميع النماذج من خلال الاتصال بالموديل Call ففي جميع الأحوال يتم التطبيق حسب حاجة التصميم لديك

تفضل التعديل اخي الكريم ==>> بالماكرو Database2.accdb

اذا تفضل هذا التعديل Database2.accdb

اخي الكريم هذه مشكلة مشابهة دمج تقرير في تقرير واحد

اخي الكريم يوضع الكود في حدث عند الفتح ( من وجهة نظري هذه ليست طريقة عملية ) خذ هذه الفكرة - اضف عمود جديد في الجدول بإسم " الحالة " - الحالة الافتراضية " غير مرحل" - يتم انشاء استعلام الحاقي لتغيير الحالة من " غير مرحل " الى " مرحل " - يتم وضع معيار في النموذج لفلترة " غير مرحل " بحيث تختفي جميع السجلات المرحلة

اخي اشرح لي باختصار كيف يتم وضع رصيد اول المدة كيف يتم سحب الرصيد هل يتم ترحيل الرصيد لكل شهر

تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة في ازرار النسخة الاحتياطية ضع في حدث عند الضغط الكود التالي كما انصحك بأن تضع هذا كود ضمن امر الحفظ Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

اخي الكريم ضع في حدث عند الفتح الكود التالي لمنع الحذف Me.AllowDeletions = False =================================== خيارات اخرى يمكن وضعها مع صلاحيات المستخدمين لمنع التعديل Me.AllowEdits = False لمنع الاضافة Me.AllowAdditions = False

تفضل اخي الكريم ما الذي تم عمله ؟؟؟ - تم اخفاء جميع التقارير - تم وضع شرط ظهور التقارير في حالة وجود بيانات في اي جدول بحيث ان الجدول الخالي البيانات لن يظهر التقرير التابع له Exam.accdb

تفضل اخي الكريم Dim varFilter As Variant varFilter = 0 With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With