ابوخليل

كلامك صحيح 100% والعمل البرمجي واحد سواء على مشاريع ميكروسوفت او مشروع بسيط انا اعمله والدليل لو حدث وتغير حرف في تسمية دالة مصنوعة او اسم حقل متشعب او اخطأت عن غير قصد وتغير نوع حقل ما ؛ لأنقلب مشروعي رأسا على عقب وظهرت مشكلات وأخطاء في اماكن متفرقة تستلزم التتبع للعثور على سبب هذه الأخطاء .

بما انك لونته بالاحمر انا اعمل على وندوز 10 64 واوفيس 10 32 فقد لا يحدث تعارض

وازيدك من الشعر بيت .. العنوان غير مناسب 🙈

يا هلا ابو احمد .. عودا حميدا من طول الغيبات جاب الغنايم

الحمد لله

جزاك الله خيرا لتعبك وجهدك ولكن الناتج مازال صغير الحجم 16x16 أو 32x32 أو 40x40 عندي مجلد تم استخراج ايقونات اكسس فيه وكثير من الايقونات 64x64 اذا كان الحجم الاساسي 64 فيمكن تكبيرها الى 132 مع الاحتفاظ بجودتها نوعا ما لا تشغل بالك يكفي انك تمكنت من اخراجها بالنسبة لأي مشروع اعمله فأني انتقي ايقوناته بعناية واضمنها مجلدا خاصا بها مع الشعار والخلفيات

في وحدة نمطية عامة الصق هذه الدالة Public Function RoundNmber(Rou As Double) As Double Dim i As Double i = Val(Rou) If i < CInt(i) Then i = CInt(i) ElseIf (i - CInt(i)) > 0 Then i = CInt(i) + 0.5 End If RoundNmber = i End Function تناديها من اي مكان في الاستعلام او النموذج او التقرير' =RoundNmber([yourText])

نعم مررت بها مثلك .. 11 سييء .. فانتقلت الى 19 ثم عدت ادراجي الى 10 عودتي بسبب ان 10 لا يفتح ملفات 19 .. وانا هنا اتعامل مع شريحة متنوعة الاستخدام

احسنت استاذ خليفة واجدت .. موضوع يستحق التثبيت استفسار لا ينقص من جهدك وعملك : كما هو معلوم ان الايقونة في ملف النظام موجودة بأكثر من حجم .. صغير/ كبير هل بالامكان المحاولة لاستخراج الايقونة حسب الحجم؟

اولا الفلترة تتم باستخدام Like لما تكتب رقم موجود كجزء من رقم آخر سوف يظهر الاثنان مثلا الرقم 11 سيظهر معه 111 و 211 و 311 وهكذا طبق على بقية الارقام الأخرى اذا الخلل في الترقيم لو تتذكر عند تصميمي لبعض الجداول معك لا اعتمد الترقيم الذي يبدأ من الرقم 1 .. خشية ان يواجهنا الذي حدث معك الآن

انظر خصائص مربع التحرير .. لسان التبويب : بيانات .. مصدر بيانات الصف : طبعا مصدره قيمة مضافة بواسطة الكود اين الكود؟ انظر حدث تحميل النموذج

تفضل اكتب جزأ من الاسم .. او الجلوس او السري ثم انقر انتر يجب اختيار الفصل الدراسي اولا البحث وتعديل درجات10.rar

توقعت ذلك .. بعد رفعي للمثال .. بانك لما تنقله لمشروعك سيحدث هذا تم تعديل المثال جرب وخبرني عن النتيجة Export_Import2.rar

تفضل .. تم الضبط والتجربة ملحوظة : حول كلامي في المشاركة السابقة اعلاه .. التسميات التوضيحية في الجداول نضعها في بداية التصميم وقبل الانتقال للأدوات الأخرى من اجل تخدمنا عند انشاء النماذج والتقارير فتظهر التسميات بالحروف العربية ولكن عند اكتمال البرنامج .. هذه التسميات في الجداول ليست ذات اهمية كبرى ، حينها يمكننا حذف هذه التسميات من الجداول التي سنجري عليها عمليات خارجية وهذان هما السطران الخاصان بالتصدير والاستيراد DoCmd.OutputTo acOutputTable, strTbl, acFormatXLSX, varFiles, False DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, strTbl, varFile, True Export_Import.rar

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

