GNMQ8

لأ اخوي ... شوف .. افتح البرنامج ، ثم اضغط على الطابق ، واختار من القائمة الدور الثاني ثم روح على قائمة الشقة واختار رقم 06 لو تلاحظ ان البيانات التي في الأسفل ستكون للشقة رقم 06 ولكن الدور الأول !! أرجوا أن تكون المشكلة واضحة .. وأتوقع لو عندك 100 شقة راح تكون المشكلة واضحة أكثر (: وشكراً

شباب الله يخليكم ... ظهرت عندي مشكلة صغيرة ... انظر إلى الملف المرفق .. عند اختيار الطابق ، يتم ظهور أرقام الشقق في الطابق المحدد فقط ، في خانة الشقق .. ولكن عند اختيار الشقة المطلوبة يقوم بالذهاب إلى طابق آخر !! عند التجربة يتضح المعنى المقصود .. الله يخليكم اللي يعرف لا يبخل علينا .. test__2_.zip

مشكورين شباب عرفت الطريقة ... وتفضلوا هذه الطريقة للناس اللي مثلي محتاجينها بس لحد يسأل عن الطريقة ، وكيف سويتها ، لأن آنا ماني عارف اشلون سويتها بس ضبطت معاي ، بتوفيق من رب العالمين الله معاكم test__2_.zip

السلام عليكم شباب ... بغيت أسأل عن شغلة صغيرة ... عندي برنامج ، وبحاول أعمل البحث عن طريقة إدخال القيم في حقل معين ( في برنامجي ، رقم الشقة و الطابق) ، فيظهر لي جميع الإيجارات المدفوعة في نموذج فرعي ... عندي مثال لأحد الإخوة ، ولكن لم أستطع تطبيقه ... وأريد بعض التعديلات عليه ... البرنامج و المثال في المرفقات ... وشكراً test.zip _____________________________.rar

بارك الله فيك ، ووفقك لما يحبه ويرضى ... الصراحة قدمت لي خدمة كبيرة .. الله يوفقك (:

السلام عليكم اخوي محب العلم انت وضعت الدالة 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 أتمنى أن يكون شرحي واضح ... لأني بصراحة محتاج إلى هذه الطريقة ... وشكراً

شكلك نسيتني اخي محب العلم بانتظار ردك ...

اخوي اسمحلي لم أفهم المطلوب ... ما هي مشكلتك بالضبط ، إذا ممكن تشرح بالتفصيل الممل ...

هذا البرنامج _____.zip

ممكن تشرح لنا المشكلة أكثر .. يعني متى يطلع لك هذا الخطأ ؟؟ وماذا يقول ؟؟

أخي محب العلم ... الله يعطيك العافية على مجهودك في المنتدى انت واخواني المشرفين ، و بصراحة تراني منحرج منك ، أدري أذيتك معاي .. البرنامج اللي عدلت عليه ، وظيفته يقوم بإضافة الإيجارات لجميع المستأجرين ، أريده أن يضيف حقول إلى المستأجرين الذين 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 وشكراً

حياك الله عزيزي .. والله اسمح لي آنا أخذت الأكواد من أحد الشباب في المنتدى ، ولا أذكر منو ، ولكن لم أفهم عملها .. والله يوفقك

اخوي محب العلم ... تم حل مشكلة الجداول المرتبطة عن طريق استخدام الاستعلام ، ووضع الاستعلام في الكود بدلاً من الجدول .. وكذلك مشكلة الRenter Case ، كذلك عن طريق وضع معيار في الاستعلام .. ــــــــــــــــــ ولكن هناك مشكلة صغيرة ، لم أعرف حلها ، وهي طريقة تصميم الاستعلام ؟؟ لم أعرفها .. تقدر تساعدني في حلها ، الله لا يهينك .. قم بفك الملف على سطح المكتب (علشان الجداول المرتبطة) الملف في المرفقات DB__2_.zip

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

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

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

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

نعم تستطيع ، قم بعمل التالي : 1- قم بعمل وحدة نمطية ، واكتب فيها التالي : كود Option Compare Database Option Explicit Function GetMonthName2(inDate As Variant) As String Dim CurrentCal As VbCalendar If Not IsDate(CDate(inDate)) Then Exit Function CurrentCal = Calendar Calendar = Abs(Application.GetOption("Use Hijri Calendar")) GetMonthName2 = MonthName(Month(inDate)) Calendar = CurrentCal End Function Function GetMonthName(ByVal mm As Variant) As String Dim CurrentCal As VbCalendar If Not IsNumeric(mm) Then Exit Function mm = ((mm - 1) Mod 12) + 1 CurrentCal = Calendar Calendar = Abs(Application.GetOption("Use Hijri Calendar")) 'GetMonthName = MonthName(mm) 'ÇáÅÕÏÇÑÇÊ ÇáÞÏíãÉ áÇ ÊÍæí åÐå ÇáÏÇáÉ GetMonthName = Format(DateSerial(Year(Date), mm, 1), "mmm") Calendar = CurrentCal End Function ثم في النموذج أو التقرير ، قم بوضع هذا الكود في مربع النص : كود =GetMonthName([اسم_الحقل]) أتمنى أن يكون هذا المطلوب .. إذا لم تعمل معاك ، بلغني علشان ارسل لك مثال على الأكسيس ... بالتوفيق

يا جماعة ... يعطيكم العافية .. عرفت كيف اجعل القيمة الافتراضية هي الشهر الحالي .. تقوم بوضع القيمة الافتراضية للشهر الحالي : كود =Month(Now()) وللسنة الحالية : كود =Year(Now()) أرجوا ان اكون قد أفدتكم .. تحيتي

كيف أضيف الشهر الحالي أو السنة الحالية عند الضغط على زر إضافة سجل جديد ؟؟ أستطيع أن أضع القيمة الافتراضية =Date() ولكن يظهر لي التاريخ كاملاً .. يفضل أن يكون بصيغة الفيجوال (حدث) عند الضغط على زر إضافة سجل جديد . أفيدونا بارك الله فيكم .. المثال بالمرفقات _____.zip

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

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

مشكوور اخي محب العلم بارك الله فيك (:

حياك الله اخوي ottar بالنسبة لمشكلتك ، صارت لي قبل فترة ، واكتشفت اني كنت استخدم الأكسيس 2007 في هذه الحالة قم بحفظ قاعدة البيانات اللي عندك على صيغة 2003 عن طريق حفظ بإسم ... ثم أدخلها إلى برنامج Users Maker 2 ثم افتحها في أكسيس 2007 وقم بحفظها على صيغة أكسيس 2007 والله يوفقك (:

السلام عليكم ... اخواني ممكن طريقة عمل زر لضغط قاعدة البيانات وإصلاحها .. بحيث أعمل لها زر معين ؟؟ جزاكم الله خير ...