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

السلام عليكم 🙂 انت بهذه الطريقة وصلت الى الحد الاقصى لبرنامج الاكسس ، ورجاء احتفظ بنسخه منه في مكان امين ، قبل ان تفقد جميع بياناتك!! كما لاحظت ، لا يمكنك الاستمرار بإضافة صور جديدة ، وانت محظوظ بانك تقدر تفتح قاعدة البيانات وتشوف محتواها !! الطريقة الوحيدة لديك الآن هي: 1. عمل نسختين لبرنامجك ، واحدة للحفظ والثانية لتفكيكها (تابع لوسمحت) ، 2. افراغ/اخراج جميع المرفقات من برنامجك الى مجلد/مجلدات في الويندوز (برمجيا طبعا 🙂) ، بطريقة مرتبة ، آخذ بعين الاعتبار التوسع المستقبلي (يعني ما تريد ان تضع جميع مرفقاتك في مجلد واحد ، لجميع السنوات وجميع الاقسام) ، 3. حذف حقل المرفقات من قاعدة البيانات ، 4. عمل ضغط واصلاح ، 5. عمل ربط برمجي لهذه المرفقات. جعفر ملاحظة: انا غير متواجد في المنتدى هذه الايام ، ولا اعرف كيف وصلت لهذا الموضوع 🙂 فرجاء لا تتوقع رد سريع مني 🙂

اخي العزيز في قاعدة بيانات mdb فقط يمكنك استخدام الكائن OLE لارفاق الملفات داخل قاعدة البيانات انظر لتعليمات مايكروسوفت تحياتي

السلام عليكم اخي العزيز افتح النموذج في وضع التصميم و قم بازالة التخطيط من - ترتيب - ازالة التخطيط وسوف يعمل النموذج بصورة طبيعية تحياتي Library.rar

تفضل هذا هو السريال K5EMR-57HK7-4BADS-6XG2B-TU645-ZZW29-SQ5ZY-EL9T3 وهنا يوجد البرنامج كاملا بالكراك... يمكنك تحميله بكل بساطة Passware Passware Kit Forensic.v13.5.8557.x32-BRD

بالتوفيق أخي الحبيب

باستعمال تقنية البحث في المنتدى ستجد ما يفيدك حول الموضوع مثل هذا ترحيل من الاكسيل الى الوورد vba

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

اتفضل اخى ان شاء الله يكون كما تريد اطفال.rar

الدرس الرابع من تعليم الاكسيل بعد اعاده التحميل ورابط الفيديو https://youtu.be/SAeTKOqItOQ ورابط الشرح من المرفقات الدرس الرابع.xlsx

تشكرات أخي خالد ...

السلام عليكم ورحمة الله وبركاته السادة الافاضل اعضاء ومشرفي منتدانا الجميل استفساري هو .... هل ممكن عمل ملف حماية لملف اكسيل داخل الكمبيوتر بحيث عند عدم وجود هذا الملف لم يتم فتح الملف او ببساطة مثل ما هو متبع بالاكسس بالكود التالي If Dir("c:\windows\AAA.dll") = "" Then MsgBox non genuine copy , contant programmer", vbCritical, "non genuine " DoCmd.Quit End If مع كل الشكر والتقدير اساتذتي الكرام

لا اظن ان فكرة الضغط على مفتاح الشفت اثناء الفتح تلغى الحماية وتمكنك من الفتح وخصوصا بوجود كلمة سر خارجية للملف اشكر لك ردك على سؤالى

أخي العزيز أرجو أن تعالج النقص وفقاً للتعليق السابق فأنا الآن أكتب من الجوال. أعتذر مرة أخرى

أستاذى @Khalf أرجو تنفيذها على الملف لانه تحدث لدى اخطاء

أعتذر ينقص الفانكشن العبارة الافتتاحية public Function و العبارة Replace (STRO,"'","") لقد كتبتها على عجالة قبل انقطاع الكهرباء ..

الله يرضى عنك ... تم المطلوب ..

Private Sub Worker_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone Dim x As Integer Dim strSQL As String Dim intHow_Many As Integer strSQL = "[Worker]='" & RQ{Me.Worker) & "'" intHow_Many = DCount("*", "Table", strSQL) If intHow_Many > 0 Then DoCmd.OpenForm "Work" ElseIf intHow_Many = 0 Then End If السلام عليكم. عدل الكود بالصورة السابقة بعد إضافة الفانكشن التالي إلى موديول Public RQ(STRO) On Error Resume Next RQ = Repalce(STRO,"'") End Function المشكلة أن علامة التنصيص المفردة تحول العبارة إلى تعليق .

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

