• الإعلانات

    • فيصل الحربي

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

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

tomoq5

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

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

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

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

-1 مقبول

عن tomoq5

  • الرتبة
    عضو جديد
  1. اضافة صورة

    http://store1.up-00.com/2017-09/150631650400011.bmp
  2. http://gulfup.co/ulnqgmkca6j1
  3. عملت جميع اكوا التنقل بين السجلاتولكن  بدون نتيجة ولا تعمل الازرار فما السبب Me.BindingContext(DS, "example").Position += 1         ChangePosition() و كذلك If x < dt.Rows.Count - 1 Then             x += 1             rowSelection()         End If
  4. ربط Word مع Access

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

    بارك الله فيك وحفظك ... ولكن مازالت نفس المشكلة بعد التغيير في الكود والسلام عليكم
  7. الرجاء من الاعضاء تصحيح الكود التالي الذي هو عبارة عن تحويل شهر ارقام الى شهر حروف في M.Word 2007... لكن التحويل يضيف شهر زيادة عن الشهر الذي نريد تحويله فمثلا 12/05/2004 يحول 05 الى juin وليس Mai وهاهو الكود وشكرا مسبقا Sub macro1() mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _ "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") Selection.Find.ClearFormatting With Selection.Find For I = 1 To 12 Selection.HomeKey Unit:=wdStory Do .ClearFormatting .Text = "([0-9]{1,})/" & IIf(I < 10, "0" & I, I) & "/([0-9]{4})" .Forward = True .Wrap = wdFindContinue .MatchCase = True .MatchWildcards = True .Execute If .Found = True Then ddate = 10 - Len(Selection) Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=2 - ddate Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend Selection.TypeText Text:=" " & CStr(mois(I)) & " " End If Loop Until .Found = False Next I End With End Sub والسلام عليكم
  8. :wub: الموضوع مكرر يا أخي حتى الحقول هي هي وهاهو الرابط http://vb4arab.com/vb/showthread.php?t=13315