نجوم المشاركات

تم معالجة الامر ASAAD.xlsx

تفضل أستاذ hakimino2002 هذا العمل كنت قمت بتنفيذ من عدة سنوات أرجو أن يكون مفيد لك ويمكنك إضافة التعديلات والتقارير التي تنقصه تجربة عقارات.rar

السلام عليكم ورحمة الله وبركاته أرجو أن يكون هذا قريبا مما تريد ولا تنسنا من دعوة بظهر الغيب التاريخ.accdb

السلام عليكم 🙂 عند عمل اي برنامج ، يجب ان تحسب حساب اصعب الظروف لتعديل البرنامج ، لذلك ، ترى الاقتراح بأن يكون برنامجك مقسوم واجهة وجداول ، وعدم استخدام خاصية Lookup في الجدول ، وطبعا هناك اشياء اخرى ، حيث انه: لا يُسمح للمستخدم ادخال البيانات مباشرة في الجدول ، تحت اي ظرف كان ، عادة يكون البرنامج مستخدم من مجموعة مستخدمين في شبكة واحدة ، او من مستخدمين في مواقع ومدن/دول مختلفة ، ليس من السهولة الوصول اليهم لعمل التعديل ، لذا هذه النصائح هي لتسهيل عمل التعديل وارساله للمستخدم ، وبتنصيب البرنامج او وضع البرنامج في مكانه الصحيح ، نجعل البرنامج يعمل بالتعديلات الجديدة وبأقل تدخل من المستخدم ، فإذا كان البرنامج مقسوم واجهة وجداول ، فيمكننا التعديل على الواجهة ، وارسالها للمستخدم ، فيقوم البرنامج بربط نفسه مع الجداول بطريقة تلقائية (طبعا برمجيا نقوم بهذه العملية) ، ويعمل البرنامج بالتعديل ، ولكن السؤال ، كيف ممكن ان نعمل تعديل على الجداول؟ نعم برمجيا ممكن ان نعمل كود في الواجهة لتعديل الجداول ، ولكن هناك خطر كبير على البيانات لسبب او آخر ، ولا تنسى ان قيمة البرنامج في بياناته ، ولعمل التعديل ، يجب ان تكون الجداول مغلقة ، وان الكهرباء لن تنقطع خلال هذا التعديل ، وان لا يأتي حفيدك ويضرب بيده على لوحة المفاتيح ويلخبط الدنيا ، ووووو ، لهذا السبب ، نبتعد عن تعديل الجداول (وهناك من المبرمجين من يضع بعض الحقول الاضافية في الجداول ، ليس لها عمل ، واذا دعت الحاجة لحقل جديد ، فيستخدم احد هذه الحقول المجهزة مسبقا) ، ونجعل التعديل في الواجهة فقط. اما عمل Lookup في الجداول ، فبالاضافة الى صعوبة تغيير مكوناته (لا تقول ما بيحتاج الى تعديل ، كان غيرك اشطر منك ، ووقع في الفخ) ، فالصعوبة الاخرى هي لما تحتاج الي مساعدة في تعديل هذا البرنامج من مبرمج آخر ، فيضطر المبرمج لعمل مجموعة روابط بين الجداول ليصل الى المطلوب (ولازلت اعاني من احد البرنامج المرفوعة في المنتدى لعمل تعديل عليها). هنا يأتي المبتدئ ليقول ، طيب اذا فيه جميع هذه المشاكل ، ليش اكسس اعطانا هذه الخاصية ، والجواب انها مثل بعض الخواص الاخرى التي قد نستخدمها في ظروف خاصة جدا ومحكمة ، مثل الحقل المحسوب وحقل المرفقات. الطريقة الصحيحة لتعوضنا عن Lookup الجداول ، هي وضع هذه القيم في جدول آخر ، ثم بالاستعلام نربط الجدولين لنحصل على اسم القيمة بدل عن رقمها ، ويمكننا عمل جدول منفصل لكل نوع من انواع البيانات وعمل العلاقات بين الجداول(وهي الطريقة المتعارف عليها ، وهي الطريقة التي انت قمت بعملها) ، وهناك طريقة اخرى ، وهي دمج جميع هذه البيانات في جدول واحد (وبدون علاقات بين الجداول) ، وانا اقترح عليك هذه الطريقة. هكذا يكون الجدول . ولما نريد بيانات Type1 ، نعمل الاستعلام ، سواء استعلام بحد ذاته وله اسم ، او استعلام في اعدادات مصدر الصف ، حقل مربع التحرير والسرد ComboBox أو مربع القوائم ListBox . فنحصل على (وطبعا يمكنك اخفاء حقل الاسم لأنه غير لازم) . وهنا في النموذج/التقرير ، نستعمل حقل مربع التحرير والسرد 🙂 جعفر 1359.MusndWZwayid.accdb.zip

