نجوم المشاركات
Popular Content
Showing content with the highest reputation on 11/21/19 in all areas
-
3 points
-
اخي @qathi تفضل DatabaseRestartV1.2.accdb DatabaseRestartV1.2.mdb المصدر : http://blog.nkadesign.com/2008/05/06/ms-access-restarting-the-database-programmatically/3 points
-
3 points
-
السلام عليكم أعتقد أن المشكلة تكمن في خاصية "التوافق بين نسخ الأوفيس" وخاصة في "أوفيس 2007" فتجد أنه لا يتوافق كثيرا مع النسخ الأخرى للأوفيس وخاصة في VBA... بن علية حاجي3 points
-
وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود 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 تحياتي3 points
-
3 points
-
2 points
-
2 points
-
2 points
-
2 points
-
اخي جمال 🙂 هذا المنتدى هو لمد يد العون للمبرمج الذي عنده مشكله في الاكسس ، وليس مكان لطلب برنامج !! الاخوة هنا اعطوك اقتراحات ببعض البرامج التي قاموا بعملها ، فياريت تأخذ البرامج وتجربها فهي مجهود لا يُحسد عليه ، وبعدها تسأل اساله فنية لما تريده من تعديل/اضافات كمبرمج 🙂 اما اذا اردت برنامج حسب مواصفاتك ، فرجاء عمل موضوع لطلبك في القسم المخصص في المنتدى إعلانات شخصية للاعضاء فقط فى مجال الموقع 🙂 جعفر2 points
-
تفضل اخي الكريم N.accdb تحياتي2 points
-
2 points
-
السلام عليكم ,,, تفضل أخي الكريم وأرجو أن أكون قد أفدت بالمطلوب ... التاشيرات.xlsx2 points
-
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 اسم الشركة فيD32 points
-
2 points
-
تم عمل المطلوب وجود الخلايا الفارغة في الجدول يسبب هذه المشكلة ttt_new.xlsm2 points
-
يجب ان تكون الجداول (من إلى ) مكتملة كي تظهر كل النتائج نموذج بسيط عما تريد ان تعرفه Prices.xlsx2 points
-
أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون شكر ( أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) أنت وكل أساتذتنا الكرام ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل طالب له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم شموع كثيرة تحترق ...لتنير دروب الآخرين عطاء وآمالا ... وتضحيات شتى تنثر ..من أجل الوصول للأسمى ...ومعكم حققنا ولمسنا مع العلم كل معاني الجود والكرم و الجمال أسعدكم الله فى الدارين ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وغفر الله لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله واحسن الله اليكم اسال الله تعالى ان ييسر لكم دروب الجنان كيفما شققتم ظلمة جهلنا بنور علمكم من غير كلل أو ثقم ولا ملل احبكم فى الله2 points
-
جرب المرفق التقرير بامكانك تنسيق وفقا لما تريد مع رجاء التقيد بنظام الموقع سؤال واحد لكل موضوع لا نرغب مخالف قوانين الموقع Database1.mdb2 points
-
2 points
-
السلام عليكم اليك المثال فالنموذج اختر فرع 1 من الكمبوبوكس سيفتح التقرير قد ساعدنى به الاستاذ مارد وهو استاذ @Elsayed Bn Gemy ان شاء الله تستفيد منه تمنياتى لكل بالتوفيق تقرير اجماليات.rar2 points
-
2 points
-
1 point
-
تم معاجة الامر عليك اكمال الجدول في الصفحة الاولى بالاسعار المناسبة من الى تستطيع عدم ذكر العكس مثلا من جدة الى الرياض دون كتابة من الرياض الى جدة (المعادلات تعمل حتى الصف رقم 100) Prices_new.xlsx1 point
-
جزاك الله خيرا استاذ محمد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم1 point
-
شكرا جزيلا اخوي محمد 🙂 جعفر1 point
-
اخي الفاضل احمد نحن جميعا نتعلم من بعض ونخطئ ونصيب وكل يوم نكتسب خبرات جديد تحياتي لك اخي العزيز1 point
-
جزاك الله خيرا استاذى العزيز خالد ع التنبيه فعلا كما نبهتنى حاولت فى الاول باستعمال DateAdd قمت باستخراج كل حقل على حده ولكنى فشلت فتجميعهم ولكنى تعلمت من طريقتك ما جهلته فجزاك الله خيرا وبرضه قمت باستخدام DateAdd باستخراج كل حقل لوحده مع اضافه القيمه المقابله له بالجدول وباستخدام Mid قمت بجمعهم فى اخر حقل بارك الله فيك استاذى العزيز ومنكم نتعلم وننتبه لم نخطىء فيه لنصل للحل والحلول الجميله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق دمتم بخير طبتم واهتديتم N_up1.accdb1 point
-
هناك سؤال قبل البدء بالعمل هل سعر الرحلات من الى والرحلات المعكوسة هي نفسها (يعني من جدة الى الرياض مثلاً 300 هل يجب ان تكون من الرياض الى جدة 300 ايصاً)1 point
-
حسب فهمي انت عندك تاريخ الاستحقاق وترغب في اضافة عدد ايام واشهر وسنوات لتاريخ الاستحقاق مثلا لو كان التاريخ 1/1/2019 ونضيف عليه 5ايام و5 اشهر و1سنة عليه يكون التاريخ الجديد 6/6/2020 ممكن عملها عن طريق دالة DateAdd لحساب السنوات والاشهر والايام والنتيجة النهائية في تاريخ الاستحقاق New Microsoft Access قاعدة بيانات (2).accdb اخي احمد اعتقد ان النتيجة عندك غير صحيحة مثلا 05/06/2010 اضف عليها 28 يوم وسبعة اشهر وسنة تطلع النتيجة 33/13/20111 point
-
1 point
-
وأنا كذلك أحبك في الله.. وأعتذر لكوني لم أشارك في هذا الموضوع مبكرا.1 point
-
وعليكم السلام ورحمة الله زبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات (2).accdb تحياتي1 point
-
السلام عليكم 🙂 اي وقت اشوف رسالة OLE Server ، الحل هو لغة unicode الكمبيوتر جعفر1 point
-
1 point
-
1 - اجعل مصدر النموذج جدول TablEMP 2 - اجعل مصدر حقل الاسم EMP 3 - اجعل مصدر حقل الكود ID 4 - تحديد النوذج الفرعي FORM-EMP 5 - من ورقة الخصائص نقوم بربط النموذج الفرعي بالنموذج الرئيسي عن طريق حقل ID وهكذا في جميع النماذج الفرعية يتم الربط عن طريق حقل ID الموجود بالنموذج الرئيسي تحياتي1 point
-
السلام عليكم ,,, الرجاء مراجعه الملف وارجو ان تجد به ما طلبت اخي الكريم ... Time.xlsx1 point
-
السلام عليكم ورحمه الله وبركاته اخوانى الافاضل فى بعض الاحيان نحتاج اضافه بيانات وعرض البيانات فالنموذج مع عدم السماح بالتعديل فالبيانات السابقه يمكن عمل ذلك فى حاله عرض البيانات فقط من خلال عرض النموذج فى وضع التصميم وتحديد الحقول بالكامل مره واحده ومن الخصائص نقوم بتحديد خاصيه تم تأمينه ونحدد لها نعم كما بالصوره ولاكن اذا اردنا عرض البيانات السابقه مع عدم التعديل عليها والسماح بالاضافه فالكود التالى يفى بالغرض باذن الله احاول ان اتعلم واشارككم مع اصل اليه من معلومات للتصحيح ولاستفاده والاستذاده من اساتذتى وجميع الاخوان فى منتدانا الغالى ومرفق مثال : نموذج tblNames ارجو ان اكون قد وفقت فى الشرح وايصال المعلومه وارجو من اساتذتنا التعقيب والاضافه ' كود لعدم السماح بتعديل البيانات السابقه والسماح بالاضافه فقط If Not Me.NewRecord Then Me.AllowEdits = False End If وجزاهم الله خيرا كل من وضع لنا معلومه وعلمنا وشاركنا وساعدنا واسال الله لهم ان يكتب لهم بكل حرف حسنه وان يرزقهم ويبارك لهم فى جميع ما يحبون وان يرزقهم الفردوس الاعلى تقبل الله منا ومنك صالح الاعمال تحياتى لكم طبتم واهتديتم test.accdb1 point
-
حياك الله 🙂 واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في 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.zip1 point
-
في الـ Sheet2 يوجد كود في هذه الحالة يرصد اي تغيير في الـ Sheet2 فعندم تتغيير قيمة F3 or G3 يعمل الكود1 point
-
انظر هذه طريقة سريعة على الماشي .... والصبر جميل ....... المدارس.accdb1 point
-
1 point
-
اخى الكريم مصطفى هذا يتم عمله فالتقارير صمم جداولك لتخزين البيانات بطريقه سليمه ثم بعد ذلك تصمم التقرير بالشكل اللذى تريده توكل على الله وابداء فى تصميم قاعده بياناتك ولما تقف فى شىء اسئل وجميع اخوانك واساتذتنا الكرام لايبخلون علينا بالمساعده حين نقف عاجزين عن حل ما نريد وجزاهم الله عنا خيرا الجزاء واليك بعض الشروحات اللتى تساعدك وجزاها الله خيرا ام عهود ومن قام بتجهيز هذه الشروحات وعندى مثال سابحث لك عنه لتستفيد منه ان شاء الله تمنياتى لك وللجميع بالتوفيق Lessons اهم الدروس.rar1 point
-
من النموذج الرئيسي تم استدعاء نموذج منبثق لإظهار معلومات معينة عند إغلاق النموذج المنبثق (الثاني) أريد أن أعود بالتركيز لحقل معين في النموذج الرئيسي .. !! بسيطة ... في حدث عند الإغلاق للنموذج المنبثق (الثاني) نضع الكود التالي : Private Sub Form_Close() [Forms]![MainForm]![TaxBox].SetFocus End Sub1 point
-
لنحصل على شريط متحرك بالعبارة التى نريدها بدلاً عن إسم النموذج ، نقوم بما يلي : في بداية صفحة الفيجوال 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 أو غيرها وكفى ......1 point
-
منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : 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 ...........1 point
-
معايير التقرير (التاريخ) ...... 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 وكفى ... وصحتين وعافية ... جرب ..........1 point
-
بناء الجمل ومحددات الصيغ ......... 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 & "#"1 point
-
الأخ العزيز : محمد فكري لقد قمت بتصميم برنامج مرتبات وأجور يضم الأوراق التالية: 1- ورقة عمل لبيانات الموظفين الوظيفية 2- عدد ( 3 ) أوراق عمل لحركة متغيرات الموظفين ( الحضور - الغياب - الإجازات .... الخ ) 3- ورقة لاحتساب ضرائب الدخل يمكن تعديلها وفقاً لأحكام قانون الضرائب 4-ورقة لاحتساب التأمينات ( وفقاً لقانون الدولة ) يمكن الأخذ به أو إلغاءها 5- ورقة بسلف الموظفين الشهرية المسحوبة على ذمة الراتب 5- ورقة كشف المرتبات والأجور النهائية ( تفاصيل الراتب - الاستقطاعات - صافي الراتب ) 6- ورقة طلب تعزيز الراتب من الإدارة المالية / أو البنك جميع الأكواد والدوات المستخدمة في هذا الملف من أخوتي وأساتذتي الأفاضل في هذا المنتدى أرجو من الأساتذة الأفاضل والأخوة الأعزاء أن يطلعوا على الملف المرفق ،وأن يبدوا عليه ملاحظاتهم الكريمة والتي سوف تساهم في تحسين هذا البرنامج وشكراً ، أخوكم / marwanal2keme Salary.zip1 point