Amr Ashraf

جرب كده .. بابسط طريقة وهى عمل مفاتيح اساسية لرقم الهوية وتاريخ الالحاق بحيث لا يمكن ان يتم الحاق نفس رقم الهوية مرتين فى نفس التاريخ . اذا اردت ان تكون عملية الالحاق تلقائية فى وقت معين من اليوم اترك رد .. بالتوفيق AppendOneTime-Amr.accdb

احفظها بصيغة اقدم .. تقريبا عندك اوفيس 2019 وعندى 2016 ولا تفتح عندى .

اه بالشكل ده ليه دخل وهقولك الاحتمال الاكبر.. المرفق الخاص بيك فيه مديولات وبالتالى لو جهاز اوفيس 32 بيت هيشتغل طبيعى ولكن لو الاوفيس 64 بيت هيطلعلك مشكلة وهيا ان الاكواد غير متوافقة وبما ان مشروع vba مغلق بباسوورد الرسالة دى هتطلعلك.. اذن جهازك الذى لا يعمل عليه البرنامج اوفيس 64 بيت امامك حلين الاول ازالة الاوفيس وتنزيل نسخة مشابهة للجهاز الآخر 32 بيت. الثانى تعديل الاكواد لتعمل على النواتين ولن تظهر معك المشكلة حينها.. بالتوفيق

هكذا ؟ مثال2.accdb

اها فهمتك .. لى عودة 😅

اختصاراً للوقت قمت بعمل اللازم .. ركز معايا تمت اضافة حقل جديد فى جدول المخازن warehouse اسمه DayRent يتم كتابة الايجار اليومى للمخزن مرة واحدة فقط وتعديله عند التعديل . وتم اضافة حقل جديد فى النموذج ليصبح بالشكل التالى : وبكده اصبح الرقم المسجل فى الجدول يتم تسجيله بجوار كل عملية ايجار ويقوم بحساب عدد الايام (اذا كتبت تاريخ بداية ونهاية) ويطلع اجمالى المطلوب من العميل تم اضافة جدول جديد لتسجيل المبالغ المستلمة من العملاء TblTransactions , ويتم التسجيل فيه بكود العميل والمبلغ المستلم والتاريخ . قمت باضافة بعض البيانات لتجربة طريقة الحساب تم عمل استعلام يحسب رصيد كل عميل ونوعه هل هو دائن او مدين . تم اضافة اللمسة النهائية على النموذج الاساسى ليصبح بهذا الشكل , عند اختيار اسم العميل يقوم بحساب ما له وما عليه فى الاسفل. جرب ووافنى بالنتيجة .. مرفق القاعدة بعد التطوير ولو انتا شغال بره مصر خدنى اشتغل معاكم وهظبطك 🤣 .. بالتوفيق Renting Prog - Amr Ashraf v4.0.accdb

ممكن تزود فى جدول المخازن عمود اسمه ايجار اليوم مثلا ويتكتب فيه مبلغ الايجار اليومى للمخزن .. الخطوة التانية فى الجدول الجديد يضاف عمودين واحد اسمه عدد ايام الايجار والتانى مبلغ الايجار للمخزن*عدد الايام يبقى هيا دى مديونيات المستأجر .. الخطوة التالتة جدول جديد للحركات المالية من المستأجرين يبقى فيه عمود تاريخ والمبلغ المدفوع من المستأجر .. وبكده اظن الموضوع اكتمل هيبقى فيه استعلامات تطلعلك مديونيات المستأجرين وهكذا .. بالتوفيق

المرفق يعمل جيدا عندى ولا يوجد مشاكل فى الاكواد

مرفق مفيد فعلا جربته فيه افكار رائعة ., جزاكم الله خير

تفضل تم التعديل Renting Prog - Amr Ashraf v3.1.accdb

عندك معادلتها فى اكسيل مثلا ونحاول نطبقها لك فى اكسيس ؟ او اشرح المبدأ ببساطة وان شاء الله هتلاقى حد من الاخوة يفيدك

لو عاوز الحل الاحترافى يبقى حل الاستاذ @د.كاف يار اما الحل البدائى شاهد الصورة واطلع على المرفق 😆 الفكرة هى انى عملت استعلام جديد يعتمد على نتائج الاستعلام القديم و عملت نموذج فرعى مصدره الاستعلام الجديد , عند البحث فى المربع الاول جعلت مصدر النموذج الفرعى داخل النموذج الرئيسى هو الاستعلام الاول Me.SubFrm.SourceObject = "SubFrm" Me.SubFrm.Requery .. وعند البحث فى المربع الثانى يتم تعديل مصدر النموذج الفرعى ليصبح النموذج الفرعى الجديد .. Me.SubFrm.SourceObject = "SubFrm2" Me.SubFrm.Requery افتح القاعدة وانت تفهم 😄 اعذرنى انا توهت فى قاعدتك فعملت قاعدة صغيرة توضحلك الفكرة اللى هتطبقها على قاعدتك . بالتوفيق Query 2 Steps Amr.accdb

