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

السلام عليكم ورحمة الله وبركاته اهلا بحضرتكم جميعا النهاردة باذن الله هشرح طريقة جديدة .. للتأكد من ملء كافة الحقول قبل الانتقال الى سجل جديد مع الغاء زر الانتر والتاب من الانتقال بهم الى سجل جديد وده شرح فيديو لطريقة تنفيذ الطريقة 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

السلام عليكم ورحمة الله وبركاته تانية طريقة هنشرحها باذن الله هى طريقة .. شرح تصدير البيانات من الاكسس الى ملف ورد معد مسبقا عن طريق الاشارة المرجعية الفيديو https://youtu.be/VtPEat0Qkqo MS_Export data to Word file.rar

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

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

هناك سؤال قبل البدء بالعمل هل سعر الرحلات من الى والرحلات المعكوسة هي نفسها (يعني من جدة الى الرياض مثلاً 300 هل يجب ان تكون من الرياض الى جدة 300 ايصاً)

حسب فهمي انت عندك تاريخ الاستحقاق وترغب في اضافة عدد ايام واشهر وسنوات لتاريخ الاستحقاق مثلا لو كان التاريخ 1/1/2019 ونضيف عليه 5ايام و5 اشهر و1سنة عليه يكون التاريخ الجديد 6/6/2020 ممكن عملها عن طريق دالة DateAdd لحساب السنوات والاشهر والايام والنتيجة النهائية في تاريخ الاستحقاق New Microsoft Access قاعدة بيانات (2).accdb اخي احمد اعتقد ان النتيجة عندك غير صحيحة مثلا 05/06/2010 اضف عليها 28 يوم وسبعة اشهر وسنة تطلع النتيجة 33/13/2011

اخي تفضل هذه القاعدة بعد التعديل ارجو ان تكون المطلوبة قاعدة بيانات التلاميذ.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

و عليكم السلام و رحمة الله تفضل اخى الكريم اتمنى ان يكون هذا هو طلبك Bank Cheque.xlsx

1 - اجعل مصدر النموذج جدول TablEMP 2 - اجعل مصدر حقل الاسم EMP 3 - اجعل مصدر حقل الكود ID 4 - تحديد النوذج الفرعي FORM-EMP 5 - من ورقة الخصائص نقوم بربط النموذج الفرعي بالنموذج الرئيسي عن طريق حقل ID وهكذا في جميع النماذج الفرعية يتم الربط عن طريق حقل ID الموجود بالنموذج الرئيسي تحياتي

السلام عليكم ورحمه الله وبركاته اخوانى الافاضل فى بعض الاحيان نحتاج اضافه بيانات وعرض البيانات فالنموذج مع عدم السماح بالتعديل فالبيانات السابقه يمكن عمل ذلك فى حاله عرض البيانات فقط من خلال عرض النموذج فى وضع التصميم وتحديد الحقول بالكامل مره واحده ومن الخصائص نقوم بتحديد خاصيه تم تأمينه ونحدد لها نعم كما بالصوره ولاكن اذا اردنا عرض البيانات السابقه مع عدم التعديل عليها والسماح بالاضافه فالكود التالى يفى بالغرض باذن الله احاول ان اتعلم واشارككم مع اصل اليه من معلومات للتصحيح ولاستفاده والاستذاده من اساتذتى وجميع الاخوان فى منتدانا الغالى ومرفق مثال : نموذج tblNames ارجو ان اكون قد وفقت فى الشرح وايصال المعلومه وارجو من اساتذتنا التعقيب والاضافه ' كود لعدم السماح بتعديل البيانات السابقه والسماح بالاضافه فقط If Not Me.NewRecord Then Me.AllowEdits = False End If وجزاهم الله خيرا كل من وضع لنا معلومه وعلمنا وشاركنا وساعدنا واسال الله لهم ان يكتب لهم بكل حرف حسنه وان يرزقهم ويبارك لهم فى جميع ما يحبون وان يرزقهم الفردوس الاعلى تقبل الله منا ومنك صالح الاعمال تحياتى لكم طبتم واهتديتم test.accdb

في الـ Sheet2 يوجد كود في هذه الحالة يرصد اي تغيير في الـ Sheet2 فعندم تتغيير قيمة F3 or G3 يعمل الكود

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

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

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

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

لنحصل على شريط متحرك بالعبارة التى نريدها بدلاً عن إسم النموذج ، نقوم بما يلي : في بداية صفحة الفيجوال Option Compare Database Private strText As String في حدث عند التحميل ​Private Sub Form_Load() strText = "النص الذي نود أن يظهر في الشريط المتحرك ...... 2013" strText = Space(110) & strText PutButtons Me End Sub في حدث عند التوقيت للنموذج Private Sub Form_Timer() strText = Mid(strText, 2) & left(strText, 1) Me.Caption = strText End Sub وفي خصائص النموذج نحدد الفاصل الزمني في Timet Interval ليكون 150 أو 200 أو غيرها وكفى ......

