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

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

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

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

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

حياك الله 🙂 واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في 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

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

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

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

جرب zaCaptureWebCam2008.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 أو غيرها وكفى ......

منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl 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 بسيطة ؟ ..............

معايير التقرير (التاريخ) ...... 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