وإياك أخي الكريم

اخى الفاضل فى على الرابط التالى شرح تصدير استعلام للاكسيل فى شيت معين للاخ startnet حمله وحاول تنفذه انت عندك 4 استعلامات زى ما بتقول وكل استعلام فى صفحه لواحده هتعمل كود وتنسخه 4 مرات فى كل كود هتضع اسم استعلام والصفحه بتاعته اللى تتصدر عليه http://www.arabmoheet.net/aspnetforum/amf/72c9378b-e62c-4f05-9e47-b0161f60cb66.aspx?pageno=1&#entry198277 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام ورحمة الله وبركاته اليك الحل اخي العزيز ان شاء الله يكون هو المطلوب لكم تحياتي التقييم.xlsx

اخى الفاضل ممكن تطلع عالرابط ده لاخى واستاذى العزيز @jjafferr تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

الفو الشكر لله ثم لاخواننا واساتذتنا اجعله فى حدث عند الخروج Private Sub تاريخ_التركيب_Exit(Cancel As Integer) If Me.تاريخ_التركيب < Me.تاريخ_اصدار_الفاتوره Then MsgBox "تاريخ التركيب يجب ان يكون اكبر من او يساوى تاريخ الفاتوره" DoCmd.CancelEvent End If End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

ا اذا كان هناك مشكله فى الصوت عند تشغيل الفيديو على اليوتيوب اذهب الى الرابط التالى http://www.igli5.com/2014/11/blog-post_26.html الرابط الذى يلصق فى جوجل Audio EQ انسخه وضعه بحث فى جوجل

بارك الله فيك وجزاك الله كل خير

أستاذ اسلام الكبابى أين الضغط على الإعجاب على كل هذه الإجابات الممتازة ؟!!💙

الحمدلله الذى بنعمته تتم الصالحات واياكم اخى الفاضل بالتوفيق ان شاء الله

جزاك الله خيرا اخى محمد

السلام عليكم أخي الحبيب إليك المعادلة جربها إن أردت تطبيق الحقل المحسوب في جدول. شكراً لكم المعادلة بصيغها النهائية IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)>5;10+((2*[bg1])-Right([bg1]*2;1));IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)<=5;((2*[bg1])-Right([bg1]*2;1));[bg1]*2)) ForKhaled.accdb

السلام عليكم هذا رابط يخص الموضوع تحياتي http://arabteam2000-forum.com/index.php?/topic/96583-كيفية-قفل-النموذج-بحيث-لايمكن-التلاعب-به/

او من WORD هكذا والسلام

عن طريق البحث والاستبدال هكذا

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

السلام عليكم اخي العزيز @nacer_alger من الافضل ارفاق مثال لغرض التعديل 1- اعرض النموذج في وضع التصميم - ثم اضغط على راس النموذج الفرعي -من خصائص النموذج - اختر التنسيق - ومن التنسيق قم يتغيير طريقة العرض الافتراضية (من ورقة بيانات الى نموذج مفرد او نماذج مستمرة) . 2- من صورة قم بتغيير الخلفية للنموذج تحياتي ملف مرفق فيه نموذج فرعي تم تغيير الخلفيه له db1.rar db2.rar

أستاذ nabil2255 أين الضغط على الإعجاب ؟!1💙

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

تقصد بدون اكواد وبدون وحدة نمطية نعم ممكن ولكن بعدة خطوات اولا نحتاج الى اضافة جدول يحتوي على كافة التواريخ الميلادية وما يقابلها من تواريخ هجرية ثانيا في الاستعلام نجعل قيمة حقل التاريخ الهجري يساوي الاتي DLookUp("[h_date]";"tbl1";"[m_date]=" & Format([dates_m];"\#mm\/dd\/yyyy\#")) اي اننا نطلب قيمة التاريخ الهجري من الجدول الاضافي اذا كان التاريخ الميلادي في الجدول الاضافي يساوي التاريخ الميلادي في الاستعلام وبالتنسيق المحدد في دالة format ثالثا بعد الحصول على قيمة التاريخ الهجري يمكننا بسهولة الحصول على حقل اليوم والشهر والسنة المثال مرفق استعلام q2 هجري2.accdb

