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

السلام عليكم ورحمة الله وبركاته اهلا بحضرتكم جميعا النهاردة باذن الله هشرح طريقة جديدة .. للتأكد من ملء كافة الحقول قبل الانتقال الى سجل جديد مع الغاء زر الانتر والتاب من الانتقال بهم الى سجل جديد وده شرح فيديو لطريقة تنفيذ الطريقة MS_Be sure to fill in all fields.rar

اخي @qathi تفضل DatabaseRestartV1.2.accdb DatabaseRestartV1.2.mdb المصدر : http://blog.nkadesign.com/2008/05/06/ms-access-restarting-the-database-programmatically/

مساء الخير تمت المعالجة حركات معدل1.xlsm

السلام عليكم أعتقد أن المشكلة تكمن في خاصية "التوافق بين نسخ الأوفيس" وخاصة في "أوفيس 2007" فتجد أنه لا يتوافق كثيرا مع النسخ الأخرى للأوفيس وخاصة في VBA... بن علية حاجي

وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود Public Function AutoCompact() ' ضغط واصلاح If FileLen(CurrentDb.Name) > 30000000 Then ' اذا كان حجم الملف 30 ميجا تقريبا Application.SetOption "Auto compact", True ' سيقوم البرنامج بعمل ضغط واصلاح تلقائي عند اغلاق البرنامج Application.SetOption "Show Status Bar", True vStatusBar = SysCmd(acSysCmdSetStatus, "يحتاج التطبيق لإعادة تشغيل") Else Application.SetOption "Auto compact", False 'والا فلا تقم بعمل ضغط واصلاح Application.SetOption "Show Status Bar", False End If End Function وفي النموذج الرئيسي استدعيه هكدا Call AutoCompact تحياتي

السلام عليكم جرب المرفق طبعا الطباعه على الفورم Form_Sale_Pur.xlsm

تفضل اخي الكريم UP-Test(2).accdb تحياتي

جميل جدا اخي محمد

تفضل Test(2).accdb

تابع الخطوات التالية في الصورة المتحركة : اطلع على الإصدار الجديد

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

تفضل اخي الكريم N.accdb تحياتي

يوجد خيار في اكسس 2016 ضغط عند الاغلاق قم بتفعيله شاهد الصورة المرفقة

السلام عليكم ,,, تفضل أخي الكريم وأرجو أن أكون قد أفدت بالمطلوب ... التاشيرات.xlsx

Sub test() Dim a As Variant, lr, i, x, s, k, itm Dim bch As Worksheet Set bch = Sheets("Bank Cheque") lr = bch.Cells(Rows.Count, "a").End(xlUp).Row - 1 a = Application.Index(bch.Cells(2, 2).Resize(lr, 21).Value, Application.Evaluate("row(1:" & lr & ")"), Array(1, 2, 6, 7, 8, 13, 16, 20)) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If bch.Cells(i + 1, 4) = Sheets("Sheet4").Range("d3") And bch.Cells(i, 4) <> "" Then If Not .exists(Cells(i + 1, 4)) Then .Add bch.Cells(i + 1, 4), a(i, 1) & Chr(162) & a(i, 2) & Chr(162) & a(i, 3) & Chr(162) & a(i, 4) & Chr(162) & a(i, 5) & Chr(162) & a(i, 6) & Chr(162) & a(i, 7) & Chr(162) & a(i, 8) Else .Item(bch.Cells(i + 1, 4)) = .Item(Cells(i + 1, 4)) & Chr(162) & a(i, 1) & Chr(162) & a(i, 2) & Chr(162) & a(i, 3) & Chr(162) & a(i, 4) & Chr(162) & a(i, 5) & Chr(162) & a(i, 6) & Chr(162) & a(i, 7) & Chr(162) & a(i, 8) End If End If Next k = .keys itm = .items Ct = .Count With Sheets("Sheet4") Range("a8:f10000").ClearContents For i = 1 To Ct x = Split(itm(i - 1), Chr(162)) .Range("a" & 8 + i - 1).Resize(, UBound(x) + 1) = x Next End With End With End Sub اسم الشركة فيD3

بعد اذن الاستاذMohamed_Fouad واثراء للموضوع جرب المرفق Bank Cheque.xlsm

