ابوخليل

هل السنوات الـ 20 ثابتة ام انها قد تتغير

اثراء المنتدى بعناوين جديدة افضل لاشك بارك الله فيك

ما خط بالاحمر عملك صحيح وهو المتبع وما خط بالازرق هو اجابتي السابقة

اخي الكريم رعاك الله يجب ان يقتصر المثال على الحاجة الفعلية التي تحتاجها فقط ثم بعد حصولك على الحل تنقلها لبرنامجك كذا الواحد ينشط معك لان المسألة محصورة وواضحة خاصة النماذج ، اما الجداول فلا بأس لارتباطها ببعض في مثالك الآن 19 نموذج والعمل سيكون على اثنين فقط فضلا ارفع مثالا جديدا يحتوي على المطلوب فقط وكما ذكرت لك بعد حصولك على الحل تنقلها لبرنامجك وبعد ذلك تبدأ بمثال جديد وسؤال جديد وفقنا الله واياك لكل خير

تمت التجربة بنجاح انظر الصورة المحملة والمشكلة السابقة في مشاركتي السابقة

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

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

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

ما فيه خطأ ولكن انظر الى الحدث الخاص بمربع التحرير ( بعد التحديث ) وهو عبارة عن ماكرو مضمن يعمل بحث وفلترة

ليس حذف mm بل الابقاء على mm مع yy وان اردت السنة كاملة مع الشهر : yyyymm وتحذف ما عداها .. كذا يتم الكتابة فوق النسخة الموجودة عند كل ضغطة زر حتى نهاية الشهر وفي بداية الشهر الجديد يتم وضع نسخة جديدة بجانب القديمة والسبب ؟؟ لان اسم القاعدة تغير ارجوا يكون الشرح واضح

انظر في الاعدادات الاقليمية في وندز لوحة التحكم / المنطقة واللغة واضبطها على العربية

مسألة اننا نحذف النسخة السابقة ونلصق النسخة الجديدة فهي فكرة للحد من تراكم النسخ ولكن ما النتيجة و ماالمخرج من المصيبة حين تأخذ نسخة من قاعدة بيانات معطوبة لتحل محل السابقة السليمة يوجد طريقتين لاخذ الاحتياط من الوقوع بهذا الخطأ الطريقة الاولى : ان تكون النسخة شهرية (اي يتم تسمية النسخة بالسنة والشهر فقط ) وخلال الشهر تتم العملية بالكتابة آليا فوق النسخة فإذا دخل الشهر الجديد يتم وضع نسخة جديدة بجانب نسخة الشهر السابق وهكذا .. نتحصل على 12 نسخة في السنة الواحدة الطريقة الثانية : وهي الافضل على الاطلاق ان يكون هناك عملية تسبق عملية النسخ داخل الاجراء نفسه ومهمتها تحسس مجلد النسخ يتم من خلالها حذف النسخ الزائدة ان وجدت والابقاء على آخر ثلاث نسخ جديدة وبالنسبة لطلبك اظهار التاريخ والوقت في اسم النسخة يمكنك استبدال الجزء الخاص بالنسخ بالكود في مشاركتي الاولى بهذا : Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _ DBNew & "\" & Format(Now(), "yymmddhhnn") & ".mdb" & """", 0 لاحظ انه يمكنك حذف ما تشاء من تنسيق التاريخ فإن حذفت nn سيتم اخذ نسخة بجانب الاولى بعد دقيقة وان حذفت hh ================= بعد ساعة وان حذفت dd ================= بعد يوم وهكذا ...............

اخي حسين كودك الذي عرضته بالمشاركة الاولى يحقق طلبك If Dir("C:\WINDOWS\MOVI.txt") = "" Then MsgBox "يعمل" Else MsgBox "لا تعمل" End If ايضا الكود الثاني والذي عرضه الاستاذ محمد If Len(Dir("C:\WINDOWS\MOVI.txt")) > 0 Then MsgBox "لا يعمل" Else MsgBox "اعمل" End If

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

تستطيع بالكود نفسه تحقيق الشرط الكود يقول : اذا كان الملف غير موجود إذا فيكون الجواب الاول = تشغيل ، وإلا = اغلاق اما ان كنت تريد من الكود عكس هذا فيمكن تعديله على هذا النحو If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then الكود يقول : اذا كان عدد حروف الملف اكبر من صفر ( يعني موجود) إذا فيكون الجواب الاول = اغلاق ، وإلا = تشغيل ما شاء الله اخوي حسين فكرة بديعة لم تخطر على البال من قبل

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

وجزاك ربي خيرا اخونا عزيز اقصد بالنسخة واللاحقة هي اسم قاعد الجداول ولاحقتها : Data.mdb والموجودة بهذه العبارة Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "Data.mdb" & """", 0

تفضل التعديل جعلنا رقم الفاتورة معيارا داخل مصدر بيانات التقرير CopyCopy.rar

السلام عليكم اسمحوا لي بالمشاركة معكم هذا الكود كامل بالمطلوب ويمكنكم تسمية النسخة واللاحقة بما تريدون يتم اخذ النسخة عند اغلاق النموذج / انظر المرفق Dim DBOld As String Dim DBNew As String Private Sub Form_Load() DBOld = CurrentProject.Path & "\Data.mdb" 'اختيار قاعدة بيانات الجداول DBNew = CurrentProject.Path & "\Backup" 'اختيار مكان حفظ النسخة End Sub Private Sub Form_Close() On Error Resume Next Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "Data.mdb" & """", 0 End Sub xxxx.rar

ارفق مثالا يشتمل على المشكلة لتمكن اخوتك من تشخيص السبب

الخطوة المطلوبة الصحيحة ان تكون في موضوع جديد

السلام عليكم اخوتك وجهوك الى الطريق الافضل والاسهل للتعلم فاذا اخذت بالاساليب الصحيحة لن تندم تفضل تم التعديل على المثال .. آمل ان يكون هو ما تقصده zaza26.rar

نسأل الله سبحانه وتعالى أن يغفر له و يرحمه .. ويرزق أهله و ذويه الصبر والاحتساب إنّا للّه و إنّا إليه راجعون

اسأل الله الكريم في هذه الساعة المباركة ان يكفيك ما اهمك ويوفقك لدروب الخير

انظر الخيارات الاقليمية في وندز : لوحة التحكم / المنطقة واللغة وانظر في اعداد وخصائص التاريخ