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

السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb

السلام عليكم 🙂 انا صادفت اكثر من 3 - 4 برامج ، المبرمج قافلها ، واصحاب العمل ما عارفين شو يعملون ، بعد ان تم عمل فورمات للكمبيوتر ، والمبرمج طالب المبلغ الفلاني لإعادة تنصيب البرنامج !! فرجاء ، رجاء ، اللي يريد ان يقفل برنامجه ، رجاء ان يضع برنامج او اي كود في برنامجه الحالي ، بحيث يقدر صاحب البرنامج ان يشتغل عليه من جديد ، وفي لابتوبات مافيها إلا البارتيشن C فقط . وهنا سؤال ، هل في اتفاق بينك المبرمج وبين صاحب البرنامج ، ان البرنامج لك ، او له !! فإذا مافي ، فمعناه ان البرنامج له ، وهو حر التصرف فيه !! جعفر

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

وعليكم السلام طالما انك لم تقم برفع ملف وشرح المطلوب بكل دقة فكان عليك استخدام خاصية البحث في المنتدى تفضل هذه الروابط قد تفيدك https://www.officena.net/ib/topic/54033-برنامج-الشيكات-مع-التقارير-الاصدار-الثاني-ضاحي-الغريب/?tab=comments#comment-340520 https://www.officena.net/ib/topic/45958-كيفيه-طباعة-الشيك-من-ذلك-النموذج/?tab=comments#comment-272771 وهذا نموذج أيضا بسيط وهذا أيضا برنامج جاهز لإدارة الشيكات bank_cheque_software.xls cheques_management_برنامج_ادارة_الشيكات.rar

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

أحسنت بارك الله فيك استاذ محمد

اخى الكريم بالنسبة لموضوع التاريخ وتثبيته ,هذا كان طلبك من البداية ان يكون التاريخ واليوم مثبتات ولا يتغيران مهما حدث اى تغيير تفضل جدول سير قضايا.xlsm

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

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

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

وعليكم السلام تفضل Book2.xlsx

احسنت أستاذ عادل عمل رائع بارك الله فيك

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

طيب من فضلكم ممكن تجربة القاعدة الاتية test.rar استاذ @عبد اللطيف سلوم انتظر ردك بعد التجربة

وعليكم السلام ورحمة الله وبركاته تفضل Insert.accdb

نعم صحيح

الله اعلى اعلى واعلم ولكن نما الى علمى ان هناك برامج مدفوعة ترجعها مرة اخرى

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

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

وعليكم السلام ورحمة الله وبركاتة انظر الموضوع التالي ::بالتوفيق::

اولا اعتقد حضرتك لم تنتبه لتفعيل KeyPreview = True للنموذج الفرعى من التبويب الخاص بوضع الاحداث كما يمكنكم وضع هذا الكود بدلا منها ات اردتم Private Sub Form_Load() Me.KeyPreview = True End Sub

وأخيرا بفضله وكرمه علينا تم الانتهاء من عمل الفيديو الذى ينتظره الكثيرون مع محمد جابر تعلم فى الاكسيل ترحيل الطلبة الناجحون والراسبون · سوف نتعلم باذن الله تعالى في الدرس بعض الدوال وخصائصها وكيف العمل بها · كما ستتعلم كيفيه ان تعلم نفسك بنفسك في صناعة دوال الترحيل فيديو مفيد باذن الله مشاهدة ممتعة 🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏 ♦ رابط الشرح على اليوتيوب: https://youtu.be/CG98wMuDapg ♦ والفيديو الاصلى تجدوه فى (تليجرام) على الرابط التالي : https://t.me/technologyeduM ♦ الملف المستخدم في الشرح ستجدوه اسفل الفيديو في اليوتيوب 🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏

الاستاذ / عبد اللطيف جزاك الله خير يرجى معرفة كلمة سر الدخول علي vba (الفيجوال)

وعليكم السلام تفضل لك ما طلبت المبيعات اليوميه.xlsm

بارك الله فيك اخى

هل تأذنون لي أن أشارك معكم لاحظ المرفق يمكنك تغيير الفرز على حسب ترتيب الحرف أبجدياً تصاعدياً وتنازلياً في الاستعلام سيتم الترقيم على ضوءة في النموذج. يعني قم بالفرز من بواسطة الاستعلام على ما تريده سيتم الترقيم في النموذج حسب ما تريد test550055_2.accdb

ماذا تقصد بتبديل الارقام؟ تبديل يدوي؟ ممكن تشرح الغرض واكيد سيكون حل باذن الله

الاخ العزيز ازهر عبد العزيز وهذا اكمالا لما سبق فى الموضوع السابق ان كان ما ارفقته صحيحا 54.zip

اطلعت على مشاركة محمد ايمن وقد استفدت منها كثيرا لكن لم يتطرق للنسخ الاحتياطي من داخل الاكسس هل من مساعدة

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

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

