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

وعليكم السلام ورحمة الله تفضل Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Me.T21 = DCount("[العمر]", "[العمر]", "[العمر]between 0 AND 14 and[الجنس]= 'ذكر'") Me.T22 = DCount("[العمر]", "[العمر]", "[العمر]between 15 AND 20 and[الجنس]='ذكر'") Me.T23 = DCount("[العمر]", "[العمر]", "[العمر]between 21 AND 30 and[الجنس]='ذكر'") Me.T24 = DCount("[العمر]", "[العمر]", "[العمر]between 31 AND 40 and[الجنس]='ذكر'") Me.T25 = DCount("[العمر]", "[العمر]", "[العمر]>=41 and[الجنس]='ذكر'") Me.T27 = DCount("[العمر]", "[العمر]", "[العمر]between 0 AND 14 and[الجنس]='أنثى'") Me.T28 = DCount("[العمر]", "[العمر]", "[العمر]between 15 AND 20 and[الجنس]='أنثى'") Me.T29 = DCount("[العمر]", "[العمر]", "[العمر]between 21 AND 30 and[الجنس]='أنثى'") Me.T30 = DCount("[العمر]", "[العمر]", "[العمر]between 31 AND 40 and[الجنس]='أنثى'") Me.T31 = DCount("[العمر]", "[العمر]", "[العمر]>=41 and[الجنس]='أنثى'") Me.T51 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='حركي' and[الجنس]='ذكر'") Me.T52 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='ذهني' and[الجنس]='ذكر'") Me.T53 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='سمعي' and[الجنس]='ذكر'") Me.T54 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='بصري' and[الجنس]='ذكر'") Me.T55 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='متعدد الإعاقة' and[الجنس]='ذكر'") Me.T58 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='حركي' and[الجنس]='أنثى'") Me.T59 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='ذهني' and[الجنس]='أنثى'") Me.T60 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='سمعي' and[الجنس]='أنثى'") Me.T61 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='بصري' and[الجنس]='أنثى'") Me.T62 = DCount("[طبيعة الإعاقة]", "[العمر]", "[طبيعة الإعاقة]='متعدد الإعاقة' and[الجنس]='أنثى'") End Sub ::بالتوفيق:: Handicapées Nationa-kaser906l.rar

جرب المرفق ففيه ما تريد... بن علية حاجي فاتورة.xlsx

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

السلام عليكم في نقاش مع الأستاذ @رمهان في أحد المواضيع اقترح عليا فتح موضوع حول إغلاق البرامج المتصلة بالشبكة من أجل النقاش و إثراء الموضوع. و لقد قمت بهذا الصدد بتصميم مثال يجعل مدير الشبكة يتحكم في إغلاق جميع البرامج (الأجهزة) المتصلة عبر الشبكة. شرح فكرة البرنامج: قمت بإضافة جدول لقاعدة البيانات اسمه tbl1 و وضعت به حقل اسمه code_edit نوعه رقمي تعتمد الفكرة على إعطاء هذا الحقل قيمتين 0 أو 1 في نسخة المستخدم هناك نموذج الواجهة frm يتحسس لقيمة الحقل code_edit إذا وجدها 1 يفتح نموذج آخر يبدأ بالعد التنازلي من 10 لإغلاق القاعدة و عند فتح القاعدة مرة ثانية يظهر نموذج العد التنازلي مرة أخرى لأن قيمة الحقل 1 يتم تغيير قيمة الحقل من خلال زري أمر في نسخة المدير (إغلاق الأجهزة المتصلة و منع الإتصال ، السماح بالإتصال) في المرفق ثلاثة ملفات نسخة المدير و نسخة مستخدم و db بعد تحميل المرفق قم بتحديث إرتباط نسخة المدير و نسخة مستخدم مع القاعدة db افتح الملفين نسخة المدير و نسخة مستخدم و اضغط على زر إغلاق الأجهزة المتصلة و منع الإتصال في نسخة المدير سوف تلاحظ ظهور نموذج العد التنازلي في نسخة المستخدم و إن كانت لك شبكة داخلية تستطيع نقل نسخة المستخدم لجهاز آخر و تحديث الإرتباط و تجربة البرنامج. eloued.rar