تمام أخانا الحبيب شحادة، حلت المشكلة بفضل الله. وذلك عن طريق: 1- الوظائف الإضافية. 2- اختيار: عناصر معطلة. 3- ظهرت (إضافة البيان). 4- الضغط على خيار (تمكين) فظهرت الإضافة في شريط المهام، والحمد لله رب العالمين. * شاكر لك سعة صدرك، وسرعة ردك، جعل الله ذلك في ميزان حسناتك.

اتفضل لعله يفى بالغرض نسخة من البحث.xlsm

خاصية المجاميع هذه تمت اضافتها للجداول في الاصدارات الجديدة من اكسس اعتقد في 2010 وما بعده انظر الصورة

تم حل المشكلة استاذ سليم حاصبيا بارك الله فيك

حذفتها من قائمة البرامج، ولم أعرف كيفية حذفها من الورد، اللهم إلا إذا كنت تقصد أن أحذف مجلدها من ال(c) وحذفتها أيضا من قائمة الوظائف الإضافية، علمت عليها ب(صح) مع إزالة.

أخي الكريم، هل جربت حذف الإضافة بالطريقة التي شرحتها أنا في الفيديو، بحيث تقوم بحذفها من الوورد وكذلك حذفها من قائمة البرامج؟

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

نموذج لما تريد hanafy.xlsx

اعمل حقل في تذييل النموذج ثم في عرض التصميم الصق فيه هذه العبارة =Count("*") عدد السجلات.accdb

تفضل بيان تجميعى1.xlsx

ضع هذا المالف في نفس فولدر الملفات التي تريد النسخ إليها Main.xlsm

عليكم السلام تفضل يا اخى تقييم الطلاب.xlsx

بالنسبة للموضوع الأول ، يمكنك حماية الملف و منع التعديل فلا يتم التحريك بالنسبة للموضوع الثاني ، يبدو لي أن هذا وضع غير طبيعي و ربما هناك مشكلة فى النسخة

أعتذر عن التأخير.. لن تعمل الشفرة لأنها ناقصة وهذه تكملتها Sub IAS_Out_Cs_Detail() Dim rs As DAO.Recordset Dim i As Integer Dim row, cols, col '-- data variables Dim cntr_id, cntr_name, acnt_no, iss_no, iss_typ, iss_date, crr_typ, gtotal '-- open rs to add records With CurrentDb Set rs = .OpenRecordset("IAS_Out_Cs_Detail", dbOpenDynaset) .Execute "delete * from [" & rs.Name & "]" End With '-- open text file Open App_Path & "IAS_Out_Cs_Detail.txt" For Input As #1 '-- read data from text file Do Until EOF(1) '-- read line by line Line Input #1, row '-- make condition for each layer '-- first layer If row Like "مركز*" Then cols = Split(row, vbTab) cntr_id = Right(cols(0), 4) cntr_name = cols(1) '-- second layer ElseIf row Like "الحساب*" Then cols = Split(row, vbTab) acnt_no = Split(cols(0), ":")(1) iss_no = Split(cols(1), ":")(1) iss_typ = Split(cols(2), ":")(1) iss_date = Split(cols(3), ":")(1) crr_typ = cols(13) gtotal = cols(14) '-- third layer Else cols = Split(row, vbTab) rs.AddNew rs(0) = cntr_id rs(1) = cntr_name rs(2) = acnt_no rs(3) = iss_no rs(4) = iss_typ rs(5) = iss_date rs(6) = crr_typ rs(7) = gtotal For i = 0 To UBound(cols) - 2 rs(i + 8) = cols(i) Next rs.Update End If Loop Close #1 Set rs = Nothing End Sub وهذا المرفق بعد التعديل Import Data from oracle Report.zip

Sub filter() Range("B3:I3").Select Selection.AutoFilter ActiveSheet.Range("B3:I3").AutoFilter Field:=2, Criteria1:="<>" ActiveSheet.PrintPreview End Sub