تم عمل المطلوب وجود الخلايا الفارغة في الجدول يسبب هذه المشكلة ttt_new.xlsm

يجب ان تكون الجداول (من إلى ) مكتملة كي تظهر كل النتائج نموذج بسيط عما تريد ان تعرفه Prices.xlsx

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

جرب المرفق التقرير بامكانك تنسيق وفقا لما تريد مع رجاء التقيد بنظام الموقع سؤال واحد لكل موضوع لا نرغب مخالف قوانين الموقع Database1.mdb

جرب المرفق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم Database2.rar

السلام عليكم اليك المثال فالنموذج اختر فرع 1 من الكمبوبوكس سيفتح التقرير قد ساعدنى به الاستاذ مارد وهو استاذ @Elsayed Bn Gemy ان شاء الله تستفيد منه تمنياتى لكل بالتوفيق تقرير اجماليات.rar

اخي هذه القاعدة بعد التعديل ارجو ان تكون حسب طلبك Students.accdb

تم معاجة الامر عليك اكمال الجدول في الصفحة الاولى بالاسعار المناسبة من الى تستطيع عدم ذكر العكس مثلا من جدة الى الرياض دون كتابة من الرياض الى جدة (المعادلات تعمل حتى الصف رقم 100) Prices_new.xlsx

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

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

شكرا جزيلا اخوي محمد 🙂 جعفر

اخي الفاضل احمد نحن جميعا نتعلم من بعض ونخطئ ونصيب وكل يوم نكتسب خبرات جديد تحياتي لك اخي العزيز

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

جزاك الله خيرا استاذى العزيز خالد ع التنبيه فعلا كما نبهتنى حاولت فى الاول باستعمال DateAdd قمت باستخراج كل حقل على حده ولكنى فشلت فتجميعهم ولكنى تعلمت من طريقتك ما جهلته فجزاك الله خيرا وبرضه قمت باستخدام DateAdd باستخراج كل حقل لوحده مع اضافه القيمه المقابله له بالجدول وباستخدام Mid قمت بجمعهم فى اخر حقل بارك الله فيك استاذى العزيز ومنكم نتعلم وننتبه لم نخطىء فيه لنصل للحل والحلول الجميله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق دمتم بخير طبتم واهتديتم N_up1.accdb

السلام عليكم بعد اذن اخى محمد اخى الفاضل اعتذر لتغيير الحقول الى الانجليزى والمسميات كما هى بالعربى فالحقول بالعربى تلخبطنى وانا بكتب الدوال تم تقسيم حقل التاريخ كما فعل اخى ابو محمد ثم جمع الحقول المقسمه مع حقول الايام والشهور والسنه بالجدول ليصبح التاريخ بعد التغيير en: [ZD]+[ZDay] & "/" & [ZM]+[ZMonth] & "/" & [Zy]+[Zyear] تقبلوا تحياتى وتمنياتى بالتوفيق طبتم واهتديتم N_up.accdb

اي وقت اشوف رسالة OLE Server ، الحل هو لغة unicode الكمبيوتر جعفر

وعليكم السلام ورحمة الله زبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات (2).accdb تحياتي

تفضل بعد اذن استاذنا الكبير سليم-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A10,'Exchange Rate'!$A$2:$B$1000,2,0),"") Employee Expense Report new1.XLSX

وبعد اذن جميع الأساتذة وزيادة فى اثراء الموضوع-تفضل Bank Cheque.xlsm

السلام عليكم 🙂 اي وقت اشوف رسالة OLE Server ، الحل هو لغة unicode الكمبيوتر جعفر

السلام عليكم 🙂 هذا ناتج عن خطأ من مايكروسوفت في احد تحديثاتها الاخيرة ، والحل هنا : جعفر

السلام عليكم ,,, الرجاء مراجعه الملف وارجو ان تجد به ما طلبت اخي الكريم ... Time.xlsx