السلام عليكم ورحمة الله وبركاته 🙂 عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . طريقة العمل: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون وهذا هو الكود المعدل عن النسخة السابقة: Private Sub cmd_Decompile_Click() Dim MSAccPath As String Dim RegKey As String Dim WSHShell 'As Object Dim waitOnReturn As Boolean: waitOnReturn = True ' Get MSACCESS.exe directory from the Registry RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _ "CurrentVersion\App Paths\MSACCESS.EXE\Path" Set WSHShell = CreateObject("WScript.Shell") ' Get parent directory MSAccPath = WSHShell.RegRead(RegKey) ' Decompile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /decompile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' cmd compile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /cmd compile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' Clear shell var Set WSHShell = Nothing End Sub جعفر Decompile_2.zip

فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى الفيديو الصور بيان الموظفين.rar

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

فورم اكسل لاستدعاء ملفات pdf الفيديو الصور http://www.mediafire.com/file/6qk8jjv5jj2mlyg/pdf++فورم+استدعاء.rar

فورم اجبار بادخال احرف فقط او ارقام فقط ولا تزيد عن11 الفيديو الملف حمل الملف

تفضل fatoura2.xlsm

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

بعد اذن اخي علي الترتيب يتم في العامود الثاني مما يسبب مشاكل في بقية البيانات في الاعمدة المتبقية (مثلا تاريخ ميلاد محمد كان 1/3/2015 فاصبح 10/12/2009) لذلك اقترج هذا الكود 1- يتم الترتيب ابتداء من العامود 2 و حتى العامود 10 (حيث لا يتم المس بالترقيم الالي في العامود الاول) 2 - الترقيم اوتوماتيكي يرجى عدم الترقيم (تم وضع حماية له) 3- لا يتم الترتيب الا اذا كتمل الصف بـــــ 10 عناصر الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim rw%, x%, lr%: rw = 8 x = Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 10))) If Target.Row > rw And Target.Column <= 10 And x = 10 Then lr = Cells(Rows.Count, 1).End(3).Row Cells(rw, 2).Resize(lr, 9).Sort _ Key1:=Cells(rw, 2), _ Order1:=1, Header:=2 End If End Sub الملف مرفق Sort_data.xlsm

تفضل قائمة التلاميذ المعفيين السنة الثالثة2.xlsm

الحمد لله ::بالتوفيق::

أهلا @سلمان الشهراني في هذا التعديل أنشأت وظيفة تعيد بيانات الاستعلامين التي أشرت إليها في المرفق، وضمنتها ببطاقة التعريف بالشكل التالي Function CardDetails(ID As Long) On Error Resume Next Dim P1 As dao.Recordset, P4 As dao.Recordset Dim H As String Set P1 = CurrentDb.OpenRecordset("select * from qr_p1 where Apartment_No4=" & ID) Set P4 = CurrentDb.OpenRecordset("select * from qr_p4 where id=" & ID) H = H & "<p class='first'>" & P1!Name1 & "</p>" H = H & "<p><span>تاريخ الدخول</span>" & Format(P1!Date_Entry, "yyyy/mm/dd") & "</p>" H = H & "<p><span>المبلغ المدفوع</span>" & P1!Mdfo3 & "</p>" H = H & "<p><span>المبلغ المتبقي</span>" & P1!Residual & "</p>" H = H & "<p><span>مبالغ أخرى</span>" & P4!Total2 & "</p>" CardDetails = H End Function إليك المرفق: Dashboard2003.mdb

الظاهر ليس لديك صلاحية مسؤول على النظام

الف شكر ملف جديد حيفيد الجميع

الحمد لله ان تم المطلوب على خير

اتفضل اخى الحبيب استاذ خالد لعله يفى بالغرض معادلة لمعرف اول راتب مستلم واخر راتب.xlsx

لا شكر على واجب سهل الله عليك مبتغاك جزاك الله خيرا

الله يبارك فيكم استاذنا الفاضل كما عودتنا دائما الابدائع من احدى صفاتك

