ابوخليل

اخواني الكرام ، السلام عليكم عندما يكون جهاز الحاسب خاص ببرنامج محدد فاننا نعمل على جعل البرنامج يفتح مع الاقلاع مثلا برنامج حضور بواسطة قارىء البطاقة سنجعل نموذج البداية يفتح على كامل الشاشة وسيكون المؤشر مرتكز على حقل التسجيل المشكلة : ان التركيز احيانا وفي بعض الاجهزة يكون خارج الفورم (على شريط المهام) مما يضطر معه الى النقر على الحقل بواسطة الفأرة السؤال : انا استخدم في نهاية حدث عند تحميل الفورم العبارة التالية : SendKeys "{BS}", False Me.id.SetFocus من اجل نقل التركيز الى الفورم ثم الى حقل id ولكن اكسس لا يقبل السطر الأول فهل من حل أو بديل ؟ db1.rar

اسهل الحلول هو ان تنتقل لترقيم اكسس يمكنك ارفاق مثال بسيط

ترقيم اكسس التلقائي فعلا يعمل ذلك ، بحيث لا يعيد اي رقم تم استخدامه يبدوا انك تستخدم ترقيم تلقائي مصنوع

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

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

على كل حال انا غير مقتنع بطريقتك ومع هذا خذ الحل حسب رغبتك المرفقات تشتمل على ثلاث قواعد فك الضغط على D مثلا الرئيسية A والمرتبطة B والقاعدة البعيدة التي سنجلب منها الجداول هي C B.rar

If Me![txtbox] = "1" Then Me.txtbox.BackColor = (IIf(Me.txtbox.BackColor = vbRed, vbWhite, vbRed)) ElseIf Me![txtbox] = "2" Then Me.txtbox.BackColor = (IIf(Me.txtbox.BackColor = vbBlue, vbWhite, vbBlue)) Else Me.txtbox.ForeColor = RGB(0, 0, 0) Me.txtbox.BackColor = RGB(255, 255, 255) End If

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

Dim i As Boolean ' اعلنا عنها كقيمة منطقية i On Error Resume Next 'لتجاهل الخطأ عند عدم وجود القيمة ' البحث عن الرقم المعرف في الجدول بشرط رقم الصنف في الجدول يساوي رقم الصنف الذي كتبناه في النموذج i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'") If i = False Then 'اذا غير موجود Exit Sub ' أخرج من الحدث Else 'وإلا hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0)'الحقل= تاريخ آخر بيع hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0)'الحقل= تاريخ آخر شراء End If

ابحث عن مثل هذا الزر في الاصدار عندك قد يكون غير مفعل

تفضل تاريخ اخر حركه3.rar

لم اطلع على مثالك لاني اعمل على اصدار 2003 ولكن انظر هنا فقد تجد فائدة علما ان مشروعك اتصور انه اسهل من الموجود في الرابط لانك توزع صنف واحد

هذا ما قلته لك الكود يعمل فقط في القاعدة غير المنقسمة

=DMax("Atarih";"AfwtIar";"Nwaha=11") =DMax("Atarih";"AfwtIar";"Nwaha=13") تاريخ اخر حركه2.rar

في المثال المرفق يتم التطبيق على القاعدة والجداول الحالية اذا تعمل على قاعدة منقسمة فيجب تغيير CurrentDb الى مسار قاعدة الجداول

CLng للتحويل الى قيمة رقمية ‘ واعتقد ان المثال يمكن ان يعمل بدونها ، ولكني وضعتها من اجل هذا السطر في الحدة النمطية : i=DMin("monthx", "qryScnd", " nID =" & uid) وهو التغيير الجديد ويرجع بأصغر قيمة من عمود الشهر حسب الموظف كان الوضع السابق انه يعتبر الشهور كأرقام تبدأ من 1 وتنتهي بـــ 12 الآن يأخذ الارقام الموجودة ابتداء بالاصغر ويستمر الى مالا نهاية i = DMin("monthx", "qryScnd", " nID =" & uid) ii = mnthID For z = i To ii فـــ i تمثل الشهر الاصغر و ii تمثل آخر شهر و z تمثل الشهر الذي تتم معالجته

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

وعليكم السلام المعالجة هي في تغيير قيمة الشهر في الجدول ، وجعله ( yyyymm) ستة خانات فيصبح شهر 1 هكذا 201801 باستخدام الدالة : format([txtDate];"yyyymm")

هل هذ التعديل ممكن على ملفات mde ?

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

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

الم تلاحظ ,, شيئا ؟ انا عرضت عليك الحلول المتاحة ، اذا كان احدها هو ما تبحث عنه ، ولم تجبني ويفترض لو فكرتك تختلف على الاقل تبينها هذه اشكالية بحد ذاتها ندور حولها من عدة ايام

لم تختر شيئا ؟ لاحظت ان الجداول ضمن قاعدة البيانات اي ليست منقسمة ؟ هل صحيح ؟

اخي الربط الحاصل هو فعلا تغيير الجداول بل هو تغيير قاعدة البيانات كاملا ولكن مكانها اختلف عن القاعدة القديمة وحتى لو فتحت البرنامج لن يرتبط بالقديمة اذا في برنامجك كود يعيد القديمه قم بتعطيله اما : اذا تريد تغيير القديمة بالجديدة فيلزم اكثر من عملية وستكون كالتالي : 1- فك الارتباط بالقديمة 2- جلب القاعدة الهدف ولصقها مكان القديمة (وهذا خطير ) 3- اعادة الربط او انك تعمل برنامج مساعد بحيث ينسخ ويلصق بشرط برنامجك مقفل شيء آخر ايضا : اذا تريد حذف الجداول في القديمة وجلب جداول من النسخة البعيدة فهو ممكن ايضا ولكن هذا العمل غير احترافي وخطير اختر من هذه الحلول

تفضل عدلت على النسخ بحيث يكون بشكل يومي اي يحدث النسخة طيلة اليوم وفي الغد يضع بجانبها نسخة جديدة الآن يمكنك استيراد النسخة (كما هي التسمية في البرنامج ) من مجلد النسخ بدلا من القاعدة الاساسية بمعنى ان الاستيراد هو ارتباط بقاعدة اخرى ملحوظة : يمكنك جعل العملية اكثر تطورا ,, بحيث تجعل خيار الربط عند فتح البرنامج Backup.rar