اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف أعرف الذين لم يدفعوا أو الشقق الفارغة


GNMQ8

الردود الموصى بها

السلام عليكم شباب ...

الله يرضى عنكم ، عندي سؤال صغير ..

عندي برنامج للعقارات ، والبرنامج يحتوي على 3 جداول مرتبطة ، الجدول الأول للبناية والجدول الثاني للمستأجرين والجدول الثالث للإيجارات ((إذهب إلى العلاقات لترى الروابط))

أريد أن أعرف مَن مِن المستأجرين الذي لم يدفع الإيجار ، ما أدري شنو أستخدم ؟ هل أستخدم الاستعلام ؟ أم النموذج ؟ أم ماذا ...؟؟

وكذلك أريد أن أعرف أي شقة أو محل غير مسكون ؟

أتمنى أن يكون شرحى واضح ، والملف بالمرفقات لأوفيس 2003 و 2007 ..

أرجوا أن تفيدوني بارك الله فيكم

Test_2003.zip

Test_2007.zip

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اخي الكريم ،

عملت لك تقرير يقوم بطباعة كشف باسماء العمارات المؤجرة وأسماء المستأجرين

وعملت لك تقرير يقوم بطباعة كشف بأسماء والمستأجرين ودفعاتهم

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

التعديل TestUpdate.rar

مع وافر الاحترام

رابط هذا التعليق
شارك

أشكرك اخي محب العلم على الرد ..

بالنسبة للبرنامج اللي قصدته ، هذا

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

اقصد مثلاً على فرض اننا الآن في نهاية شهر 4

فيجب على المستأجرين دفع الأشهر 1 و 2 و 3

فعند عمل تقرير بشهر 4 مثلاً ، لا يظهر إلا الذين دفعوا الإيجار ؟؟!!

هذا بالنسبة للإيجارات ..

أما بالنسبة للشقق ، اتوقع ان الشرح في المشاركة الأولى واضح

أتمنى ان يكون الشرحي واضح .

وآسف إذا كنت أزعجتك بطلباتي :rol:

رابط هذا التعليق
شارك

  • 2 weeks later...

جزاك الله خير اخوي محب العلم ...

أريد أن يقوم البرنامج بإضافة قيد جديد في جدول الإيجارات وقيمة المبلغ المدفوع تساوي 0 وذلك في بداية كل شهر ..

بمعنى آخر :

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

ثم بعد ذلك أنا أعدل على المبلغ يدوياً ...

أرجوا أن يكون شرحي واضح ..

وجزاك الله خير على اهتمامك :biggrin2:

رابط هذا التعليق
شارك

ألف شكر أخي محب العلم ...

بصراحة هذا هو المطلوب بالضبط :smile:

ولكن طلب صغير ، هل تستطيع أن تجعل هذه العملية تلقائية ؟؟

بحيث يقرأ البرنامج التاريخ ويضع قيمة الشهر الحالي والسنة الحالية ...

وأكرر شكري لك .. بارك الله فيك :smile:

رابط هذا التعليق
شارك

يعطيك العافية اخوي محب العلم على مجهودك ، ولكن شغله أخيرة ..

بالنسبة للطريقة اللي عملتها ،، عند الضغط على الزر أكثر من مرة يتم إضافة حقل جديد كل مرة ..

أي ، عند الضغط على الزر 3 مرات ، يتم إضافة 3 قيود جديدة للشهر الحالي والسنة الحالية وقيمتهم صفر ..

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

واسمحلي على إزعاجك بطلباتي :rol:

رابط هذا التعليق
شارك

ألف شكر اخي محب العلم .. الله يجزاك كل خير ..

ولكن البرنامج لم يتم المطلوب ، حيث عند الضغط على الزر مرات متعددة يقوم بإضافة سجلات جديدة في كل مرة ، ويقوم بإضافة سجلات للمستأجر رقم 1 فقط وليس لكل المستأجرين !!

