jjafferr

اﻻفضل انك ترفق قاعدة بياناتك ، ﻻنه بيكون في ربط بين النموذج واﻻستعﻻمات والجداول :) جعفر

حياك الله :)

حياك الله :)

طويل العمر :) انا ما اعرف اللي الكود يعمله ، فما دققت في تفاصيله :( بس اللي صاير ان الكود يريد يحذف الجدول ، بس ما يقدر ، لأن التقرير معتمد على الجدول ، لهذا فالجدول غير قابل للحذف :( انا عملت لك Function الذي يحذف جميع الجداول ، ولكن دائما سوف يبقى جدول واحد …

أخي ابومنتظر ، رجاء استخدام هذا الكود المعدل :) Private Sub cmd_split_Click() Dim x() As String 'move the Record in the Form to the 1st Record DoCmd.GoToRecord , , acFirst 'loop through the Form's Records For i = 1 To Me.RecordsetClone.RecordCount 'split InOut…

انا غيرت في الكود ، وجعلته " أخف " من السابق :) Private Sub Choose_AfterUpdate() Select Case Choose Case 1 Call iSelect(-1) Case 2 Call iSelect(0) End Select End Sub Private Sub Chose_Click() If Me.Chose.Caption = "Select All" Then Call iSelect(-1) Me.Chose.Ca…

بإختصار ، هذا الكود يتأكد من ان البرنامج مصرح لإستخدامه :) ثم يربط البرنامج مع الجداول. جعفر

وعليكم السلام :) طويل العمر ، هذا اللي تريده ما يصير :( اعمل لك استعلام تحديث لكل جدول ، ومن النموذج (سواء الحالي او نموذج جديد) ، ادخل الرقم القديم ، والرقم الجديد ، وشغل استعلامات التحديث ، وصلى الله وبارك :) جعفر

تفضل اخي :) الكود موجود في النموذج From1 على زر Update Table : Private Sub cmd_update_Click() Dim rst As DAO.Recordset mFrom = 9 'copy data from month mTo = 10 'and paste to month 'get the table data, 'sort by emp_no, and month_no Set rst = CurrentDb.OpenRecor…

حياك الله :) جعفر

شكر خاص لأخي القحم على تنبيهي لخاصية اظهار الكود بهذه الطريقة :)

حياك الله اخي القحم :) بس ما فهمت قصدك :( جعفر

حياك الله :)

تفضل طويل العمر :) هذا كود الزر الذي يقوم بالعمل (وفي الكود تفصيل لعمل كل سطر :) ) : Private Sub cmd_split_Click() Dim x() As String 'we will use the Form Navigation 'take the Form Record Source as a Recordset Set rst = Me.RecordsetClone 'move to the 1st Recor…

عيني عليك باردة اختي أم عهود :) رديتي على الاخ محمود بسطرين ، قام جازاك بعشر اسطر دعاء غريب عجيب من اعماقه :) انا قلت في نفسي ، قام حظك ياولد ، السماء الآن مفتوحة وتسمع دعاء الاخ محمود ، ورديت عليه بـ 36 سطر ، وانا حاسبهم: 36 سطر * 10 اسطر دعاء / 2 = 180 سطر د…

هممم ، ومعلومة جديدة من الدكتورة الفاضلة أم عهود حفظها الله :) خليني انزل المطبخ بسرعة واتأكد اننا نستعمل زيت مازولا ، الاخف على المعدة :tbmuahaha: جعفر

طبعا الدكتورة أم عهود عملت اقل تغيير على الكود الذي عملته انت ، ولم تكتب الكود من جديد :) الكود الذي كتبته انت ، يرجع الى الجدول في كل مرة يحتاج فيها الى تغيير قيمة سجل معين ، يعني في حالتك 4 مرات ، ثم يحدث النموذج 4 مرات ، بينما الكود الذي اضعه بين يديك كتبته…

تفضل اخي :) استخدمت برنامجك السابق :) في النموذج اختار الاعمدة التي تريد اخفائها ، ثم اكبس زر Export to Excel : وهذا الكود يقوم بالاخفاء: 'hide columns If Me.chk_A = -1 Then xls.Columns("A:A").EntireColumn.Hidden = True End If If Me.chk_B = -1 Then xls.Columns…

وعليكم السلام ورحمة الله وبركاته حياك الله اخي مراد :) السؤال: هل تريد برنامج الاكسس ان لا يرسل بيانات C1 ، ويرسل البيانات الباقية ويو زعها على A1 B1 D1 E1 او تريد برنامج الاكسل ان يخفي C1 ؟ جعفر

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