محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته برجاء مراجعة المرفق report.rar تحياتي

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته عند نسخ بيانات من جدول ولصقها في جدول اخر في حال وجود خطأ يتم انشاء جدول Paste Errors ونجد فيه البيانات التي لم ينم نسخها اما عند تشغيل استعلام الحاق يقوم البرنامج بنقل البيانات من جدول الى جدول السؤال : كيف معرفة البيانات التي لم ينم الحاقها ايضاً هل يمكن معرفة عدد السجلات التي تم الحاقها وعدد السجلات التي لم يتم الحاقها دام لكم البشر والفرح تحياتي

الف مليون مبروك اخي الكريم زادك الله رفعةً وعلماً

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

تفضل امثلة اخرى لتفس المشكلة تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تجربة.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل هذا مثال لما تريد FifoStock.rar وبعد اذن ادارة المنتدى هذا رابط للشرح http://arabteam2000-forum.com/index.php?/topic/248965-حساب-الارصدة-بطريقة-الوارد-أولا-يخرج-أولا-fifo/#comment-1232088 تحياتي

الف مليون مبروك استاذنا الفاضل @ابا جودى

مليون مبروك استاذنا الفاضل

جزاك الله خيرا استاذنا الفاضل تحياتي

وعليكم السلام ورحمة الله وبركاته فعلا اخي الكريم اعتقدت انك تتحدث عن نسخة 2003 اليك هذا الرابط يتحدث عن 2007 او اعلى تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

جزاك الله خيرا استاذنا الفاضل تحياتي

استخدم الكود التالي في الاستعلام Item : [الصنف]&" "&[النوع]&" "&[المنشأ]&" "&[الجرام ]&" "&[المقاس] تحياتي

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

بارك الله فيك اخي الجبيب @رمهان وجزاك الله خيرا وصلت المعلومة دمت لاخيك تحياتي

اشكرك اخي الحبيب @رمهان وضحت الصورة تمام واظن انه لا يوجد حل اخر ولكن هل احعل القاعدة الخلفية accdb ام accde

جزاك الله خيرا اخي الحبيب @رمهان على سرعة الرد بالنسبة لقاعدة البيانات واحدة والا يوجد سيرفر فهل هناك حل بديل لكي يعمل البرنامج على اي اصدار ممكن اقتراح : يتم تقسيم البرنامج ويتم انشاء ملف accde على كلا الاصداريين كما تفضلت لكن هل يتم انشاء قاعدة البيانات الخلفية على اي اصدار ؟ اظن المشكلة ما زالت قائمة بالانتظار ... دمتم بالخيرات تحياتي

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته لدي مشكلة ربما تكون واجهت بعض الاخوة في المنتدى لدي برنامج اعمل عليه والمشكلة ان العميل لديه عدة اجهزة وكل جهاز يعمل على نسخة اوفيس 2010 زلكن يختلف الاصدار 32bit و 64bit عند تحويل قاعدة البيانات الى accde على جهاز مثبت عليه اوفيس 32bit لا يعمل على الجهاز المثبت عليه 64bit والعكس عند تحويل قاعدة البيانات الى accde على جهاز مثبت عليه اوفيس 64bit لا يعمل على الجهاز المثبت عليه 32bit جربت حلول مطروحة هنا بالمنتدى وايضاً حلول مطروحة في الانترنت في مواقع اجنبية ولكن للاسف جميع الحلول لم تنجخ والسر وراء ذلك في تحويل قاعدة البيانات الى accde اما اذا لم يتم التحويل فلا توجد مشكلة البرنامج يعمل على كلا الاصداريين تمام كما اود ان اشير الى ان دوال اكسيس المستخدمة في الاساس دوال عادية اقصد انها لا تحتاج الى تعديل مثل Declare PtrSafe Function ارجو من الاخوة الذين لديهم الخبرة ان يساعدونا في حل هذه المشكلة ولكم جزيل الشكر تحياتي

لا توجد مشكلة ان شاء الله استبدل الكود بالتالي [Text5]+1 مع استبدال Text5 الى اسم الحقل الحاص بك تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي مع تغيير Combobox حسب برنامجك Me.Combobox.Requery تحياتي

وعليكم السلام ورحمة الله وبركاته برجاء مراجعة المرفق Employees.rar تحياتي

السلام عليكم ورحمة الله وبركاته تفضل هذا كود كامل لغمل نسخة احتياطية من قاعدة البيانات في مجلد خاص Private Sub Command0_Click() If MsgBox("هل تريد انشاء نسخة احتياطية من البرنامج", _ vbQuestion + vbYesNo, _ "تاكيد الامر") = vbYes Then On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\Backup" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If OldFile = CurrentDb.name StrNew = CurrentProject.Path & "\Backup" DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) If [BKUP] = True Then NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End If End If تحياتي تفضل ايضا مثال مرفق Backup.rar

السلام عليكم ورحمة الله وبركاته ضع القيمة الافتراضية لحقل التاريخ zeara_date date() ولكتابة اسم اليوم تلقائياً في حقل day_name ضع الكود التالي في النموذج Private Sub Form_BeforeUpdate(Cancel As Integer) day_name.Value = WeekdayName(Weekday(zeara_date, 7), True, 7) End Sub تحياتي

ارجو من الله لك التوفيق