وعليكم السلام ممكن تشوف الصورة

وعليكم السلام اخى الكريم -نورت المنتدى لابد من رفع الملف داخل المنتدى وليس برابط خارجى كما عليك جعل عنوان المشاركة دال على ما تطلب وتريد حتى يسهل البحث بعد ذلك

وعليكم السلام التنسيق الشرطى.xlsx

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

احسنت استاذنا الكريم تعديلات مهمة ومعادلة ممتازة جعله الله في ميزان حسناتك

جزاك الله كل خير استاذى الكريم وبارك الله فيك

من فضلك أستاذ aboesa لا تقوم بتكرار المشاركات لنفس التساؤل والطلب حتى لا يتم حذف الموضوع ,لقد تم دمج المشاركتين هنا بارك الله في جميع الأساتذة كلها حلول ممتازة بارك الله فيكم جميعا

وعليكم السلام يمكنك استخدام هذا الكود Sub Copy_Paste_Below_Last_Cell() Dim wsCopy As Worksheet Dim wsDest As Worksheet Dim lCopyLastRow As Long Dim lDestLastRow As Long Set wsCopy = Workbooks("v1.xlsm").Worksheets("Sheet1") Set wsDest = Workbooks("v2.xlsm").Worksheets("Sheet1") lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "D").End(xlUp).Offset(1).Row wsCopy.Range("D6:G" & lCopyLastRow).Copy _ wsDest.Range("D" & lDestLastRow) End Sub ترحيل من ملف اكسل الى اخر.rar

بارك الله فيك استاذى الكريم وجزاك الله كل خير

بارك الله فيك استاذ موسى وشكرا جدا على هذا البرنامج الرائع ,ولكى تعم الفائدة فبعد اذنك طبعا سأقوم برفعه داخل المنتدى البيان_للمحاسبة.xlsm

أحسنت استاذنا الكريم وزادك الله من فضله-عمل رائع

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

أستاذ حسين اعرض استعلام الالحاق فى طريقة عرض التصميم ثم من قائمة عرض اختر عرض sql ثم انسخ الكود الذى سيظهر لديك وفى زر اﻷمر ضع هذا الكود: Docmd.runsql "وبين علامتى التنصيص الصق الكود الذى قمت بنسخه منذ قليل" وإذ أردت أن لا تزعجك رسالة التأكيد فى كل مرة تضغط الزر ضع هذا الكود بعد الكود أعلاه Docmd.setwarning false جرب ولا تنسانا بدعوة فى ظهر الغيب تمنياتى بالتوفيق

لا , الكود هو نفسه كود الاستعلام "insert into table1 (nem,nnumber,tele,amount) values (nem,nnumber,tele,amount)" لو نظرت جملة ال sql في الاستعلام فهو نفسه تماما الذي اختلف هو فقط استدعاء جملة ال sql بواسطة الأمر docmd.runsql بهذا الأمر تستطيع تنفيذ اي جملة استعلام

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اقدم لكم في هذه المشاركة شرح ( للامانه ) فهو منقول من منتدي آخر وشرح لاحد الأخوة ولكن لا اتذكر الاسم الآن والجميل به وما جعلني اقوم بوضعه هنا في هذا الموضوع ان به شرح الماكرو كامل وكذلك شرح لمعظم ما قمنا باستخدامه في الاكواد في الدروس السابقة من التعامل مع الخلايا في الاكسيل ودالة IF و .... اترككم مع الملفات في الدرس القادم والاخير سنتعرف علي طريقة عمل زر (( للحذف )) ووضع الاكواد الخاصة به مع شرحه سطر سطر كما تعودنا مع المرفقات الخاصه به .... وايضا كما تعودنا باسهل اكواد ممكنة لعمل تلك الوظائف واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري جزاكم الله خيرا شرح الماكرو.rar 2- دروس في التعامل مع الخلايا في الاكسيل.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الثالث )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل استعلام في نفس الفورم الذي قمنا بتصميمه عن البيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام كومبوبكس لعمل ذلك ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري في الدرس القادم سنتعرف الطريقة لعمل التعديل في البيانات السابق تسجيلها وذلك عن طريق نفس الفورم ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 1 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام 3.rar طريقة عمل استعلام في الشاشة عن طريق كومبوبكس3.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة (((( تابع / مرفقات الدرس الثاني )))) ملف الفيديو رقم 4 ملف القــــديــــر الــــرائــــع / الحســــــامــــــي فيديو4 .. طريقة عمل شاشة ادخال 3-4.rar الدرس الثالث textbox.rar

السلام عليكم ورحمة الله وبركاته وهذه محاولة للتحكم في ناحية الطباعة بالمعادلات حيث تتغير بداية ونهاية الاعمدة والصفوف في ناحية الطباعة حسب الخلايا المعباة وبصرف النظر عن وجود خلايا فارغة الخالدي.rar