اي مثال موجود في المنتدى يقوم بالمهمة .. المنتدى مليء بالامثلة .. العشرات من الامثلة الجميلة والكود استاذنا واحد .. هو عبارة عن سطر واحد وايضا التصدير مثله سطر واحد .. هذه حقيقة تماما زي ما اقول لك هذا السطر الذي يقوم بالاستيراد DoCmd.TransferSpreadsheet acImport, 8, "tbl1", strPathFile, True, "" وهذا السطر الذي يقوم بالتصدير DoCmd.OutputTo acOutputQuery, "QryExport", "MicrosoftExcelBiff8(*.xls)", varFiles, False المشكلة حبيبنا نابعة فقط من اختلاف مسمى حقول العناوين المهم في الأمر ان برنامجي (وجداولي خاصة) ليست حضائر اغنام اوسع هذا وافتح باب من هنا و وو اذا تم تصميم الجداول يحضر حضرا تاما العبث بها . وانما يتم العبث بالضيف الزائر الذي هو اكسل وطريقتي التي اتبعها كالتالي : اعمل تصدير للجدول الذي اريد مستقبلا ادراج وجلب بيانات اليه .. يتم التصدير ولو كان خاليا .. من اجل ثبات العناوين في هذا المصنف كما في الجدول ولنطلق عليه اسم حلبي1 اذا رغبت في استيراد ملف اكسل انسخه والصقه في حلبي1 مراعيا عدم المساس باسماء العناوين الاستيراد عملية ليست دائمة وانما تتم على فترات متباعدة . لذا ما المشكلة ان اقتطع من وقتي 30 ثانية لأقوم بالنسخ واللصق ........ اما لو كانت عملية الاستيراد هي مجرد جلب بيانات خارجية للتعامل معها زمنا مؤقتا ثم حذفها ، فهنا الافضل جلب المصنف كجدول جديد .. او يكفي الارتباط

عليكم السلام ضع وسيلة للاتصال بك

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

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

اين المحاولة والاجتهاد والتجربة .. اصبحت يادكتور طالب اتكالي تنسخ من زميلك التحقق من الصحة ضع اي ثلاثة ارقام واي حرف .. 123M او 111G ........ الخ ثم انقر انتر فقط اضفت امر الاغلاق ان كان صحيح سيغلق والا لن يسمح لك بمغادرة الحقل الا بالخروج الغير قانوني وهذا هو المناسب حسب فكرتك : تريده يغلق ويفتح نموذج آخر حقل غير منضم3.rar

تفضل وجدت لك مثال من عمل اخونا شيفان .. مع بعض تصرف db1.rar

مشاركة مع الاحبة بطريقة اخرى في الخصائص حقل التحقق من الصحة اكتب التالي : Like "[0-9][0-9][0-9][A-Z]" لاحظ انها بالترتيب ثلاثة ارقام وحرف .. يمكنك ضبطها حسب بيانات الحقل حقل غير منضم2.accdb

سلمت اناملك

تفضل هذه الطريقة تستخدم لتخصيص المداخل .. بمعنى كل مستخدم يمكنك تخصيص ازرار محددة له طبعا مع تغيير بسيط في الاعلان عن المتغير open2.rar

مشاركة مع اخي وحبيبي الأستاذ ناقل علما انك لم تضف المكتبة التي اشار اليها الاستاذ ناقل Microsoft Forms 2.0 Object Library اذا تريد كلمة معرفة على مستوى المشروع تعمل في اي نموذج وبدون اي حدث اكتب في اي وحدة نمطية لديك في رأس الوحدة النمطية هذا السطر Public Const myPassWord = "P@12345678" وكلمة myPassWord هي التي تستخدمها لللأزرار