ممكن ترفق التقرير و الجدول المرتبط بيه ؟

وعليكم السلام ورحمة الله وبركاته ممكن ترفق النموذج وتعمل مثال يدوى كده بالنتيجة المطلوبة ؟ هيسهل على القارئ انه يساعدك لو عنده حل بالتوفيق

سؤال آخر لو سمحت .. عندك جهازين واحد القاعدة مقسمة وموجودة على الجهاز وهذه القاعدة تعمل بدون مشاكل ؟ والآخر بالعمل والقاعدة مقسمة ولكن الجداول على جووجل درايف وهذه النسخة اللى بتظهر الخطأ الموجود بالصورة ؟ لو صح الكلام فيه احتمال بعيد ولكن على سبيل التجربة لن يضر .. هل تأكدت ان مجلد جووجل درايف صلاحياته Read And Write ؟ ممكن يكون Read Only ولذلك عملية الاتصال بالقاعدة لا تتم وبسببه بيطلع مشكلة بالكود انه مش قادر يتصل ؟ مجرد احتمال فقط وفى انتظار قاعدتك للتجربة واختبار الاكواد بها .. بالتوفيق

لو ترفق قاعدة مصغرة المشكلة قائمة بها يبقى افضل وسنجد الحل بإذن الله

اظن المشكلة فى هذا السطر .. ماهى Conect ؟ مش متعرفة كمتغير و مش شايف لها استخدم فى الكود الحالى اظنها Function يتم استدعاءها بشرط صحة بيانات الدخول ؟ عامة الغيها حاليا من الكود ليصبح هكذا وجرب Private Sub LogIN_Click() On Error Resume Next MyUserName = Me.MyUser_Name MyPassword = Me.MyPassword Dim db As DAO.Database Dim rs As DAO.Recordset Dim qr As QueryDef Dim sql As String Set db = CurrentDb sql = "select * from [users] where User_Name=[MyUserName] and User_Password=[MyPassword]" Set qr = db.CreateQueryDef(vbNullString, sql) With qr .Parameters("MyUserName") = MyUserName .Parameters("MyPassword") = MyPassword .ReturnsRecords = True Set rs = .OpenRecordset() End With If Not rs.EOF Then 'conect = True If rs.Fields("User_Active") = 0 Or DateFormat(rs.Fields("DateEnd")) < DateFormat(Now) Then MsgBox "انتهى تنشيط هذا المستخدم", vbExclamation + vbOKOnly + vbMsgBoxRight, "تنبيه" Else MyUser_NO = rs.Fields("User_NO") MyUserName = rs.Fields("User_Name") DoCmd.Close acForm, "LogIn", acSaveYes DoCmd.OpenForm "Form1" End If Else 'conect = False MsgBox "معلومات دخول غير صحيحة", vbCritical + vbOKOnly + vbMsgBoxRight, "تنبيه" End If End Sub

افتح الجدول الجديد والغى المفاتيح الاساسية primary key وخليه auto number.. كده هيكون ليك الحرية انك تسيب التواريخ فاضية والمفروض هيشتغل معاك بدون مشاكل.. اعذرنى انا برد عليك من الموبايل مش قدامى جهاز دلوقتى 😅 لو قابلتك مشكلة صورهالى.

لأنهم من المفاتيح الاساسية فى الجدول لمنعك من تكرار نفس الايجار بنفس البيانات مش هينفع غير كده هوا ده الصح. انا عملت الصعب عليك كمل انتا الباقى او احد الاخوة يتفضل بعمل المطلوب.. اعتذر لضيق الوقت.. بالتوفيق

جربت ؟ اروح انام ؟ 😅 بكرة بإذن الله اشوف ردك 😑

شرفتنا بمرورك استاذنا الفاضل .. وجزاكم الله خير على المعلومة

النموذج غير منضم اساسا استاذنا الفاضل وبالتالى مفيش سجلات يتنقل فيها 😅 السطر اللى انا كتبته ده من الاستعجال هوا اساسا ملوش استخدام لأنه بيعتمد على استعلام الحاق للسجلات بالاضافة الى انه فى حدث عند فتح النموذج وبيانات النموذج بتظهر فقط عند اختيار عميل فى البحث .. فهمت قصدى ؟ تشرفت بمرورك

شغال عندى مفيهوش مشكلة .. مع ذلك جرب كده .. مش مهمة الخطوة دى فى الكود ملهاش استخدام اصلا Renting Prog - Amr Ashraf v2.0.accdb

ابحث فى المنتدى اخى الكريم هتلاقى الكثير من المواضيع اللى تخص النسخ الاحتياطى.. الموضوع هنا لشرح الطريقة فقط وليس التركيز على النسخ فى حد ذاته.

بالطريقة دى لا ولكن لو وجد اسم مجلد متشابه هيعمل Overwrite للمحتويات ويستبدل الملفات القديمة .