السلام عليكم ورحمة الله وبركاته أهلاً بكم أقدم لكم اليوم أحدث إصدار من برنامج حسابات البنوك هدية عام 2009 للجميع * ملحوظه : تم تحويل ملف الأكسيل الي إمتداد EXE أي أنه يظهر بشكل ملف تنفيذي * الآن نبدأ مع شرح للبرنامج عند التشغيل تظهر لنا الشاشة الرئيسية وبالطبع سنقوم بالضغط على الزر المخصص بفتح حساب بنكي جديد . وللمزيد من الخصوصيه فقد تم وضع كلمة مرور لتنفيذ هذه العمليه وهي ( 8520 ) في حال إدخال كلمة مرور خاطئه فلن تتمكن من فتح حساب جديد .. وهذه الميزه كي يتمكن أشخاص آخرون بالدخول للبرنامج في حال الرغبه في أن يقوموا فقط بالدخول للحسابات المنشأه سابقاً بواسطة المستخدم ستظهر لك رسالة تأكيد بإن كلمة المرور صحيحه ويمكنك المتابعه تظهر لك بعد ذلك شاشه .. أكتب فيها إسم الحساب وفق الشروط الظاهره بها . ثم إضغط على الزر المخصص لذلك ستظر رساله تأكيد بأسم الحساب المدخل بواسطتك لتأكيد المتابعه وبما أن هذه أول حركه محاسبيه على هذا الحساب فسيطلب منك البرنامج إدخال رصيد بداية المده ويمكن عمل ذلك عبر شاشه مخصصه لا تقلق إن لم تقم بإدخال رصيد الأفتتاح الآن .. يوجد زر يمكنك من عمل ذلك مستقبلاً وبعد إدخالك لرصيد أول المده ستظهر رسالة تأكيد بالبيانات المدخله وكذلك رساله تأكيد إستلام البيانات ولم ننسى رساله توضح لك رصيد الحساب الحالي وبهذا أصبح لديك حساب جديد مع كامل البيانات المدخله إضافة قيد جديد على الحساب .. ولاحظ إن كنت ستقوم بالأيداع أن تكتب صفر في السحب .. والعكس إذا إحتجت لتعديل أي بيان محاسبي سابق فيوجد زر للتعديل سيساعدك في إتمام ذلك بعد إنشاء العديد من الحسابات ستحتاج للتنقل بينها بسهوله . يوجد زر سوف يساعدك على ذلك في نهاية الشهر تريد بدأ شهر جديد مع ترحيل الرصيد الحالي للشهر الجديد .. أو تريد مسح جميع البيانات والأحتفاظ بإسم البنك فقط .. يوجد زر يساعدك على ذلك إذا إحتجت لحذف حساب من البرنامج بشكل كامل فيوجد زر لحذف الحسابات وأيضاً يعمل بنفس كلمة السر الخاصة بفتح حساب جديد وهي ( 8520 ) * إنتبه من حذف الصفحه المسماه ( Main ) فهي الصفحة الرئيسية للبرنامج * أرجوا أن ينال البرنامج إستحسانكم ولا تنسونا من صالح الدعاء * البرنامج في المرفقات * Bank_Ver_3.0.zip

سوف اجرب

نعم لدي واسمه بندا

لاتوجد اى بيانات بالجداول .. ولا يوجد مسمى المادة .. وانا بصراحة مش عارف املاها من دماغى

السبب في ذلك اني وضعت المعادلات في الشيت Sapace لغاية الصف 495 على 4 اعمدة (اي حوالي 2000 معاجلة ) و مثلهم في الصفحة النتيجة فيصبح عندنا 4000 معادلة على اكسل ان ينفذها مع كل كبسة على اي زر في الكيبورد فما بالك لو كان هناك 15000 صف (يكون الحاصل 120 الف معادلة ) مما يسبب ثقل كبير في الملف و بطء بالتنفيذ اليك مثال عما أعنيه (ملف 20.000 صف) اصبح حجمه 2.6 ميغا (هنا الحجم لا يهم بل الأهمية للوقت في تنفيذ المعادلات) لذلك انصح بعدم القيام بهذا العمل من خلال Excel بل من خلال برنامج مخصص لهذه الاشياء Access مثلا Company_Tel_New.xlsm

السلام عليكم الحل بسيط لكن الشرح في الملف غير مستوفي، لم أجد سعر الموردين للأصناف.... بن علية حاجي

للأسف لم استطع فتح قاعدة البيانات

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

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

لم توضح هذا فى طلبك عموما تفضل معادلة للبحث عن قيمة بأكثر من شرط-1.xlsx

بطبيعة الحال القرص C يحتاج صلاحيات Administrator للقراءة والكتابة عليه.

جزيل الشكر لك استاذ @محمد طاهر حسنين

مشاركة مع الاساتذه وواحشنا ابا عارف بلمساته هنا اشارك بكود لا يحتاج عمل ابديت او ريكويري Private Sub aq_Click() x = CurrentRecord Do While مقرر = Combo1 A2 = aq DoCmd.GoToRecord , , acNext Loop DoCmd.GoToRecord , , acGoTo, x End Sub تحياتي للجميع

وعليكم السلام تفضل Report.xlsm

السلام عليكم ,, ومشاركة مع استاذنا وحبيبنا شفان استبدل علامتي الاقتباس "" بـــ صفر لان نوع الحقل الذي ستجري عليه التحديث رقمي