السلام عليكم ورحمة الله تعالى وبركاته أساتذتي وإخوتي الكرام تحية طيبة لكم وبعد ... بعد إنقطاع طويل عن المنتدى بسبب عدة ظروف أعود لكم بهذه الهدية المتواضعة أتمنى ان تنال استحسانكم البرنامج المرفق فريد من نوعه نوعاً ما فهو عبارة عن اضافة بيانات شخص مع صورته حيث يتم تخزين صورة الشخص في الجدول كبيانات ثنائية طويلة (binary long data) كما يمكنك استعراض الصورة وتغييرها ايضاً قد يتسائل البعض عن أهمية استخدام هذه الطريقة في حفظ الصور!! ولماذا لا نقوم بحفظ الصور خارج قاعدة البيانات فقط وربطها بالبرنامج؟ الجواب ببساطة هو انني قد واجهت مشكلة في استعمال برنامج لإصدار بطاقات تعريفية للموظفين حيث ان البرنامج يقرأ بيانات الموظفين من قاعدة بيانات اكسس وعند اضافة صورة الموظف يقوم بتخزينها في القاعدة بصيغة بيانات ثنائية طويلة كما يقرئها بنفس الصيغة ايضاً ولا يتعامل مع الصور المرتبطة في الجدول ولضعف امكانيات البرنامج في ادخال البيانات والبحث عنها وفلترتها اضطررت الى انشاء برنامج يدخل البيانات الى تلك القاعدة وفلترتها وما الى ذلك ومن هنا وجدت انني لابد من تمكين برنامجي من اضافة الصور الى الجدول بنفس الصيغة والتحكم بها وتغييرها في اي وقت دون الحاجة الى عمل ذلك من خلال برنامج اصدار البطاقات التعريفية. على العموم اتمنى ان يستفاد منه احد في مشاريعه تحياتي view_add_edit_binary_image.mdb

أخي هشام ، تسلم ايدك شكرا على هذا المجهود ، ولكن احد اهم النقاط في البرنامج ، هو النقطة رقم 4 ، وهو عمل ورقة/sheet جديدة لكل جدول/استعلام كما اني احبذ ان تجعل رابط تنزيل البرنامج من هذا الموضوع شكرا لك مرة اخرى جعفر

السلام عليكم ورحمة الله وبركاته لا ننكر فضل الله علينا في كل أمور حياتنا الحمد لله علي كل حال نبدأ بالصلاة والسلام علي أشرف خلق الله سيدنا محمد صلى الله عليه وسلم أساتذتي وإخواني أقدم لكم اليوم عمل من أعمال أستاذنا ومعلمنا ضاحي الغريب ده رابط موضوع أستاذنا / ضاحي الغريب http://www.officena.net/ib/index.php?showtopic=48783&p=296067 بس أنا عملت فيه شويت تعديلات وفنيات لأحد الزملاء حسب عمله ورغبته وقررت أن أرفعه علي المنتدى حتى تعم الفائدة لأن الهدف الرئيسي هو التعلم والإفادة ونوجه الشكر لمعلمنا القدير / عبد الله باقشير " اللي لازم أستعمل فنياته وأعماله داخل ملفي " وأوجه الشكر لأستاذي / رجب جاويش وحبيبي وأستاذي / حمادة عمر وملك المعادلات / جمال عبد السميع وأخي / إبراهيم أبو ليلة وأعضاء كثيرون لا نستطيع أن ننكر مجهودهم وفضلهم علي المنتدي كلمة المرور 123 سندات V.2.2.rar

هل هذه النتيجة مرضية ؟ التصدير الى ملف اكسل معد مسبقا.rar

الى الاكسل ، لا ، ليس بطريقة مباشرة ولكن عادة إعداد التقرير (وفي حالتنا هنا لتصديره الى اكسل) يكون مرة واحدة فقط ، لذا يمكنك العمل على هذا التصدير بالتحكم في الاكسل ، بتجزئته ، هكذا: 1. سنتعامل مع الاكسل عن طريق النموذج وليس التقرير ، 2. ارسال البيانات ، والتي عادة تكون من الاستعلام ، الى الاكسل ، بحيث تبدأ من السطر A4 ، وهنا تستطيع استعمال الوحدة النمطية من برنامجي: والتي استعملتها هنا: 3. ارسال قيمة مربع نص (كالذي في رأس التقرير) ، الى الحقل B2 من الاكسل ، 4. ارسال قيمة اخرى الى الحقل B3 من الاكسل ، 5. ارسال قيم اخرى في نهاية الصفحة الاكسل ، ... وهكذا ، بإستخدام الكود مثل الموجود هنا (جزء ارسال البيانات الى الاكسل): جعفر