أرجوا التعديل على البرنامج ، وأكرر أسفي على تعبك معانا ..

رابط هذا التعليق
شارك

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

هل تستطيع حل هذه المشكلة ؟؟

وهل تستطيع أن تجعل إضافة القيد مقتصرة على Renter_Case اللي تساوي "صواب" أو "True"

ألف شكر على مساعدتك

تم تعديل بواسطه GNMQ8
رابط هذا التعليق
شارك

اخوي محب العلم ...

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

وكذلك مشكلة الRenter Case ، كذلك عن طريق وضع معيار في الاستعلام ..

ــــــــــــــــــ

ولكن هناك مشكلة صغيرة ، لم أعرف حلها ، وهي طريقة تصميم الاستعلام ؟؟

لم أعرفها .. تقدر تساعدني في حلها ، الله لا يهينك ..

قم بفك الملف على سطح المكتب (علشان الجداول المرتبطة)

الملف في المرفقات

DB__2_.zip

تم تعديل بواسطه GNMQ8
رابط هذا التعليق
شارك

أخي محب العلم ...

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

البرنامج اللي عدلت عليه ، وظيفته يقوم بإضافة الإيجارات لجميع المستأجرين ، أريده أن يضيف حقول إلى المستأجرين الذين Renter_Case لديهم =True

حاولت أستخدم الاستعلام ، ولكن قال لي أحد الشباب بأن أستخدم في صيغة الSQL Insert into Table بعدين أضع Where ثم الشرط اللي هو Renter_Case=True

أرجوا أن تساعدني فيها .. البرنامج في المرفقات ...

وهذه الصيغة :

Option Compare Database
Private Sub أمر0_Click()
Dim dbs As Database
Dim rs As Recordset
Dim Msg, Style, Title, Response, MyString
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Tbl_Renter")
m = Month(Now())
y = Year(Now())
rs.MoveLast
 rs.MoveFirst
 While Not rs.EOF
   N = rs.Fields("Renter_No").Value
   f = Nz(DCount("*", "Tbl_rentals", "renter_no = " & Str(N) & " and str(pmt_month) = '" & Str(m) & "'and str(pmt_year) ='" & Str(y) & "'"), 0)
   If f = 0 Then
    dbs.Execute " INSERT INTO Tbl_Rentals " _
          & "(Renter_No,Pmt_Amount, Pmt_Month, Pmt_Year ) VALUES " _
          & "('" & Str(N) & "','0', '" & Str(m) & "', '" & Str(y) & "');"
  End If
  rs.MoveNext
Wend
rs.Close
dbs.Close
End Sub

وشكراً

رابط هذا التعليق
شارك

وعليكم السلام

حياك الله أخي GNMQ8 ،

أريده أن يضيف حقول إلى المستأجرين الذين Renter_Case لديهم =True

ما زلت لم استوعب ما الذي تريد عمله بالضبط ، أرجو منك فضلا توضيح ما تريد عمله بشكل كامل بمعزل عن أي شيء أخر ... :frown3:

مع وافر الاحترام

تم تعديل بواسطه محب العلم
رابط هذا التعليق
شارك

السلام عليكم

اخوي محب العلم

انت وضعت الدالة Insert into table ضمن execute في لغة البرمجة vba

هنا :

dbs.Execute " INSERT INTO Tbl_Rentals " _

& "(Renter_No,Pmt_Amount, Pmt_Month, Pmt_Year ) VALUES " _

& "('" & Str(N) & "','0', '" & Str(m) & "', '" & Str(y) & "');"

ممتاز ؟؟

انا اريد أن يكون insert into table بس بشرط أن يكون renter_Case الموجودة في الجدول (انظر إلى الجداول في آخر رد لي ) where renter_case = true

أتمنى أن يكون شرحي واضح ... لأني بصراحة محتاج إلى هذه الطريقة ...

وشكراً

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information