لجلب قيمة لقاعدة البيانات الحالية من قاعدة بيانات خارجية ، من جدول محدد ومن حقل محدد على شرط القيمة الأعلى (مثلاً) أو غير ذلك من تصفية أو بحث أو غيره ، وذلك عن طريق جملة 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

عدم وجود معلومات في النموذج ... 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 بسيطة ؟ ..............

معايير التقرير (التاريخ) ...... report parameters غالبا ما نستخدم حصر نتائج التقرير بين تاريخين ، تاريخ بداية و تاريخ نهاية ، وكل له فيها طريقة ، اريد انشاء نموذج لتمرير التواريخ للتقرير ، التقارير عندي يومية واسبوعية وشهرية وسنوية (لنفس التقرير) ، اريد طريقة بحيث لا اضطر لكتابة التواريخ وإحتساب الفترات ، أو استخدام التقويم ؟!! بسيطة ... ننشيئ النموذج بمربعي نص الاول txtdatefrom لتاريخ البداية ، والثاني txtDateTo لتاريخ النهاية ، ثم ننشيئ أربعة أزرار أمر : الاول لضبط نطاق التاريخ للتقرير اليومي ، ونسميه cmdtoday ، ونضع خلفه الكود Private Sub cmdtoday_Click() Me!txtdatefrom = Date Me!txtDateTo = Date End Sub الثاني لضبط نطاق التاريخ الاسبوعي ، ونسميه cmdweek ، ونضع خلفه الكود Private Sub cmdweek_Click() Dim today today = Weekday(Date) Me!txtdatefrom = DateAdd("d", (today * -1) + 2, Date) Me!txtDateTo = DateAdd("d", 6 - today, Date) End Sub الثالث لضبط نطاق التاريخ الشهري ، ونسميه cmdmonth ، ونضع خلفه الكود Private Sub cmdmonth_Click() Me!txtdatefrom = CDate("01/" & Month(Date) & "/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom)) End Sub والرابع لضبط نطاق التاريخ السنوي ، ونسميه cmdyear ، ونضع خلفه الكود Private Sub cmdyear_Click() Me!txtdatefrom = CDate("01/01/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtdatefrom)) End Sub وأخيرا ننشيئ زر أمر للتأكد من ادخال البيانات الى الحقلين المعنيين ، ثم للطباعة أو الغاء الامر ، ونسميه cmdReport ، ونضع خلفه الكود Private Sub cmdReport_Click() On Error GoTo Err_cmdReport_Click Dim stDocName As String stDocName = "rptDateParameterReport" If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then MsgBox "Please ensure that a report date range is entered into the form", _ vbInformation, "Required Data..." Exit Sub Else DoCmd.OpenReport stDocName, acPreview End If Exit_cmdReport_Click: Exit Sub Err_cmdReport_Click: MsgBox Err.Description Resume Exit_cmdReport_Click End Sub وكفى ... وصحتين وعافية ... جرب ..........

بناء الجمل ومحددات الصيغ ......... The syntax & delimiters عند كتابة معايير لقيمة منطقية (صواب/خطأ)، أرقام، السلاسل، والتواريخ، يتطلب بناء الجملة محددات للسلاسل (الجمل) والتواريخ. ويكون بناء الجملة في حالاتها كما يلي : للقيم المنطقية والارقام لا نستخدم شيئا مميزا >> Boolean & numbers x = DLookUp("[MyField]", "MyTable", "[OtherField] = " & Me.txtTextbox سلاسل استخدام صيغ (أو "علامات الاقتباس المفردة"). >> Strings x = DLookUp("[MyField]", "MyTable", "[OtherField] = '" & Me.txtTextbox & "'" وللتاريخ تستخدم الصيغة الخاصة بها مع علامة المربع المشهورة. >> Dates x = DLookUp("[MyField]", "MyTable", "[OtherField] = #" & Me.txtTextbox & "#"

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

الأخ العزيز : محمد فكري لقد قمت بتصميم برنامج مرتبات وأجور يضم الأوراق التالية: 1- ورقة عمل لبيانات الموظفين الوظيفية 2- عدد ( 3 ) أوراق عمل لحركة متغيرات الموظفين ( الحضور - الغياب - الإجازات .... الخ ) 3- ورقة لاحتساب ضرائب الدخل يمكن تعديلها وفقاً لأحكام قانون الضرائب 4-ورقة لاحتساب التأمينات ( وفقاً لقانون الدولة ) يمكن الأخذ به أو إلغاءها 5- ورقة بسلف الموظفين الشهرية المسحوبة على ذمة الراتب 5- ورقة كشف المرتبات والأجور النهائية ( تفاصيل الراتب - الاستقطاعات - صافي الراتب ) 6- ورقة طلب تعزيز الراتب من الإدارة المالية / أو البنك جميع الأكواد والدوات المستخدمة في هذا الملف من أخوتي وأساتذتي الأفاضل في هذا المنتدى أرجو من الأساتذة الأفاضل والأخوة الأعزاء أن يطلعوا على الملف المرفق ،وأن يبدوا عليه ملاحظاتهم الكريمة والتي سوف تساهم في تحسين هذا البرنامج وشكراً ، أخوكم / marwanal2keme Salary.zip