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

اتفضل اتمنى يكون كما طلبت Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

السلام عليكم و آسف على التأخر أخي الغالي ... لقد عدلت على الاستعلام الأول في نموذجك انظر فيه إن كان مناسباً .. test 5001.mdb

السلام عليكم تفضل الملف معدلا متابعة الديون.xlsm11.xlsm

جرب هذا .... kan.accdb

السلام عليكم بما أني لا أتصل من الحاسب في هذه اللحظة سأعطيك الخطوات و يمكن أن تطبقها : ١- ابنِ استعلاماً ٢- أنشئ حقلاً محسوباً اكتب فيه : IIF ( DAY([]) > 23 ;month([]) + 1 ; month([])) ضع بين القوسين المنكسرين اسم حقل التاريخ كما هو في الاستعلام أو اسمه في الجدول ٣- اجعل الاستعلام مصدراً للتقرير ٤ - اجعل في معيار الحقل المحسوب الذي أنشأته في الخطوات السابقة هذه المعادلة FORMS![your_form]![your_field] استبدل الأسماء بين الأقواس المنكسرة باسم النموذج و حقل المعيار على الترتيب . إن أصبت فمن الله و إن أخطأت فمن نفسي .

السلام عليكم اضع بين ايديكم هذا العمل المتواضع لاستخراج كشف حساب عميل تفصيلي ويكفيني منكم جزاكم الله خيرا كشف حساب عميل 2018.rar

برنامج_مخازن_جديد.xlsm

بالتوفيق اخي النهر العطشان

اتفضل هذا حسب طلبك Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation, "تبيه" DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox (" تم نقل " & intI - 1 & " سجل "), vbInformation, "تبيه" MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation, "تبيه" End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: ' MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

دا حل المثال الأول خد كوبى وبست وبعد ما تكتبه دوس Ctrl+shift+enter الثلاثة مع بعض ولو الناتج طلع صفر برضه اقف على الخلية اللى فيها الدالة وروح لل formula bar واقف على المعادلة بالسهم ودوس تانى الثلاثة مع بعض .. ولو طلعلك رسالة خطأ خاصة بال merge الغى ال merge وهات المعادلة فى formula bar ودوس الثلاثة مع بعض تانى ولما يظهر الناتج رجع ال merge للخلايا تانى =SUM(IF((C2:C1700="إيطاليا")*(D2:D1700="منخفضة")*(F2:F1700<500),1,0)*H2:H1700) ولو عاوز دالة or دوس + بدل * لأن ال* بتاعة and ما عدا * اللى قبل العمودH خليها زى ما هى بس اللى بيشرحلكم ازاى ميقلش الحاجات دى وهو بيشرح او يديكوا مثال عليها

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

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

اخي ارفق مثال يوجد في المنتدى نفس مشكلتك وتم حلهافي هذا الموضوع

بالتوفيق اخي ابو زاهر

عندي تقريبا 30 جدول 50 استعلام تقارير 20 تقرير تقريبا فورمات تقريبا 20 و عدد السجلات 1000 موظف

في خصائص ( فورمات ) للمربع نص اكتب هذا YYYY/MMM

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

الاستاذ الكريم kanory تمام .بارك الله فيك وجوزيت خيرا

جرب هذا الملف Opartion.xlsm

شكرا جزيلا استاذ Emad Sabry هذا هو المطلوب تماما بارك الله فيك وزادك علما ورزقك صالح الأعمال

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

لا اظن ذلك .... تلف القاعدة ليس بهذه السهولة لكن حتى اذا بيتلف القاعدة ليس هناك مشكلة لان قبل ذلك راح يعمل لك نسخة احتياطية

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

السلام عليكم أخي العزيز تفضل الملف به ماطلبت متابعة الديون.xlsm

معرفش ايه الغلط عندك .. الشيت عندك فيه الاجابات مظبوطة