حياك الله 🙂 واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في tag الحقل ، هكذا : . والكود يصبح (طبعا الكلمات بالعربي للتوضيح فقط ، ويمكنك حذفها من الكود) : Private Sub cmd_Hide_Show_Click() Dim x() As String 'اعمل هذه القيمة في مصفوفة : اخفاء,اظهار 'والفارزة بين الكلمات عبارة عن فاصلة x = Split(Me.cmd_Hide_Show.Tag, ",") 'x(0) = اول قيمة في المصفوفة ، وهي اخفاء 'x(1) = ثاني قيمة في المصفوفة ، وهي اظهار If Me.cmd_Hide_Show.Caption = x(0) Then Call Hide Me.cmd_Hide_Show.Caption = x(1) Else Call Show Me.cmd_Hide_Show.Caption = x(0) End If End Sub جعفر 1144.1.hide_show.accdb.zip

تفضل لك ما طلبت-طبعا بعد اذن استاذ ابو ايسل الاجازة.xlsx

انظر هذه طريقة سريعة على الماشي .... والصبر جميل ....... المدارس.accdb

حياك الله أخي جمال العمامي تشرفنا بك وبمشاركتك الأولى في المنتدى فأهلا وسهلاً بك بين أحبابك وأصحابك هناك الكثير من البرامج في المنتدى قم بالبحث عنها اطلع على برنامج الخليل المحاسبي - الإصدار الثاني لعله يفيدك وبالتوفيق

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

جرب zaCaptureWebCam2008.rar

من النموذج الرئيسي تم استدعاء نموذج منبثق لإظهار معلومات معينة عند إغلاق النموذج المنبثق (الثاني) أريد أن أعود بالتركيز لحقل معين في النموذج الرئيسي .. !! بسيطة ... في حدث عند الإغلاق للنموذج المنبثق (الثاني) نضع الكود التالي : Private Sub Form_Close() [Forms]![MainForm]![TaxBox].SetFocus End Sub

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

لجلب قيمة لقاعدة البيانات الحالية من قاعدة بيانات خارجية ، من جدول محدد ومن حقل محدد على شرط القيمة الأعلى (مثلاً) أو غير ذلك من تصفية أو بحث أو غيره ، وذلك عن طريق جملة SQL ، فالأمر يتعلق بفتح القاعدة الخارجية و إجراء اللازم ثم مغادرتها بعد الحصول على النتائج المرجوة. المسار : E:\NA_LinkDetach2003.mdb الجدول: Symbols_Companies_markets الحقل: NoID اسم مربع النص في النموذج : vMaxField1 بالتالي يصبح الكود كما يلي: Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT Max([Symbols_Companies_markets].[NoID]) AS [MaxOffield1]" _ & "FROM [Symbols_Companies_markets] IN 'E:\NA_LinkDetach2003.mdb';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) vMaxField1 = rs!MaxOfField1 rs.Close Set rs = Nothing

عند التعامل مع الجداول المرتبطة يفضل عند تشغيل التطبيق إجراء الربط ، وعند إنهاء التطبيق إلغاء الإرتباط بحذف الجداول المرتبطة ، ولإجراء هذا الأخير نستخدم الوحدة النمطية التالية : Public Function DetachAllTables() Dim db As Database Dim tdf As Object Set db = CurrentDb() For Each tdf In db.TableDefs If tdf.Attributes = dbAttachedTable Then DoCmd.DeleteObject acTable, tdf.Name End If Next tdf db.TableDefs.Refresh Set db = Nothing End Function كلمات مفتاحية : وحدة نمطية ، حذف الجداول المرتبطة والله من وراء القصد ........... .......................

عدم وجود معلومات في النموذج ... No records to support form display في نموذج البحث وعند محاولة عرض نتائج البحث في نموذج ثاني منفصل ، وعند عدم وجود نتائج للبحث يظهر النموذج فارغا أو تظهر رسالة خطأ. أريد رسالة تنبيه بعدم وجود معلومات في النموذج كنتائج بحث ، كما في التقارير !!! الحل في الكود التالي ، وينسخ في حدث عند الفتح للنموذج الثاني (إظهار نتائج البحث) ، حيث يتم تنبيه المستخدم برسالة ، ثم يعود لنموذج البحث ويفرغ حقل نص البحث . Private Sub Form_Open(Cancel As Integer) On Error Resume Next If Me.RecordsetClone.RecordCount = 0 Then MsgBox "No records to support form display", vbExclamation, "System Message" DoCmd.CancelEvent Forms!frmSearchD!txtSearchText.SetFocus Forms!frmSearchD!txtSearchText = "" Exit Sub End If End Sub بسيطة ؟ ..............

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