وعليكم السلام من المعروف ان اكسس عنده مشكلة في تصدير التقرير الى اكسل بالاحتفاظ بالتنسيق ولكن بحيلة بسيطة تستطيع ارسال Header الى الاكسل مع تقريرك ، استعمل حقل النص ، واستعمل هذا الكود لإضافة بقية الكلمات اليه: Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) Me.Text77 = "List Of New Monthly subscription " & vbCrLf & _ "( K4 ) " & Format(Date, "mmmm\.yyyy") End Sub جعفر

أخي الكريم جرب الملف التالي فيه حلين لإخفاء الصفر .. Hide Zero Values.rar

السلام عليكم ورحمة الله وبركاته في الملف المرفق معادلة تقوم بعكس الارقام الموجودة في خلية , مثلا الارقام (123456) تعكس الى(654321) و المعادلة تعمل بصرف النظر عن عدد الارقام في الخلية. وضعت المعادلة في هذا الموضوع بسبب اني استفدت واخذت الفكرة الاساسية للمعادلة من المعادلات الموجودة في ملف اخي الفاضل الاستاذ بن علية تحياتي معادلة عكس الارقام.rar

السلام عليكم =========== اخوانى واحبائى واحب الناس الى قلبى ( اعضاء - مشرفين - مسئولى )ممنتدى اوفسينا كم تعلمت منكم وكم زادنى شرف الردود لكم وعليكم والان موعدى معكم لرد جميلكم الثقيل على كتفى خفيف على قلبى الى كل من علمنى حرفا فى هذا المنتدى وسيعلنى اهديكم هذا البرنامج داعيا الله ان يكون على المستوى اللائق واعطائى ولو درجة النجاح والنجاح فقط ميزات البرنامج ============== 1) يصلح للصفين معا فهو يتعامل مع صيغتى الاناث والذكور ( طالبات - وطلبة ) بمجرد اختيار بنين او بنات فى صفحة البيانات فمعادلاته مجهزة لذلك . 2) يتعامل مع الصفين الاول والثانى عند اختيار الصف فى صفحة البيانات فالمعادلات ايضا مجهزة لذلك 3)البرنامج يجمع فى طياته كل افكار الكنترولات السابقة فقط مع اضافة توزيع اللجان وارقام الجلوس لاى صف من الصفين دون التدخل لكتابة الصف او الجنس . 4)صفحة السرى ( لها رقم سرى لعدم الاطلاع من قبل اعضاء الكنترول والسرى هو 12) لعالمنا الجليل خبور 5)فى صفحة ف د 1 يوجد زر للكتشنة وفك الكتشنة وكانت الفكرة للاستاذ ايسم بارك الله فيه 6) يوجد فى نفس الصفحة زر للتقريب بما يتناسب مع قوانين الرفع وهو اختيارى والكود للاستاذ الكبير ابو تامر . 7)شهادة الفصل الدراسى الاول صفحة واحدة فقط وهى فقط كعملية جمالية تعمدت الا يكون الصفحة بها اكثر من شهادة وذلك لتجنب القص وغيرة ( رزمة الورق تقص فى المطبعة كما هى الى نصفين وتوضع فى الطابعة كما هى ) 8)ما اعتبره اهم ميزة هو شهادة الفصل الدراسى الثانى تكون بالدوائر . 9) ترحيل الشيت الى ناجح ودور ثانى للطباعة وايضا بالدوائر 10) لا املك اى كود فى هذا البرنامج الا كود التجهيز فقط اما باقى الاكواد قكلها موجودة فى المنتدى 11) اشكر كل من ساهم بفكرة واخص وسامحونى بالترتيب الاستاذ مجاهد اعادة الله لنا سالما العالم الجليل خبور خير الاستاذ الفذ ابو تامر اخى وصديقى ايسم واترككم مع البرنامج فى رعاية الله وفى انتظار تعليقاتكم