Bluemind

اخوي ممكن ترفق المثال باملف zip ممكن نساعدك

اخوي الداله تقوم بعد ايام العمل او مده مشروع معين بغض النظر عن اي يوم هو الاجازه يعني ناتج هذه الداله هو رقم

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

اخوي ولو انه مو مفهوم الطلب بس جرب Fields(CMD) = 0 مكان !CMD =0

اخوي هارد ديسك او فلاش ماموري او ملف مشاركه على الشبكه

اخوي تحتاج الى تقسيم قاعده البيانات بحيث تكون الجداول في السيرفر و النماذج والاستعلامات وباقي قاعده البيانات تكون على كل جهاز يستخدم القاعده لعمل تجزئه قاعده البيانات من قائمه TOOLS V DATABASE UTILITIES V DATABASE SPLITTER

اخوي شوف الاستعلام Missing Numbers receipt.zip

اخوي اذا امكن ارفاق الملف على شكل zip وليس rar

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

اخوي جدول واحد مع انك لم تشرح الغرض ولا أليه عمل

بعد اذن الاخوان الافاضل اختي جربي الحل التالي من الوحدات النمطيه او module اختاري جديد ثم من قائمه ادوات او Tools اختاري Reference ثم بعد ذلك سوف تظهر لك مربع فيه قائمه ابحثي عن جمله او خيار يبدا بكلمه missing ازيلي علامه الصح عنه وعن اي مربع يبدا بهذه الكلمه

اخوي ابو ريان هذا كيد لوجودعلاقات على العموم جرب ال sql التالي INSERT INTO table2 IN 'D:\folder1\folder2\flder3\Yourdatabase2.mdb' SELECT * FROM table1; حيث table2 هو الجدول المصدر اليه البيانات Yourdatabase2 هي قاعده البايانات المصدر لها table1 هو الجدول المصدرمنه

اخوي ابو ريان ياليت تضع الملف export error في ملف zip عندي مشكله في rar لسى ماشفت الملف ولا الخطا

هذا عمل الكود وهذا مافيه مشكله مادام الجدولين متشابهه ضع اسماء الجداول متشابهه لكي لا يظهر الفرق وبعدين لاحظت انك ماستخدمت الكود الاولFunction ؟؟!!

اخوي ابو ريان افضل طريقه هو اختيار قاعده البيانات ذالك من خلال الاستعراض في المودل او الوحدات النمطيه ضع الكود التالي Function GetOpenFile(Optional varDirectory As Variant, _ Optional varTitleForDialog As Variant) As Variant Dim strFilter As String Dim lngFlags As Long Dim varFileName As Variant lngFlags = ahtOFN_FILEMUSTEXIST Or _ ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR If IsMissing(varDirectory) Then varDirectory = "" End If If IsMissing(varTitleForDialog) Then varTitleForDialog = "" End If strFilter = ahtAddFilterItem(strFilter, _ "Access (*.mdb)", "*.MDB;*.MDA") varFileName = ahtCommonFileOpenSave( _ OpenFile:=True, _ InitialDir:=varDirectory, _ Filter:=strFilter, _ Flags:=lngFlags, _ DialogTitle:=varTitleForDialog) If Not IsNull(varFileName) Then varFileName = TrimNull(varFileName) End If GetOpenFile = varFileName End Function ثم في زر امر على نموذج في قاعده البيانات المراد نقل البيانات منهاضع الكود التالي DoCmd.TransferDatabase acExport, "Microsoft Access", GetOpenFile, cTable, "Yourtable", "Yourtable2" حيث ان Yourtable1 هو الجدول المراد نقل البيانات منه Yourtable2 هو الجدول المنقول له

اخوي ابو ريان اعمل استعلام في القاعده المراد نقل البيانات لها و قم باظهار جمله sql ثم اكتب الجمله التاليه: INSERT INTO yourtble1 SELECT * FROM [D:\folder1\folder2\Desktop\yourdatabase.mdb].yourtable2 AS tB; حيث yourtable1 هو الجدول المراد نقل البيانات له yourdatabase هي قاعده البيانات المراد نقل البيانات منها yourtable2 هو الجدول المراد نقل البيانات منه و لا تنسى كتابه مسار قاعد البيانات بشكل صحيح D:\folder1\folder2\Desktop\yourdatabase.mdb

اخوي احذف السطر الاخير من الكود

اخوي عدل الكود الموجود في زر الحذف الى التالي: Me![ImagePath] = "" Me.ImageFrame.Picture = "" Me.ImageFrame.Visible = False

اخوي الحجم المسموح به هو 1.95 ميجا مثل ماهو موجود يسار زر استعراض التحميل او قم بتحميل الملف على موقع تحميل ورفع الملفات وضع الرابط هنا

اختي طلبك غير واضح البرنامج هو كما ذكر الاخ اسامه بارك الله فيه انتي لم توضحي طلبك هل المقصود كيف يتم اضافه سجل جديد تلقائيا بعد تعبئه سجل جديد بالمعلومات اذا نعم اكسس يقوم بذلك تلقائيا اذا من خلال التالي من خصائص النموذج اذهبي الى بيانات او Data كما هو موضح في الصوره المرفقه ثم من حقل "السماح بالاضافه" او allow addition يوجد نعم او لا Yes or No لو اخترتي نعم سوف يقوم النموذج باضافه سجل جديد فارغ تلقائيا بمجرد تعبئه السجل الاخير لو اخترتي لا سوف يلتغي عمله ولن تستطيعي الاضافه من خلال النموذج او وضحي المطلوب بشكل مفصل

تفضل اخوي شوف المعادله في كل خليه تحت الخلايا الخضراء Copy_of__oacute_sFnF__ordf_Tn8.zip

تفضل اخوي بمجرد تعبئه حقل رقم الجلوس في المعلومات الاساسيه, سوف يظهر في نموذج الدرجات مباشره وكذالك بمجرد تعبئه الرقم القومي, سوف يظهر مباشره في نموذج اخرى اخي الكريم استخدم النموذج Student Data لتعبئة البيانات وليس الجدول مباشرة في حالة اضافه طالب جديد اضغط زر جديد ______________.zip

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

اخوي الخطأ في الكود في ddd لابد ان تكون اربعdddd اخوي من خصائص الحقل روح على Format او تنسيق واكتب التالي dddd dd/mm/yyyy

الاخت الفاضله حسب فهمي للسؤال انك تريدين اضافه الحقول للنموذج اتبعي الخطوات في الصور في الخطوه رقم 9 عند التحديد باستخدام مفتاح شيفت قومي بسحب والافلات على النموذج او ارفقي الملف على شكل ملف zip رجاء 1a.zip