و عليكم السلام و رحمة الله و بركات IIF (ISNULL([LASTNAME])' إذا كان الحقل فارغاً فطبق مايلي ; IIF ( isnull([FIRSTNAME])...' إذا كان هذا الحقل فارغاً فقيمة الحقل ستكون ; [company] ' و إلا فقيمة الحقل ; [firstname]) ' و في حال لم يكن حقل lastname فارغاً فطبق الجملة الثانية و بنفس الطريقة آمل أن تجد هذا مفيداً

Database25.accdb

اتفضل اليك هذا Private Sub Command0_Click() Dim NameTblimport As String Dim txtpathfile As String NameTblimport = "Table" ' اسم الجدول المراد استيراده txtpathfile = Application.CurrentProject.Path & "\b.mdb" ' مسار قاعدة البيانات التي بها الجدول DoCmd.DeleteObject acTable, NameTblimport DoCmd.TransferDatabase acImport, "Microsoft Access", txtpathfile, acTable, NameTblimport, NameTblimport, False End Sub DeleteAndImportTableFromAccess

جرب هذا .... kan.accdb

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

وعليكم السلام استاذى الكريم فى هذه الحالة يمكنك استخدام هذا الملف للترحيل من ملف Main الى ملف Archive ترحيل الى ملف مغلق.rar

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

تعليمات من موقع : http://www.5eprat.net/كيفية-تحويل-ملف-أكسيس-accde-إلى-ملف-تنفيذى طريقة تحويل ملف قاعدة بيانات الأكسيس ( Microsoft access ) الى ملف تنفيذى : 1- أولا قم بفتح الملف المراد تحويله لملف تنفيذى ، ثم إذهب إلى أدوات قاعدة البيانات ( Data Base tools ) وإضغط على ( Make accde ) ، وإذا كنت من مستخدمى اوفيس 2010 ، ستجد زر ( Make accde ) فى القائمة الرئيسية للبرنامج داخل صفحة حفظ بالإسم . 2- ثانيا : عند الإنتهاء من قاعدة البيانات ، يجب عليك حفظها حتى تقوم بتحويل لملف accde ، قم بحفظها فى الفولدر المطلوب . 3- ثالثا : بعد حفظ قاعدة البيانات ، سيتطلب تنزيل برنامج خاص بالتحويل الى صيغة exe ، وهو برنامج inno setup من اللينك التالى : www.jrsoftware.org 4- رابعا : قم بتنزيل البرنامج وتسطيبه كاملا وحسب الإعدادات الموصى بها فى الفيديو المرفق . 5- خامسا : قم بفتح البرنامج وإختار ( الآن انقر على إنشاء ملف نصي جديد باستخدام المعالج النصي.) أو ( Create a new script file using script wizard. ) من الصفحة التى تظهر أمامك ، ثم حدد معلومات الناشر ، ونسخة البرنامج والتى يتم تحديدها ب ( 1.0 ) وموقع الناشر أو قاعدة البيانات ، ثم إضغط التالى . 6-سادسا : إضافة ملفات التطبيق: الآن سوف تكون هناك حاجة لتحديد الملفات التطبيق، ولكن في حالتنا ليس لدينا أي حاجة لذلك ، دعونا نختار الخيار 2 وانقر “إضافة ملفات”. 7- سابعا : تحديد موقع الملف ACCDE . 8 – ثامنا : إستكمال المعالج ( wizard ) ، وبعد إعطاء المعلومات اللازمة ، أنهى العملية . 9 – تاسعا : – فحص الملف التنفيذي : يجب بعد إنشاء الملف التنفيذى معاينته وتسطيبه وحفظ مسار التسطيب لديه . 10 – عاشرا : التحقق من نتيجة التثبيت : بعد انتهاء التثبيت، يصبح بإستطاعتنا تصفح مجلد التثبيت لدينا، وهناك يمكننا أن نرى ملف ACCDE .

اخي العزيز اذا ما يظهر تحزيم قاعدة بيانات تستطيع ان تتبع هذه الخطوات وهذه مقطع فيديو شرح من قبل عبدالعاطي حمدان

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

اخي الكريم انت ارفقت الصور ولم ترفق البرنامج

تفضل اخي الكريم

السلام عليكم أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر Dim r As Integer... والله أعلم وهذه رموز لأنواع أخرى من المتغيرات: Integer % Long & Currency @ Single ! Double # String $

الغاء تفعيل القص والنسخ والصق والصق الخص من قائمة كلك يمين بالموس ومن الاختصارات بلوحة المفاتيح DisableCopyPasteCut.zip منقول من صفحة اجنبية

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

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

السلام عليكم بعد اذن اخي عبد الله قمت بمحاولة لا ادري مدى صحتها تقوم بفتح الملف ( نتائج وشهادات سادس ) و هناك زر يقوم بنقل الناجح الى شيت مسمى Archive حفظ.rar

بناء على البحث لم أجد إلا هذا الرابط https://forums.windowssecrets.com/showthread.php/141256-MS-Access-2010-Sub-report-totals-in-main-form و خلاصته It's impossible !!

شوف هذا Microsoft Access قاعدة بيانات جديد (1).accdb