jjafferr

وعليكم السلام أخي علي :) 1. غير الجدول the_rooms الى 2. ضع زر على النموذج ليضيف البيانات في الجدول ، وضع الكود التالي على حدث ضغط الزر: Private Sub cmd_Confirm_Booking_Click() Dim mySQL As String 'check if the room is available Which_Room = "room_" & Me.room_b…

وعليكم السلام :) ياريت مثال ، وتفصيل بالصور ، من قاعدة بياناتك :) جعفر

وعليكم السلام اخي :) لو تركت لنا قاعدة بياناتك ، لكنا جربنا الحل عليها ، اما الان ، فنضع الحل وعليك التجربة :) لا يمكن عمل هذا في النموذج المستمر :( 1. اجعل/اكتب عرض الحقل في خصائص tag الحقل نفسه ، بهذه الطريقة نستطيع ان نستعيد العرض ، 2. في حال انك اردت ان تج…

وعليكم السلام ورحمة الله وبركاته أخي فيصل :) شكرا جزيلا على هذا التوضيح ، وان شاء الله للأفضل :) صادفتني مشكلة ، وهي انني لم اعد استلم اي اشعارات (على الايميل) من المنتدى عندما يوضع احد الاخوة مشاركة في موضوع اشارك فيه :( وقد دققت في اعدادات لوحة التحكم الخاصة…

جرب Report1 جعفر Database2010.zip

أخي ناصر الرقم التلقائي في الجداول هو لفهرسة السجلات ، أي ان أكسس يحتاج اليه في عمله ، اما نحن ، فلا يمكننا الاعتماد عليه ، لانه مثل ما لاحظت في قضية الارقام ، وكذلك فانه بعض الاوقات تقفز الارقام بطريقة غريبة الى ارقام كبيرة :( لذا يجب علينا ان نعمل حقولنا الخ…

وعليكم السلام اخي الفاضل :) برنامجك يعرض الصور بطريقة صحيحة ، وهذه النتائج: وقد غيرت البيانات في الجدول: وعليه ، اصبح الكود: اقترح عليك: 1. النظر في اعدادات الصفحة في التقرير ، فقد تكون المسافات تغيرت للطابعة ، 2. دائما استخدم الكود التالي في فتح التقرير: DoCm…

وعليكم السلام اخي :) بالنسبة للزر الذي على النموذج ، استخدم هذا الكود: Private Sub zer1_Click() On Error GoTo err_zer1_Click Dim filename As Variant Dim fDialog As Office.FileDialog Dim SourceFile, DestinationFile Set fDialog = Application.FileDialog(msoFileDi…

وعليكم السلام اخي :) انا اعمل على office2010 قي WIN7 ، فاذا احببت ، ارفع برنامجك وارسل لي الرابط علشان افحصه. جعفر

صحيح يمكن العمل على المطلوب من الجدول او النموذج ، واذا تم العمل من خلال الجدول فالقيمة ستظل بتنسيقها في النموذج والتقرير (واعتقد في الاستعلام كذلك) ، ولكن الفرق بين طريقتك وطريقتي هي: انت استعملت اعدادات Input Mask ، بينما انا استعملت اعدادات Format :) جعفر

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

اخي اشرف انسى ردي السابق ، وجرب المرفق الان ، المرفقات السابقة كلها تدور حول DAO ، بينما الاكسس adp يستعمل ADO ، لهذا ، فالكود الان تغير قليلا ويستعمل ADO: Private Sub Command82_Click() On Error GoTo Err_Command82_Click Me.Command33.Enabled = True DoCmd.GoToRe…

وعليكم السلام :) رجاء لا تغير شي في الكود ، وجرب المرفقين ، وان شاء الله اذا البرنامج اشتغل ، غير فيه كما تشاء :) المرفقين يشتغلون عندي وما فيهم اي مشكلة :) جعفر 235.1.تسلسل_الارقام.mdb.zip 235.تسلسل_الارقام.mdb.zip

حيا الله اخوي أشرف :) انا ارفقت لك الكود مرة ثانية بعد ما عدلت عليه شوي ، لكنك الظاهر ما استعملته :( ، لهذا السبب الخطأ لا يزال يظهر لك :( جزء من الكود اللي في الصورة هكذا: 'Dim myDB As adodb.Database Dim rst As adodb.Recordset وانا عدلته الى: Dim myDB As Data…

هلا والله بأخي كريمو :) المفروض ان البرنامج لا يتوقف عند عدد معين من السجلات ، لذا لو سمحت ترفق لي البيانات علشان نرى في اي جدول المشكلة :) جعفر

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

تفضل :) اولاً: 1. اكتب اللي تريدة يظهر في التقرير ، 3. اضغط الزر لترى النتيجة في 2 ، 4. يفتح التقرير ثانياً: 1. لا ، لا يمكن تغيير اللون لجزئية معينة من التقرير ، 2. رابط لمثال مشابه: /index.php/topic/292032-%D8%B3%D8%A4%D8%A7%D9%84%D8%B7%D8%B1%D9%8A%D9%82%D8%…

حياك الله :)

تفضل وهذا هو الكود الجديد والذي به تغيير قيمة المستحقين كذلك: Private Sub days_AfterUpdate() On Error GoTo err_days_AfterUpdate Dim E_Temp, i As Integer 'Dim rst As DAO.Recordset If Me.Dirty Then Me.Dirty = False E_Temp = 0 Set rst = Me.RecordsetClone rst.Move…

اخي ابوالعلا انت لم تخبرنا عن هذه الجزئية !! وشكرا على تفضلك على مشاركتك الاخيرة ، والحمدلله انك حصلت على ما تريد ، وقد اخذني الفضول وذهبت الى الرابط الذي ارفقته لكي ارى الجواب ، ولدي ملاحظتين على الجواب: 1. خانة المستحق Amount لا تُحفظ في الجدول الآن ، وعند ا…