karkoor

أخي الكريم أرجو أن يكون كلامي واضحاً لذلك أرجو منك تجربة الآتي مسح بعض السجلات من جدول Montada تشغيل استعلام Displaydd و به ترى جميع السجلات ( التي حذفتها في الخطوة السابقة ) لأنها موجوده في جدول aa و غير موجوده في جدول Montada و لذلك يمكن لإستعلام الإلحاق أن …

أرجو أن يكون هذا المطلوب _______________________.zip

أرجو أن يفيدك هذا الرابط تعقب Ip Address

أنت تستخدم نسخه قديمه من الأكسيس لذلك أرجو منك تحويل الفاصلة المنقوطه ; إلى فاصله عاديه , =IIf([Diff]<0,0,[Diff])

أخي الكريم ... إستعلام الإلحاق لا يمسح البيانات أبدأً فقط يضيفها ... أثناء تجاربي على الملف مسحت البيانات ... يمكنك الاعتماد على ملفك القديم الذي أرفقته في هذا الموضوع لاسترجاع البيانات عند الإضافة فقط يضيف سجلات جديدة للبيانات الموجودة بالاستعلام و هي معدل ال…

تجنباً لتحميل سيرفر المنتدى أرجو منك وضع هذا الحل البسيط بنفسك ... أرجو وضع الآتي في خاصية Control Source لمربع Diff في النموذج =IIf([Diff]<0;0;[Diff])

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

إن شاء الله يكون هذا تمام Function Work(SumDto, SumMto As Byte, SumYto As Integer) As String Dim dd, mm As Byte Dim yy As Integer If SumDto > 30 Then SumMto = SumMto + (SumDto \ 30) SumDto = SumDto Mod 30 End If If SumMto > 12 Then SumYto = SumYto + (SumMto \ …

أخي الكريم حسب ما فهمت ... أن قاعدة البيانات التي تحتوي على استعلام الحذف موجودة في مكان آخر مختلف عن مكان قاعدة البيانات التي بها زر الحذف ... إذا كان فهمي صحيح فهذا الكود ممكن أن يحل المشكلة ... بعد ضبط استعلام الحذف على المعايير المطلوبة Private Sub أمر0_Cl…

على راحتك أخوي ... المهم إن المشكله تنحل ... ;)

أنا عندي 2007 أرجو إرفاق قاعدة بياناتك لمعرفة المشكلة

السلام عليكم أرجو تبديل الكود الموجود بالوحدة النمطية Module 2 بالآتي : Function Work(SumDto, SumMto As Byte, SumYto As Integer) As String Dim dd, mm As Byte Dim yy As Integer If SumDto > 30 Then SumDto = SumDto Mod 30 SumMto = SumMto + 1 End If Do While SumMt…

احتمال انت تحتاج Replication Database Replication

أعتقد أن هذا البرنامج ممكن يلبي طلبك تفعيل و منع الشفت و غيره

احتمال تقدر تسويها هذي بالنموذج ... ضع جملة الاستعلام ك (سترنج ) أو قيمة نصية ... و غير ما بداخلها باستخدام الأمر Replace أعتقد إنها ممكن تصير . Private Sub TxtTop_AfterUpdate() Dim qdef As QueryDef, i As Byte, j As Byte _ , SQL As String Set qdef = CurrentDb.…

تفضل أخوي أنا حاولت أحل مشكلة ال DatePicker في 2007 :) Sep.zip

حسب اعتقادي لتحويل التواريخ إلى ميلادي تحويل التواريخ إلى هجري

فكرة جميلة أخي يوسف .... الله يعطيك العافية :thumb_up:

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

أشكرك أخي الكريم محمد فؤاد تركي على الرد ما أقصده بجوانب الصعوبة في الكريستال ريبورت هو 1- عدم دقة عملية الإزاحة لمجموعة من ال Controls في وقت واحد ( الإزاحة تتم و لكنها غير دقيقة ) .... جربت الكثير من المحاولات أهمها تقليل حجم ال Grid Point إلى أقصى درجة ... …