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

السلام عليكم في الأسطر الملونة بالأحمر أضف عبارة PtrSafe بين كلمتي Function و Declare فتكون كالتالي : Declare PtrSafe Function بدلا من Declare Function في كل سطر من صفوف الحمراء...

السلام عليكم تم عمل المطلوب (تحديد ناحية الطباعة لكل الأوراق في المصنف + تحجيم كل ناحية طباعة في صفحة واحدة) في الملف المرفق... الدفتر الإحصائي -الإستقصاء المدرسي الشامل2022-2023.xlsx

تم تجربة الكود باسم الجدول و الحقل كما ورد في السؤال و فعلا لم يشتغل قمت بتغيير اسم الجدول فاشتغل عادي يظهر أن اسم الجدول ربما من الأسماء المحجوزة fff2.rar

السلام عليكم ورحمة الله وبركاته درسنا اليوم يتكلم عن كيفية تحزيم برنامج الأكسس بعد أن تنتهي من تصميم برنامجك وتكون مستعدا لتحويله إلى ملف EXE وذلك ليسهل عليك تنصيبه في أجهزة الحاسوب سواءا لعملائك أو أجهزة العمل أو غيرها .. كل ما ستحتاجه لتطبيق درس اليوم هو : ملف الأكسس / وأيكونة برنامجك الخاص ( اختياري) / وصورة لشاشة البدء بصيغة BMB ( اختياري) / وبرنامج الوينرار WinRAR . فعلى بركة الله ..

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

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

جرب اخي المرفق اخي جلب البيانات من قاعدة خارجية باستخدام احد عائلة DLookup.rar

مثال فيه فكرة ممكن تساعدك Test_A2003.zip

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

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

ممكن تعطينا قيمة المتغير paath ؟

بدل السطر الأخير بهذا: xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

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

جرب كذا DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = 4;" أو كذا DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = '4'" هذي آخر حلولي 🙂

جربت الكود يشتغل عادي من خلال زر على النموذج fff2.accdb

أخي الثلاث حالات صحيحة يعني بالنقطة أو بعلامة التعجب أو بدون اسم الجدول الآن تحتاج تتأكد من نوع الحقل فإذا كان نصي سنجري عليه تعديل بسيط وإذا كان رقمي تحتاج تتأكد من المسميات اسم الجدول واسم الحقل. وإذا مانفع ربما "الأندر سكور" مسببة مشكلة وحلها وضغ الأسم بين أقواس مربعة [ ]

كتبت لك من حفظي ، سأفتح الأكسس وأجرب وأرجع لك ، واللي جاهز قبلي فليتفضل لا تنتظروني.

عند وضع الفولدر temp وبه الملف names في ال c الطبيعي ان الملف يفتح معك عادى مثل اي ملف اكسل معني انه تظهر لك هذه الصورة انك لم تضع الفولدر وبه الملف في الC ضع صورة لملف names وهو في الC

هذا الموضوع الاصلي للبرنامج للاستفاده من طريقه عمل البرنامج هنا

هكذا؟ عادل ماذا عنه الجمعية الشهرية (2).xlsm

وعليكم السلام معلش اعذرنى مفهمتش شرح حضرتك قد كده وكمان ملقتش نموذج فرعى اللى يتقول عليه المهم اتفضل محاولتى ع قد فهمى ان شاء الله يكون ما تريد بالتوفيق 1_رسائل.rar

وعليكم السلام ورحمة الله وبركاته 🙂 هذا جواب سؤالك الأول:

اتفضل حل اخر بتحويل الحقول الى كمبو بالتوفيق Car plate_2.accdb

وعليكم السلام ورحمه الله وبركاته احسنت اخى @TQTHAMI جزاك الله خيرا مشاركه معك نفس الحل بس بفنكشن واستدعاء بالتوفيق Car plate_1.accdb

متابع ومنتظر

الف مبروك للمهندس @Eng.Qassimنسئل الله لك التوفيق والنجاح وان يعطيك ما تتمناه

وعليكم السلام ورحمة الله وبركاتة جرب المرفق 12.rar

ترليون مبروك اخي قاسم تستاهل وانت من اهلها اعانكم الله

جرب بدل النقطة إلى علامة تعجب وجرب أيضا أن تكتب اسم الحقل فقط بدون اسم الجدول وبدون النقطة

تفضل اخي الكريم هل هذا هو المطلوب ؟ اعداد اللجان.accdb

هذا ماحصلته لدي فالموضوع كبير افتح كمل .......... ووافني بالنتيجة https://gist.github.com/chemiadel/056ed43975f7b7f8cb332b02a5011abb

الف مبرووك مهندس قاسم .. تستاهل كل خير ..

وعليكم السلام اخي الكريم الرجاء كتابة الكود كاملا حتى يتسنى لنا معرفة التفاصيل او ارفق مثالا حتى تحصل على الاجابة من اخوانك . على العموم انظر لهذا الجزء من الكود وحاول ان تطوعه على حسب ملفك. Dim UserSecurity As Integer UserSecurity = (DLookup("UserSecurityLevelID", "tblUser", "UserLogin='" & Me.txtLoginID.Value & "'")) Select Case UserSecurity Case Is = 1 DoCmd.OpenForm "_Main1" Case Is = 2 DoCmd.OpenForm "_Main2" Case Is = 3 DoCmd.OpenForm "_Main3" End Select بالتوفيق

وعليكم السلام هذا الكود لمنع تكرار السجل Private Sub UserName_BeforeUpdate(Cancel As Integer) Dim ID As Integer Dim UsrName As String Dim Msg, Style, Title, Response UsrName = Me.UserName ID = Nz(DLookup("[ID]", "UserLog", "[UserName]='" & Me.UserName & "'"), 0) If ID <> 0 Then Me.Undo Cancel = True Msg = "This name already exists" & vbCrLf & _ "Mr. " & UsrName & vbCrLf & vbCrLf & _ "Yes : Go to that record" & vbCrLf & _ "No : Delete this record" Style = vbYesNo + vbExclamation + vbDefaultButton2 Title = "Repetition is prohibited" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then DoCmd.FindRecord ID, , , , , acAll, True End If End If End Sub وبما انك لم ترفق ملف للتعديل عليه اليك هذا الملف ويمكنك اقتباس الفكرة منه بالتوفيق Prevent Duplicate & Filter.accdb

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

يجب عليك الضغط على الملف كليك يمين ثم عمل كما بالصورة . وستحل المشكلة ,وبارك الله فيكم

السلام عليكم لن اتكلم كثيرا ولكن يجب ان اذكر التالي: كلمات القاموس الحالية منقول من المنتدى وباستطاعتكم اضافة ما تريدونه من كلمات بالنسخ واللصق في الملف وتغيير مدى النطاق المسمى (البيانات) هنا يتواجد معنا الاستاذ القدير /ابو اسامة العينبوسي في كود تغيير اللغة فكرة الاضافة والتعديل والحذف والاستماع الاستاذ القدير / محمدي عبد السميع فكرة فورم الخروج (منتديات اهلا عرب) تفضلوا _____________.rar

السلام عليكم تفضل أخي الكريم كود يقوم بحذف الهمزة من كل الأسماء تلقائيا بعد الكتابة مباشرة بدلا من الدخول في القوائم ممل سيهل عليك الترتيب للأمانة الكود منقول من أحد الأساتذة دمت بخير أيسم إبراهيم hamza.rar