• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

kaser906

اعضاء
  • عدد المشاركات

    309
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 عادي

عن kaser906

  • الرتبة
    عضو فعال

معلومات الملف الشخصي

  • الجنس ذكر
  1. الله يعطيك الف عافية استاذي جعفر تم حل المشكلة بجعل الصورة داخل فورم فرعي واختفت مشكلة اﻻهتزاز
  2. بحثت طويلا ولم يفلح بحثي يحفظك ربي تروح وترجع بالسلامه
  3. نعم اخي جعفر النموذج به علامة تبويب مكونة من 8 صفحات والصورة موجودة داخل الصفحة الاولى من علامة التبويب بالاضافة انه توجد عناصر خارج علامة التبويب
  4. صحيح اخي جعفر طلع مسج لمره واحده فقط
  5. لا اخي جعفر لايوجد لدي   المشكلة البرنامج حجمه كبير صعب رفعه
  6. حياك الله اخي جعفر اوقفت syscmd ونفس الشي ما تغير الوضع
  7. السلام عليكم ورحمة الله وبركاته لدي نموذج وضعت به كائن لعرض صورة فل نقل الموظف ويتم تخزين مسار   الصورة التي على جهاز الكمبيوتر  في الجدول  التابع للنموذج وفي حدث عند الحالي وضعت هذا الكود Private Sub Form_Current() On Error GoTo HandleErr If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit SubHandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'" Else MsgBox Err.Description, vbExclamation End IfEnd Subلكن ظهرت مشكلة وهي عند التنقل بين السجلات او النقر على اي زر امر بالنموذج تبدأ عناصر النموذج بالاهتزات بشكل مزعج اوقفت الكود عن العمل فهدأ روع النموذج وعاد الى الاستقرار فتبين ان المشكلة سببها هو الكود اردت ارفاق الملف او النموذج هنا لكن النموذج يحتوي على عدة نماذج فرعية ومرتبط بجداول كثيرة فالحجم كبير اتمنى مراجعة الكود واصلاحه ان كان يوجد به خطأ او ايجاد حل  للمشكلة تحياتي
  8. لا اخوي جعفر اللي كنت اقصده ان طريقتك الاخيرة نتيجته ميه بالميه وجملة DoCmd.RunSQL "UPDATE اشتغلت كما يجب انا فقط اخترت سجلات فريدة نعم عندما حولته الى استعلام تحديث والان كل شي تمام ربي يعطيك العافية
  9. الف الف شكر اخوي الان النتيجة اصبحت كما اريد   فقط عند تحويل الاستعلام الى استعلام تحديث يتم تغير الخصائص سجلات فريدة  الى  نعم   عساك على القوة اخوي جعفر
  10. الله يعطيك الف عافية اخي جعفر مثالك السابق جدا ممتاز فقط سيلزمني بانشاء استعلام لكي يتم الفرز عليه  هذا ما لا اريده كما لاحظت اني استخدم  جملة DoCmd.RunSQL "UPDATEهذا المثال موافق للواقع تماما المطلوب عند العثور على السجلات المحدده تحديث حقل CasePatientNum في الجدول Emp الى رقم 2 فهل يمكن ذلك عن طريق جملة DoCmd.RunSQL "UPDATEاتعبتك معاي لكن هذا اليوم مبارك وحاب استقلك فيه على قدر ما استطيع   ههههههههههههه   تقبل تحياتي RpQr.rar
  11. المثال يحتوي على اكثر من جدول بحاول اني اضيف الجداول وفعلا اخوي انا استخدمه بطريقة الكود والكود موجود DoCmd.RunSQL "UPDATE Emp INNER JOIN tab_Estdafa ON Emp.PcDigit = tab_Estdafa.PcDigit SET Emp.CasePatientNum = 1 " & vbCrLf & _"WHERE (((tab_Estdafa.Date_Enter)<=UmFormat(UmDate(),""yyyy/mm/dd"")) AND ((tab_Estdafa.Date_Eixt)>UmFormat(UmDate(),""yyyy/mm/dd"")) AND ((Emp.CasePatientNum)>1) AND ((Emp.PermanentOrTemporary)=2));"لكن المشكلة ما قدرت اضيف عليه الشرط اللي خبرتك به واللي هو اكبر تاريخ بالسجلات
  12. ممتاز اخي جعفر وصلت لك الفكرة لكن المشكلة الان ان هذذا الاستعلام لايصلح لأن احوله الى استعلام تحديث لاني بمجرد ان حولته الى استعلام تحديث ازال جميع المعايير التي  وضعتها
  13. اشكرك اخي جعفر على مشاعرك أسأل الله سبحانه وتعالى أن يجعلني واياك أخوة ممن أكمل لهم دينهم وأتم عليهم نعمته ورضي لهم الاسلام دينا   اريد في الاستعلام اظهار اخر سجل حسب التاريخ في الجدول لكل الأسماء  بشرط ان يكون اقل من تاريخ اليوم حسب الدالة الموضوعه في الاستعلام   لو افترضنا ان  اسم احمد يوجد له سجلين   1 - يوجد به تاريخ 1435/12/01 2- يوجد به تاريخ  1435/12/02  هذا هو التاريخ الاكبر والذي يكون اصغر من تاريخ اليوم الذي يصادف 1435/12/19 وعبدالله نفس الشي 1 - يوجد به تاريخ 1435/12/01 2- يوجد به تاريخ 1435/12/02    هذا هو التاريخ الاكبر والذي يكون اصغر من تاريخ اليوم الذي يصادف 1435/12/19   اريد أن يظهر التاريخ  الاكبر من السجلين على شرط أن يكون التاريخ  اصغر من تاريخ اليوم الحالي اما الاسماء التي لايوجد لها الا سجل واحد فتظهر جميعها بنفس الشرط أن يكون التاريخ اصغر من تاريخ اليوم الحالي   لأتمنى اكون قدرت اوصل الفكرة بشكل سليم   تقبل شكري وتحياتي
  14. السلام عليكم بالمرفق استعلام المطلوب اظهار التاريخ الذي يكون اصغر من تاريخ اليوم لأخر سجل فقط  لكل رقم كود   http://www9.0zz0.com/2014/10/13/13/426076404.png                   RpQQr.rar
  15. الحمد لله على السﻻمه اخي جعفر وين هالغيبه بالنسبه لموضوع اﻻستعﻻم استغنيت عنه ﻻني حسيته معقد واجد الف شكر وتحيه لك والحمد لله على السﻻمه مره ثانية وﻻ تتعودها تغيب مثل هالغيبه الطويله اﻻ بعد ما تقدم على طلب اجازه من ادارة المنتدى ههههههه