GNMQ8 قام بنشر فبراير 3, 2008 قام بنشر فبراير 3, 2008 السلام عليكم شباب ... الله يرضى عنكم ، عندي سؤال صغير .. عندي برنامج للعقارات ، والبرنامج يحتوي على 3 جداول مرتبطة ، الجدول الأول للبناية والجدول الثاني للمستأجرين والجدول الثالث للإيجارات ((إذهب إلى العلاقات لترى الروابط)) أريد أن أعرف مَن مِن المستأجرين الذي لم يدفع الإيجار ، ما أدري شنو أستخدم ؟ هل أستخدم الاستعلام ؟ أم النموذج ؟ أم ماذا ...؟؟ وكذلك أريد أن أعرف أي شقة أو محل غير مسكون ؟ أتمنى أن يكون شرحى واضح ، والملف بالمرفقات لأوفيس 2003 و 2007 .. أرجوا أن تفيدوني بارك الله فيكم Test_2003.zip Test_2007.zip
محب العلم قام بنشر فبراير 4, 2008 قام بنشر فبراير 4, 2008 السلام عليكم ورحمة الله وبركاته اخي الكريم ، عملت لك تقرير يقوم بطباعة كشف باسماء العمارات المؤجرة وأسماء المستأجرين وعملت لك تقرير يقوم بطباعة كشف بأسماء والمستأجرين ودفعاتهم إذا احببت عمل كشف بأسماء العمارات أو الشقق غير المؤجرة فيجب أن يكون في جدول العمارات تفاصيل هذه الشقق التعديل TestUpdate.rar مع وافر الاحترام
GNMQ8 قام بنشر فبراير 4, 2008 الكاتب قام بنشر فبراير 4, 2008 أشكرك اخي محب العلم على الرد .. بالنسبة للبرنامج اللي قصدته ، هذا إذا احببت عمل كشف بأسماء العمارات أو الشقق غير المؤجرة فيجب أن يكون في جدول العمارات تفاصيل هذه الشقق اقصد مثلاً على فرض اننا الآن في نهاية شهر 4 فيجب على المستأجرين دفع الأشهر 1 و 2 و 3 فعند عمل تقرير بشهر 4 مثلاً ، لا يظهر إلا الذين دفعوا الإيجار ؟؟!! هذا بالنسبة للإيجارات .. أما بالنسبة للشقق ، اتوقع ان الشرح في المشاركة الأولى واضح أتمنى ان يكون الشرحي واضح . وآسف إذا كنت أزعجتك بطلباتي
محب العلم قام بنشر فبراير 6, 2008 قام بنشر فبراير 6, 2008 حياك الله اخي ، ساتابع الموضوع قريبا بإذن الله مع الاحترام
محب العلم قام بنشر فبراير 18, 2008 قام بنشر فبراير 18, 2008 السلام عليكم أخي GNMQ8 بارك الله فيك إن كنت ما زلت بحاجة لمساعدة ، أرجو منك لطفا تبيان ما تحتاجه مع وافر الاحترام
GNMQ8 قام بنشر فبراير 18, 2008 الكاتب قام بنشر فبراير 18, 2008 جزاك الله خير اخوي محب العلم ... أريد أن يقوم البرنامج بإضافة قيد جديد في جدول الإيجارات وقيمة المبلغ المدفوع تساوي 0 وذلك في بداية كل شهر .. بمعنى آخر : عند بداية كل شهر يكون جميع المستأجرين دفعوا إيجار بمبلغ 0 دينار أو ريال وذلك للشهر الحالي فقط وليس للأشهر القادمة ... ثم بعد ذلك أنا أعدل على المبلغ يدوياً ... أرجوا أن يكون شرحي واضح .. وجزاك الله خير على اهتمامك
محب العلم قام بنشر فبراير 19, 2008 قام بنشر فبراير 19, 2008 حياك الله أخي GNMQ8 تفضل المطلوب TestUpdate2.zip مع وافر الاحترام
GNMQ8 قام بنشر فبراير 19, 2008 الكاتب قام بنشر فبراير 19, 2008 ألف شكر أخي محب العلم ... بصراحة هذا هو المطلوب بالضبط ولكن طلب صغير ، هل تستطيع أن تجعل هذه العملية تلقائية ؟؟ بحيث يقرأ البرنامج التاريخ ويضع قيمة الشهر الحالي والسنة الحالية ... وأكرر شكري لك .. بارك الله فيك
محب العلم قام بنشر فبراير 19, 2008 قام بنشر فبراير 19, 2008 حياك الله أخي تفضل التعديل المطلوب TestUpdate3.zip مع وافر الاحترام
GNMQ8 قام بنشر فبراير 23, 2008 الكاتب قام بنشر فبراير 23, 2008 يعطيك العافية اخوي محب العلم على مجهودك ، ولكن شغله أخيرة .. بالنسبة للطريقة اللي عملتها ،، عند الضغط على الزر أكثر من مرة يتم إضافة حقل جديد كل مرة .. أي ، عند الضغط على الزر 3 مرات ، يتم إضافة 3 قيود جديدة للشهر الحالي والسنة الحالية وقيمتهم صفر .. هل هناك طريقة بحيث عند الضغط على الزر يتم التأكد ، إذا كان هناك قيم موجودة سابقاً ، فلا يضيف قيد جديد ، وإذا لم يوجد قيود سابقة يضيف قيد جديد .. واسمحلي على إزعاجك بطلباتي
محب العلم قام بنشر فبراير 23, 2008 قام بنشر فبراير 23, 2008 حياك الله أخي GNMQ8 ، تفضل التعديل المطلوب TestUpdate4.zip مع وافر الاحترام
GNMQ8 قام بنشر فبراير 23, 2008 الكاتب قام بنشر فبراير 23, 2008 ألف شكر اخي محب العلم .. الله يجزاك كل خير .. ولكن البرنامج لم يتم المطلوب ، حيث عند الضغط على الزر مرات متعددة يقوم بإضافة سجلات جديدة في كل مرة ، ويقوم بإضافة سجلات للمستأجر رقم 1 فقط وليس لكل المستأجرين !! أرجوا التعديل على البرنامج ، وأكرر أسفي على تعبك معانا ..
GNMQ8 قام بنشر فبراير 23, 2008 الكاتب قام بنشر فبراير 23, 2008 بارك الله فيك اخوي محب العلم وغفر لوالديك ، واسكنهم الجنة ...
GNMQ8 قام بنشر فبراير 23, 2008 الكاتب قام بنشر فبراير 23, 2008 (معدل) اسمحلي اخوي محب العلم ، ولكن ظهرت لي مشكلة صغيرة ، وهي أن هذه الطريقة لا تعمل على الجداول المرتبطة ؟؟!! هل تستطيع حل هذه المشكلة ؟؟ وهل تستطيع أن تجعل إضافة القيد مقتصرة على Renter_Case اللي تساوي "صواب" أو "True" ألف شكر على مساعدتك تم تعديل فبراير 23, 2008 بواسطه GNMQ8
GNMQ8 قام بنشر فبراير 24, 2008 الكاتب قام بنشر فبراير 24, 2008 (معدل) اخوي محب العلم ... تم حل مشكلة الجداول المرتبطة عن طريق استخدام الاستعلام ، ووضع الاستعلام في الكود بدلاً من الجدول .. وكذلك مشكلة الRenter Case ، كذلك عن طريق وضع معيار في الاستعلام .. ــــــــــــــــــ ولكن هناك مشكلة صغيرة ، لم أعرف حلها ، وهي طريقة تصميم الاستعلام ؟؟ لم أعرفها .. تقدر تساعدني في حلها ، الله لا يهينك .. قم بفك الملف على سطح المكتب (علشان الجداول المرتبطة) الملف في المرفقات DB__2_.zip تم تعديل فبراير 24, 2008 بواسطه GNMQ8
محب العلم قام بنشر فبراير 26, 2008 قام بنشر فبراير 26, 2008 أخي GNMQ8 ، حياك الله ، ولكنك نسيت ذكر ما تود عمله في الاستعلام مع وافر الاحترام
GNMQ8 قام بنشر فبراير 26, 2008 الكاتب قام بنشر فبراير 26, 2008 أخي محب العلم ... الله يعطيك العافية على مجهودك في المنتدى انت واخواني المشرفين ، و بصراحة تراني منحرج منك ، أدري أذيتك معاي .. البرنامج اللي عدلت عليه ، وظيفته يقوم بإضافة الإيجارات لجميع المستأجرين ، أريده أن يضيف حقول إلى المستأجرين الذين 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 قام بنشر فبراير 29, 2008 الكاتب قام بنشر فبراير 29, 2008 شكلك نسيتني اخي محب العلم بانتظار ردك ...
محب العلم قام بنشر مارس 2, 2008 قام بنشر مارس 2, 2008 (معدل) وعليكم السلام حياك الله أخي GNMQ8 ، أريده أن يضيف حقول إلى المستأجرين الذين Renter_Case لديهم =True ما زلت لم استوعب ما الذي تريد عمله بالضبط ، أرجو منك فضلا توضيح ما تريد عمله بشكل كامل بمعزل عن أي شيء أخر ... مع وافر الاحترام تم تعديل مارس 2, 2008 بواسطه محب العلم
GNMQ8 قام بنشر مارس 2, 2008 الكاتب قام بنشر مارس 2, 2008 السلام عليكم اخوي محب العلم انت وضعت الدالة 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 أتمنى أن يكون شرحي واضح ... لأني بصراحة محتاج إلى هذه الطريقة ... وشكراً
محب العلم قام بنشر مارس 2, 2008 قام بنشر مارس 2, 2008 حياك الله أخي GNMQ8 ، نعم وضحت الصورة الآن التعديل يكون هكذا Set rs = dbs.OpenRecordset("select * from Tbl_Renter where Renter_Case = True") وإليك التعديل : test.zip مع وافر الاحترام
GNMQ8 قام بنشر مارس 3, 2008 الكاتب قام بنشر مارس 3, 2008 بارك الله فيك ، ووفقك لما يحبه ويرضى ... الصراحة قدمت لي خدمة كبيرة .. الله يوفقك (:
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.