jjafferr

او اذا كان هذا قصدك: بالزر اليمين على الجدول ، ثم تختار تحويله الى جدول محلي ، بس لازم تعمله لكل جدول على حده ، جعفر

شكرا 🙂

السلام عليكم 🙂 اخي وائل ، رجاء الالتزام بقوانين المنتدى ، وذلك بوضع سؤال واحد لكل موضوع ، واخونا essam rabea قد رد على سؤالك ، فيُعتبر هذا الموضع قد انتهى ، فرجاء فتح موضوع جديد لسؤالك الجديد ، وارفق الرابط هنا ، حتى يستطيع اخونا essam rabea من متابعة الموضوع الجديد. وشكرا لأخي essam rabea لإتباعه قوانين المنتدى ايضا 🙂 جعفر

المفروض ان الماكرو المضمن يكون فيه الاختيار المطلوب 🙂 اما الطريقة اللي اخبرتك عنها في اعلاه ، فستغير اعدادات الاكسس عندك وتُبقيه بهذه الطريقة ، ولا انصحك بإتباعها 🙂 اذا تحب ، ارفق هذه الجزئية من برنامجك ، او صورة الماكرو ، ونشوف مكان الاعداات المطلوبة 🙂 جعفر

تفضل المرفق 🙂 1041.Database1.accdb.zip

اخي حسنين 🙂 بدل ان تكتب If isnull(Me.Pname) = false or Me.Pname = "" Then يمكنك استبدالهما بهذا السطر If Len(Me.Pname & "") = 0 Then جعفر

وانا الآن قمت بنسخ الكود ، وكله تمام !! يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط). جعفر

وعليكم السلام 🙂 في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا: if len(me.pname & "")=0 then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم msgbox "الحقل فارغ، رجاء ادخال قيمة فيه" cancel=true exit sub end if جعفر

وعليكم السلام 🙂 الحل في هذه الاختيارات: جعفر

السلام عليكم 🙂 وندوز 10 ، ويا ريت تسمع اسمك يا دكتور حلبي ، حتجنن لما تسمع الست تقوله 🙂 جعفر

2- استعلام Crosstab يقدر ان يقوم مقام الجدول ، واذا فهمت قصدك صح في قولك: لا يتم تحديثه بشكل تلقائي ، فقصدك اسماء الاعمدة تزيد وتنقص حسب البيانات الموجودة ، مما يعطيك اخطاء في التقرير ، لذا انصحك قراءة هذا الرابط لأن فيه الحل (حقول ثابته ، كما في الجدول) : كلامي عن Column Heading ، واذا عندك معيار في الاستعلام ، فيجب النظر في Parameters كذلك : . . . 1- ولو اني لا انصح بالقيام بعمل جدول مؤقت (لأنه يزيد من حجم قاعدة البيانات , لا ترجع قاعدة البيانات الى حجمها الطبيعي إلا بعد الضغط والاصلاح) ، ولكن اذا كان كلا ولابد ، فرجاء ارفق الجدول النهائي بجميع اسماء الجهات ، 3- ما كان قصدي ربط بين الاكسس والاكسل ، وانما مجرد تصدير ملف من الاكسس الى مجلد ، ومنه يقرأه الاكسل 🙂 وبغض النظر اي طريق اردت ان تأخذ ، فمحتاجين بيانات اكثر ، وخصوصا عدد الجهات يكون صحيح 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 عملت تغيير في اسماء الحقول في النموذج ، حتى تشير الى نوع الحقل المطلوب العمل عليه ، والنتيجة: . . وهذا هو الكود في حدث فتح التقرير Private Sub Report_Open(Cancel As Integer) 'keep orignal widths in a temp place 'num If Len(Me.num.Tag & "") = 0 Then Me.num.Tag = Me.num.Width End If 'name If Len(Me![name].Tag & "") = 0 Then Me![name].Tag = Me![name].Width End If 'tel If Len(Me.tel.Tag & "") = 0 Then Me.tel.Tag = Me.tel.Width End If 'now take the required fields from Form1 'num If Forms!Form1!chk_num = -1 Then Me.num.Width = Me.num.Tag Me.num.Visible = True Else Me.num.Width = 0 Me.num.Visible = False End If 'name If Forms!Form1!chk_name = -1 Then Me![name].Width = Me![name].Tag Me![name].Visible = True Else Me![name].Width = 0 Me![name].Visible = False End If 'tel If Forms!Form1!chk_tel = -1 Then Me.tel.Width = Me.tel.Tag Me.tel.Visible = True Else Me.tel.Width = 0 Me.tel.Visible = False End If End Sub جعفر 1039.Database1.accdb.zip

اخي الفاضل ، رجاء اخراج ملف الاكسس من برنامج الضغط الى سطح المكتب ، ثم افتحه مباشرة 🙂

تفضل ، هذا اللي قدرت ان اصلحه من مرفقك ، والرابط اللي اعطيتك لم يستطع عمل الاصلاح ، فاستعملت احد برامج الاصلاح ، واما النماذج والتقارير ، فتقدر تستوردهم من احد برامجك السابقة 🙂 جعفر 1038.ACCOUNT - Fixed.accdb.zip

