ابوخليل

السلام عليكم لا يمكننا ادخال بيانات في خلية استعلام محسوبة وايضا في عملك هذا ومع اني لا اوافقك في جعل المجاميع في الجدول ، فإنك لن تستطيع ادخال نتيجة المجموع من الاستعلام الى الجدول الا بواسطة انظر النموذج في المثال لترى احدى طرق هذه الواسطة 112_2003.rar

اعتذر عن الخطأ غير المقصود ما ارفقته سابقا لا يمت للموضوع بصلة انظر المرفق الآن ’ ووافني برأيك نسخ من الغياب2.rar

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

المطلوب غير واضح يلزم زيادة الايضاح

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

نعم هذه هي الطريقة ان امكنك ذلك

اضغط الشفت مع الفتح

من قائمة البرامج افتح برنامج اكسس ثم من قائمة ملف / فتح سيخرج لك مربع حوار اختر قاعدة بياناتك ثم من الركن الاسفل الايمن اختر فتح خاص بعد فتح القاعدة اختر / ادوات / الامان / تغيير كلمة المرور

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

السلام عليكم اخي الكريم جميع قواعد البيانات القديمة يمكن فتحها من الاصدارات الجديدة والعكس غير صحيح اذا كنت تملك في جهازك الاصدار 2007 فيمكنك التحويل من والى اصدارات سابقة في الاصدار العربي : اضغط الايقونة في اعلى الركن الأيمن واختر حفظ باسم واحفظ على التنسيق الذي تريد في الاصدار 2003 يمكنك التحويل من وإلى من اشرطة الادوات اختر ادوات /ادوات مساعدة لقواعد البيانات/تحويل قاعدة بيانات ، ثم اختر التنسيق الذي تريد

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

السلام عليكم الآن يتم النسخ الى القرص C db2.rar

ضع ما لديك من صور في الامتداد التالي : C:\Program Files\Microsoft Office\MEDIA\CAGCAT10

تفضل اليك التعديل ما قبله2.rar

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

تم التعديل قم بنقل الوحدة النمطية والاستعلام الى برنامجك سجلات قوائم2.rar

الاخ الكريم برنامجك الاصدار 2007 لا املك في جهازي سوى اكسس الاصدار 2003 آمل ان تجد مساعدة قريبة من اخواننا

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

لا فرق بينهما

تفضل انظر العلاقات بين الجداول في الاستعلام Database2.rar

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

تم التعديل لا ادري لماذا وضعت رقم الاختبار في البداية مع ان الجميع في جدول واحد يفترض ان تبدأ برقم الهوية البرنامج التجريبي3.rar

لست مضطرا لتكرار الكود فقط تعديل بسيط على الكود السابق ملحوظة : من اجل التطبيق استبدلت القرص F بــ E ايضا سيتم نسخ القاعدة مباشرة بدون مجلدات Private Sub Backup_Click() Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB, CopyMyDB2, CopyMyDB3 OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = "c:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile2 = "d:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile3 = "e:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" CopyMyDB2 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """" CopyMyDB3 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """" Shell CopyMyDB, 0 Shell CopyMyDB2, 0 Shell CopyMyDB3, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح" End Sub dbdb.rar

هذه فائدة من اخينا حامل المسك برنامج تنفيذي لادراج التفقيط داخل الوورد http://www.officena.net/ib/index.php?showtopic=24818&view=findpost&p=116557&hl=%C7%E1%CA%DD%DE%ED%D8&fromsearch=1

تم التعديل يتم النسخ الى ثلاث مواقع بزر واحد Private Sub Backup_Click() Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = "c:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile2 = "d:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile3 = "f:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح" End Sub