د.كاف يار

تفضل التعديل Test_It.zip

كلها تؤدي الى نتيجة واحدة تقوم بإغلاق و انهاء قاعدة البيانات لكن الثانية تستفيد منها اكثر اذا كانت قاعدة البيانات مفصولة عن الواجهات

افتح موضوع جديد و ارفق فيه مثال لما تريد

جرب هذا التعديل emp.accdb

ماهو أمر الإغلاق الذي تستخدمه ؟؟ لإنهاء قاعدة البيانات بالكامل استخدم التالي DoCmd.Quit او استخدم الكود التالي Dim DB As Object dbPath = CurrentProject.FullName Set DB = GetObject(dbPath) DB.Application.Quit

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

Google Drive حتما يوجد طريقة لكني لا اعلمها لكن يفضل بأن يكون لديك حساب في احد السيرفرات الخارجية و تحويل قاعدة البيانات الى sql server و ربطها مع الأكسس و هذه ايسر الطرق و اسهلها و اسرعها و اكثر أماناً

تفضل هذا شرح لبعض الأمور المهمة كلمة DISTINCT تضاف بالطريقة التالية SELECT DISTINCT Company FROM Orders سيتم عرض اسماء الشركات مره واحدة بدون تكرار و ان كانت متكررة في الجدول ================================================= عبارة Order By تستخدم لترتیب الناتج في الأستعلام حسب حقل محدد مثال نريد عرض اسماء الطلاب حسب الترتيب الأبجدي ثم حسب درجة كل طالب من الأعلى SELECT student's_name, The_Result FROM student's ORDER BY student's_name, The_Result ⚠️ ماذا لو اردنا عكس الترتیب كیف يتم ذلك ؟؟؟؟ فقط نقوم بإضافة ASC في نهاية جملة الاستعلام SELECT student's_name, The_Result FROM student's ORDER BY student's_name, The_Result ASC انصحك سوف تجد كتب كثيرة عن لغة SQL فهي بحر من المعرفة لا ينتهي

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

اجعل المتغيير عام Public و استدعيه عند فتح التقرير تفضل التعديل Test_It.rar

تفضل هذا المثال List.zip

ارفق برنامجك لكي يتم مساعدتك

تفضل التعديل emp.accdb

تفضل التعديل ترقيم.mdb

احسنت شكرا لك

افضل توظيف للفكرة ! تحويل مربع العطل الى مربع نص ---- هذا اولا في حدث عند التغيير في فئة العطل و في آخر حدث يتم تحويل مربع العطل من مربع نص الى مربع تحرير و سرد ---- هذا ثانياَ و في حدث عند التغيير في مربع العطل يتم تحويل من مربع التحرير و السرد الى مربع نص --- هذا اخيرا بهذه الطريقة لن تكون مضطر لوضع مربع تحرير و سرد فوق مربع نص

اتفضل التعديل سبب المشكلة الحدث بعد التحديث يجب ايقافه DATA14-1.mdb

حاول تصور اي مشكلة تواجهك

الموضع باختصار الرجال كان يحتاج ان النموذج يكبر ياخذ اقصى حد في الحجم لكن واجه مشكلة انه اذا المستخدم ضغط ضغط مزدوج على رأس النموذج يقوم يتغيير الحجم و يصغر و كذلك شريط ابدء يختف في حال تم الغاء حدود النموذج لكن افضل حل تبقى حدود النموذج كماهي و نلغي عنصر التكبير و التصغير و بالشفرة Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With نثبت مقاس النموذج بأقصى مقاس في كل اتجاه النتيجة ثبات النموذج ظهور شريط ابدء ظهور عنوان النموذج في شريط النموذج

تفضل هذا المثال MsgboxForWin.mdb

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

ارفق مثال لكي يتم التعديل عليه

لا زلت تحاول و الموضوع انتهى شف هذا حله بأنك تاخذ اطراف النموذج Form و تجعلها صفر 0 يعني تثبت المقاس على اقصى طول و عرض و ارتفاع في جميع الاتجاهات

تفضل الموضوع يخصك

طريقة غير صحة بما انك تريد الشرط على البيانات الحالية في النموذج اذا يجب ان تستخدم حلقة تكرارية في كل مرة تقوم بأخذ المؤشر الى اول سجل و ثم الانتقال للتالي الى ان تصل لأخر سجل تفضل هذا الكود لعمل اللازم ضعه في حدث عند التغيير Dim x x = iPage Dim i, i2 As Integer DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Recordset.RecordCount - 1 If iPage = x Then i2 = i2 + 1 If i2 > 1 Then If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdUndo DoCmd.SetWarnings True Exit Sub End If End If End If DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus