• الإعلانات

    • فيصل الحربي

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

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

الفيلسوف111

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

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

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

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

6 عادي

عن الفيلسوف111

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0

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

  • الجنس ذكر
  • الدولة : مملكة البحرين

أحدث الزائرين لملفلك الشخصي

3,747 زياره للملف الشخصي
  1. دمج المراسلات من الاكسس الى الوورد

    اشكرك على التجاوب وبارك الله فيك وعسى ان يكون ذلك في ميزان حسناتك واقدر لك هذا الجهد فقد تم التوصل الى النتيجة المطلوبة بمساعدتك    الآن اختبر بعض الاكواد وكنت من قبل طرحت مشاركة في موقع اجنبي وقد توصلت الى نتيجة مرضية  سيتم دمج الاكواد التي تفضلت بها مع الكود ادناه ... وبشكل نظري اعتبر تم التوصل ما هو مطلوب     http://www.msofficeforums.com/word-vba/21840-copies-pages-document.html#post67497 Sub Demo3()Dim rng As Range, i As LongDim Shp As shapeDim iShp As InlineShapeDim StrFnd As String, StrRep As StringStrFnd = "NAME": StrRep = "Johnson"With ActiveDocument.Range Set rng = .GoTo(What:=wdGoToPage, Name:=1) Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page") With rng .Copy For i = 1 To 10 .InsertAfter vbCr & Chr(12) .Collapse wdCollapseEnd .Paste Next End With Set rng = .GoTo(What:=wdGoToPage, Name:=5) Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page") Call Update(rng, StrFnd, StrRep) For Each Shp In rng.ShapeRange If Shp.TextFrame.HasText = True Then Call Update(Shp.TextFrame.TextRange, StrFnd, StrRep) End If NextWith rng.Find For Each iShp In rng.InlineShapes If iShp.TextEffect.Text = "NAME" Then iShp.TextEffect.Text = "Johnson" End If NextEnd WithEnd WithEnd Sub Sub Update(rng As Range, StrFnd As String, StrRep As String) With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = StrFnd .Replacement.Text = StrRep .Format = False .Forward = True .Wrap = wdFindStop .MatchCase = True .MatchWholeWord = True .Execute Replace:=wdReplaceAll End WithEnd Subتحياتي للجميع
  2. دمج المراسلات من الاكسس الى الوورد

    اخي جعفر ما قصرت ... هل بالامكان  عمل مثل ذلك لو كانت كلمة name في مربع نص  تحياتي ؟ :excl:    name.doc
  3. دمج المراسلات من الاكسس الى الوورد

    استاذ جعفر شكرا جزيلا فعلا هذا المطلوب ( في ملف واحد ) 100% بارك الله فيك وسدد الله خطاك ونفع بك وجزاك الله عنا خير الجزاء  :)  :)  :)
  4. دمج المراسلات من الاكسس الى الوورد

    مشكور استاذ جعفر واقدر لك هذا المجهود وجزاك الله خير الجزاء ستتم التجربة قريبا ان شاء الله وبارك الله فيك
  5. دمج المراسلات من الاكسس الى الوورد

    اشكرك على التجاوب اخي جعفر وبارك الله فيك ونفع بك وانعم الله عليك استبدال كلمة name الموجودة في ملف اللوورد بالاسماء التي بالجدول ،  بحيث يكون لكل اسم شهادة  اي محمد1 ستكون له شهادة باسمه  محمد2 له شهادة باسمه وهكذا  كل الشهادات ستكون في ملف وورد واحد  الاسماء التي في الجدول (محمد1 + محمد2+محمد3 ...الخ) ثابته لكل المستخدمين تعليمة دمج المراسلات تكون بهذه الطريقة  <<nem>>  وهي دلاله على انه سوف تدرج حقول nem بعد اتمام عملية الدمج المراسلات . اشكرك مرة ثانية واتمنى لك التوفيق ... لقد الهمتني فكرة جديدة  ان لم نتوصل الى ما هو مطلوب بالطريقة المطلوبة ... سيكون العمل على عمل نسخة لكل اسم اي لكل اسم ستكون له شهادة في ملف وورد اي سيكون عندي 12 ملف وورد كل ملف يحتوي على اسم ... محمد1 ... محمد2 ....... ولكن ماهو مطلوب حاليا جعل تلك الملفات في ملف واحد وورد تحياتي للجميع
  6. السلام عليكم ورحمة الله وبركاته  الاخوه الكرام  هل يمكن عمل دمج مراسلات من الاكسس الى الووارد  علما ان ملف الوورد لا يحتوي على تعليمات دمج المراسلات لأنه من تصميم المستخدم . وبتالي فكل ملف ينشئ من مستخدم فهو يختلف في الشكل والمضمون من مستخدم الى اخر توضيح اكثر انشئ المستخدم خالد شهادة تكريم على الوورد  انشئ المستخدم  الثاني يوسف شهادة تكريم على الوورد  وكلا الشهادتين مختلفتين في الشكل والمضمون  وضع كلا المستخدمين في الشهادات كلمة name  لدلالة على اسم الشخص الذي سيكرم المساعدة المطلوبة من حضراتكم .. فضلا هي  من داخل الاكسس  نسخ ملف    "الوورد " للمستخدم خالد ووضعه في نفس مجلد قاعدة البيانات الحالية  باسم temp فتح temp وبحث عن كلمة name واستبدالها بتعليمة دمج المراسلات عمل دمج المراسلات وادراج الاسماء الموجودة في جدول الاسماء من  الاكسس حذف ملف temp   يوجد ملف اكسس مرفق يعمل دمج مراسلات على ملف وورد موجود وبه تعليمة الدمج ... ولكنه لا يخدم الطريقة التي اريدها ممكن من خبراء الاكسس تطويره وتطويعه بحيث يعمل المطلوب  كما تم ارفاق ملف اكسس وورد للمساعدة لعمل المطلوب جزيتم خيرا .... وبارك الله في جهودكم تحياتي للجميع sq1.rar
  7. الكتابة على الصور في الاكسس

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

    تفضل اخي الكريم ثلاث طرق يمكن ان تختار منها بالاضافة ما تفضل به الاخ الكريم  SANDANET افضلها في اعتقادي ان كان هذا مبتغاك مافي النموذج ,,,, المبيعات مثال.rar
  9. بخصوص الحقول ذات القيم المتغيرة

    ان امكن ارفاق الملف مع توضيح اكثر ... مع تحياتي 
  10. الكتابة على الصور في الاكسس

    وعليكم السلام ورحمة الله  هل من الممكن صنع برنامج يقوم المستخدم بادخال صورة الشيك ؟ اعتقد انه ليس من التطوير عمل هذا البرنامج لاجراء ما هو مطلوب وهو الكتابة على الشيك لأنك سوف تبذل جهد اضافي في تصوير الشيك بالسكنر ، حتى تحصل على مقاس قريب من صحة المقاسات الحقيقة مما يعني انك سوف تسهلك وقت وجهد اضافي . الحل : التعرف على جميع مقاسات الشيكات . وهنا اسأل الا يوجد توحيد عالمي لمقاسات الشيكات ؟ بعد التعرف على المقاسات ادخالها في جدول  ضع على مكتبك ورقة A5 مخطط عليها اسم ومقاسات الشيكات حتى اذا وضعت عليها الشيك عرفت مقاسه عند الطباعة يوضع  مربع تحرير والسرد يتم اختيار المقاس المناسب للشيك المقاس المناسب يصدر الى تقرير الطباعة
  11. السلام عليكم ورحمة الله  نعم جهد مضني بارك الله فيك اخي جعفر وجزاك الله خير الجزاء طريقة استخدام دالة dsum دالة DSum كيف توضع في كل الحقول و Me.t1 ماذا تعني واين توضع هي دالة من دوال المجال تقوم بجمع مجال حقل من جدول او استعلام كما يمكن ان تتضمن شرط مثل تحديد التاريخ او السنة مثل مثلنا هذا والمنتدى العامر مليئ ببيانات اكثر Me.t1 تعني في مثلنا هذا هو اسم عنصر (حقل) في النموذج وهو مبلغ المنح في نموذج المصاريف ، حيث جمعنا كل المنح من الجدول مع اشتراط ان يكون الجمع في السنه المحدده لقد ارفقت اليك الملف المعدل بنتائج ان شاء الله دقيقة ولا تبطئ قاعدة البيانات مع تعديل في جدول Moss حيث لا بد من وضع عند خاصية رقم الموظف .... مطلوب = نعم تكون النتائج  صحيحة في  استعلام منفرد  تحياتي للجميع 20142.rar
  12. الاخوة الكرام .. في اعتقادي انه لن يكون مناسبا في هذا الموضوع الا استخدام dsum  وكذلك اعتقد جازما بأن اي نتائج صادرة من هذا الاستعلام بهذا الشكل ستكون غير دقيقة لتأثر نتائج الجداول بعضها ببعض الحل في اعتقادي الاستغناء عن الاستعلام والاعتماد على ديسم في كل الحقول Me.t1 = Nz(DSum("[Menha_Value]", "[Award]", "Year ([Menha_Date])=" & Me.txtYear), 0) تقبلو تحياتي
  13. على مايبدو وفهمي للسؤال ...  انك تحتاج الى اضافة حقل في الاستلام Expr1: Year([DATE_BIRTH])بهذا يمكن عمل تصفية واذا كان ليس هذا المطلوب الرجاء ارفاق ملف مع توضيح اكثر شكرا تحياتي
  14. تحويل جدول html الى جدول اكسس

    الاخت الفاضلة زهرة . . كل الشكر والتقدير لك على كل هذه الجهود المباركه والمثمره ، جعل الله ذلك في ميزان حسناتك اللهم امين . . . والشكر موصول الى الخ الفاضل جعفر والىكل من حاول المساعدة ، ، ودمتم في حفظ الله ورعايته. .*
  15. السلام عليكم ورحمة الله وبركاته   لدي مربع نص يحتوي على وسوم جدول html وارغب في تحويله الى جدول اكسس مع كل الشكر والتقدير الى اعضاء هذا المنتدى الرائع ... ودمتم في حفظ الله ورعايته .  مرفق نموذج لما هو مطلوب .   تحياتي للجميع </TABLE><TABLE class=cream-bordered width=400 align=center><TR><TD class=Lbl_Bg_Text_Wth_Spc align=middle>الاسم</TD><TD class=Lbl_Bg_Text_Wth_Spc width=75 align=middle>الراتب</TD><TD class=Lbl_Bg_Text_Wth_Spc width=75 align=middle>ملاحظات</TD></TR><TR><TD class=form-label align=right>صفوان ( 1 ) </TD><TD class=form-label align=middle>92</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>شمسان </TD><TD class=form-label align=middle>0</TD><TD class=form-label align=middle>متأخر</TD></TR><TR><TD class=form-label align=right>ابراهيم </TD><TD class=form-label align=middle>900</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>احمد </TD><TD class=form-label align=middle>500</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>مرجان </TD><TD class=form-label align=middle>300</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>يونس </TD><TD class=form-label align=middle>97.5</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>محمد(1) </TD><TD class=form-label align=middle>288</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>فوزي </TD><TD class=form-label align=middle>424</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>يوسف </TD><TD class=form-label align=middle>700</TD><TD class=form-label align=middle></TD></TR><TR><TD class=form-label align=right>خالد </TD><TD class=form-label align=middle>464</TD><TD class=form-label align=middle></TD></TR></TBODY></TABLE>html.rar