اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سعيد صواب

الخبراء
  • Posts

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

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

  • Days Won

    3

كل منشورات العضو سعيد صواب

  1. حياك الله اخي حسين ممكن توضح اكثر .. هل تقصد الــ caption أي النص الموجود تبع الإطار أم الإطار كامل وضح اكثر حتى نتساعد في الحل بالتوفيق
  2. حياك الله اخي الكريم اضف مرفق للتطبيق عليه لو تكرمت . بالتوفيق
  3. لا تظهر معي اي رسالة خطاء ... اللغة لدي العربية ... والموقع السعودية .. ولكن هناك احتمال وهذا لا أعلم ان كان سببا .. النظام لدي 32 بت ولديك 64 ... وانا في الحقيقة ليس لدي جهاز عليه نظام 64 بت حتى اقوم بالتجربة .. عل احد الأعضاء الكرام يساعدنا بالتجربة .. وفقنا الله واياكم ..
  4. حياك الله اخي الكريم في البداية وعند فتح القاعدة توقعت المشكلة في نوع البيانات .. لأنك تبحث عن رقم وتسختدم علامات تنصيص وهي مخصصة لنوع بيانات النصوص ولكن بعد ذلك ظهرت لي مشكلة اخرى وهي .. رسالة تفيد بقلة المعلمات .. فقررت استخدام كود آخر .. ضع هذا الكود بدلا عن ذاك وجرب .. Dim tTotal As String tTotal = Nz(DCount("sarey", "ggh", "sarey between forms!form3!text2 and forms!form3!text0"), 0) MsgBox (tTotal) بالتوفيق
  5. حياك الله هل بالإمكان ارفاق القاعدة او على الأقل الجزء الذي تواجه به المشكلة ..
  6. حياك الله هل جربت انشاء قاعدة جديدة بالإعدادات الحالية للويندوز ونقل محتويات القاعدة السابقة اليها .. هذا طبعا اذا فرضنا انك الآن وعند انشاء قاعدة جديدة لاتواجه مشاكل كما في السابق عند ادراج مربع نص عربي .. اتمنى لك التوفيق .
  7. حياك الله اتبع الخطوات التالية طبعا بالظغط في الزاوية اليسرى للنموذج اذهب الى خصائص النموذج ثم :: تنسيق ثم نمط الحدود واختر النمط الذي يناسبك .. بالتوفيق
  8. لم اشاهد انك ارفقت حل الأستاذ علي العتيبي الا الآن عموما اهم شئ انك وجدت الإجابة. شكر ا لك وبالتوفيق
  9. تفضل اخي الكريم في حدث بعد التحديث للحقل name تم وضع هذا الكود Me.d = Nz(DCount("name", "stu", "name=forms!ÌÏæá1!name"), 0) المرفق .. بالتوفيق oth.rar
  10. http://www.officena.net/ib/topic/66207-استخراج-الاسماء-المكررة/
  11. http://www.officena.net/ib/topic/60235-هدية-ربط-الصور-وملفات-pdf-بالنموذج،-وتشغيل-الماسح-الضوئي/
  12. حياك الله اخي الكريم .. اذا اخي الكريم الكلام كله يدل على ان المشكلة لا تتجاوز اللغة او الموقع الحالي ..
  13. حياك الله اخي الكريم نعم هناك طريقة .. لو فرضنا ان لديك مربع نص باسم A في نموذج form2 .. وتريده ان ياخذ قيمة مربع النص B من نموذج form1 تضع هذا السطر داخل مربع النص A: =form1.Form.B طبعا شرط ان يكون كلا النموذجين مفتوحين . بالتوفيق
  14. حياك الله اخي الكريم لم يعمل الكود في مرفقك مع اني جربته في مثال لدي قبل ان ارفقه .. فأستخدمت التنسيق الشرطي شاهد المرفق . ولو لك سؤال حاضرين لاحظ الشرط في التنسيق الشرطي : مبني في حالة لم يتحقق احد الشرطين .. بالتوفيق مثال.rar
  15. حياك الله اشرح المشكلة او قم بإضافة مرفق للتعديل عليه .. هل من رسالة خطاء او ما شابه .. بإنتظارك
  16. حياك الله اخي الكريم هل من الممكن ان تضيف الحل هنا او رابط الحل حتى استفيد ويستفيد من يأتي لزيارة هذا الموضوع لاحقا .. بالتوفيق
  17. حياك الله اخي الكريم اضغط على خانة تفصيل للتقرير او detail وفي حدث عند التنسيق ضع هذا الكود ولو كان الاسم بالعربي "تفصيل " قم بتغييره إلى detail او قم بإبدال كلمة detail ب تفصيل في الكود .. Dim ctl As Control For Each ctl In Me.detail.Controls If ctl.ControlType = acTextBox Then If (IsNull(ctl) Or ctl = "") Then ctl.BackColor = &HFFC0C0 'light blue Else If ctl.ControlType = acTextBox Then ctl.BackColor = vbWhite End If End If Next بالتوفيق ان شاء الله
  18. اخي الكريم ... انا شاهدت الأسماء التي تقصدها ولكن طريقة كتابتها تختلف الاسم الأول مثلا ... احمد لا يحتوي على همزة بينما 16 يحتوي على همزة فوق الألف .. كذلك المسافات ... وهكذا اتمنى وصلتك الفكرة ..
  19. حياك الله اخي الكريم اتبع التالي انشاء ... معالج الإستعلامات .. معالج استعلام البحث عن التكرار .. ثم اتبع التعليمات .... اختر جدول employees قم بإختيار حقل empName مع العلم انه لا يوجد اي تكرار في الجدول المضاف ... بالتوفيق
  20. حياك الله اخي الكريم من لوحة التحكم اذهب الى الإعدادات الإقليمية .. وغيرها اللغة الى العربية .... والموقع الحالي إلى موقعك .. مثلا : مصر او السعودية ... الخ . حاول تعمل نفس الإعدادات اللي كانت على جهازك قبل اعادة تثبيت نسخة الويندوز . بالتوفيق ان شاء الله .
  21. حياك الله اخي رضا الله هذا الكود للسجل الأخير On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acNext End If End With هذا الكود للسجل الأول On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = 0 Then MsgBox "هذا هو السجل الأول ", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acPrevious End If End With بالتوفيق ان شاء الله
  22. الق نظرة على المرفق في الحقيقة لم تفلح الطريقة مع النموذج المستمر .. لا اعلم ما السبب حولت النموذج الى مفرد ... فعملت بنجاح قمت بتغيير العلاقات بين الجدول كلينك وجدول المواعيد بالنسبة للنموذج الفرعي بإمكانك استخدام نفس الكود ولو لك سؤال فحاضر شاهد المرفق اظهار عدد المرضى في النموذج الرئيسي.rar
  23. حياك الله اخي الشامل كتبت رد وظهر لي خطاء ساقوم بتعديله .. ولي عوده ان شاء الله بالتوفيق ان شاء الله
  24. وعليكم السلام والرحمه ,, المرفق باللغة الفرنسية وكذلك العنوان .. لو توضح النقطتين هذي .. * تغيير عنوان الموضوع * الإشارة الى ان المرفق باللغة الفرنسية. وجزاك الله خير على ماقدمت .
  25. عليكم السلام ورحمة الله وبركاته ,, شاهد الفيديو هذا ممكن يفيدك .. https://www.youtube.com/watch?v=Mcwh6fDUXl8 ولو لك سؤال محدد اسأل واضف مرفق لتنفيذ طلبك ولكي يتجاوب معك اخوانك اعضاء المنتدى .. بالتوفيق
×
×
  • اضف...

Important Information