وعليكم السلام 🙂 عذرا بوحسين ، انا فقط اشتغلت على النموذج Form1 ، فيجب عليك عمل تغيير على الكود في النموذج الآخر ليتماشى مع متغيرات النموذج الآخر 🙂 جعفر

يعني انزلت المرفق اللي انا عدلت عليه ، وما اشتغل ؟ شو الخطأ اللي يطلع لك؟ هل لما تشغل البرنامج ، يطلع لك شريط اصفر في اعلى البرنامج ، وفيه زر Active او تفعيل ؟ جعفر

انا كذلك عندي وندوز 10 وكله تمام ، نعم اذكر انه صارت هذه الحاله على احد الكمبيوترات سابقا ، واعتقد تنصيب Adobe Acrobat reader حل المشكلة 🙂 جعفر

تفضل 🙂 بما انك تريد المقارنه تكون عن طريق الحقول التالية مجتمعه: [رقم المادة] و [النتيجة] و [الصفة] ، لا مو كفاية هذه الحقول ، وانما اردت هذه الحقول من جميع السجلات تكون متطابقه ، لهذا السبب ، العلاقة العادية بين الحقول في الاستعلام لم تؤدي الغرض ، ولهذا اضطررنا اللجوء للكود في الوحدة النمطية ، واذا تلاحظ ، بيانات الاستعلام qry_All هي نفسها بيانات الجدول tab_result ، ولكن الاختلاف هو في طريقة فرز الحقول ، واحدة بعد الاخرى في الاستعلام ، وذلك لتنظيم المقارنه 🙂 الوحدة النمطية المسؤوله عن العمل هي: Public Function All_Grades(ID) 'ID = رقم الطالب Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Dim Result As String Set rst = CurrentDb.OpenRecordset("Select * From qry_All Where [رقم الطالب]=" & ID) rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Result = Result & "_" & rst![رقم المادة] & "-" & rst![النتيجة] & "-" & rst![الصفة] rst.MoveNext Next i All_Grades = Mid(Result, 2) rst.Close: Set rst = Nothing End Function جعفر 1033.stu.accdb.zip

الملف يظل مثل ما هو ، ولا استبدال عنصر ولا شيء ، بس خلي ملفات PDF في المجلد booksindex ، ويكون هذا المجلد في نفس مجلد البرنامج (يعني مثل ما ارفقته انت في ملفك) 🙂 جعفر

السلام عليكم 🙂 جرب هذه الطريقة: جعفر

انا متفق معاك ، لابد ان يكون للصادر او الوارد رقم واحد موحد على جميع الاجراءات ، ولكن كلامي كان عن الاجراءات ، فبالاضافة الى تاريخ المعامله ، فقد تم طلب اعطاء رقم فرعي لهذه المعاملة ، لسهولة التخاطب برقمها ، مثلا : مثلا قدمت على طلب اجازة وتم تقييدها في صادر القسم برقم 25 في 1-1 الساعة 10.5 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 وردت لمكتب الموظف مرة ثانية لأن المدير عنده استفسار ، بنفس الرقم وتاريخ 1-1 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 احيلت للموارد البشرية قسم الوارد بتاريخ 1-1 (طبعا نتكلم عن موظف عنده واسطة 🙂 ) فبدل ان يُشار للمعامله بإسم فلان اللي بعد فلان .... ، فيُشار اليها برقم فرعي ، كالتالي: 25.0 مثلا قدمت على طلب اجازة وتم تقييدها في صادر القسم برقم 25.0 في 1-1 الساعة 10.5 25.1 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 25.2 وردت لمكتب الموظف مرة ثانية لأن المدير عنده استفسار ، بنفس الرقم وتاريخ 1-1 25.3 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 25.4 احيلت للموارد البشرية قسم الوارد بتاريخ 1-1 (طبعا نتكلم عن موظف عنده واسطة 🙂 ) جعفر

السلام عليكم 🙂 فكرة عمل جدول واحد للصادر والوارد نابع من تشابه الحقول ، ومثل ما قال الاخ kha9009lid : . ولكن وحسب علمي في احد المؤسسات ، فكان كتاب الوارد له رقمه الخاص ، ولكن تم طلب اعطاء المعامله رقم فرعي لكل خطوة تمر بها (يعني تحويل المعامله من الموظف الى رئيس القسم لإبداء رأيه ، ثم الى مدير الدائرة للموافقة ، ثم قد يكون عند المدير استفسار فيُرجع المعامله الى رئيس القسم). فصحيح ممكن استيعاب هذا كجزء من جدول واحد ، ولكن قد تحتاج الى جدولين او حتى ثلاث جداول لهذه الحركات 🙂 جعفر

مو على قولك ، ما كنت ادري نوع البكتيريا ، فقلت يالله نتعامل مع الاثنين 🙂 جعفر

والآن مادامت الوحدة النمطية Isolate تقوم بالعمل على طول ، جربها على البكتيريا حياك الله 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 التعديلات المطلوبة على برنامجك: . واضافة الكود على حدث بعد التحديث لحقل البحث . والنتيجة: . جعفر 1036.جديد.accdb.zip