اذهب الي المحتوي
أوفيسنا

motaha

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    22

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

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

 نوع المحتوي 

مشاركات المكتوبه بواسطه motaha

    تصدير البيانات من الاكسس الى ملف ورد معد مسبقا وحفظه

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه motaha

    12 ساعات مضت, Foksh said:

    جرب هذا الكود ، مع تعديل مربع النص الذي به الرقم المتسلسل 

    Dim W As Object
Set W = CreateObject("Word.Application")
W.Documents.Open "C:\Users\MH\Desktop\test.docx"
W.Visible = True
W.ActiveDocument.bookmarks("txtname").Select
W.Selection.InsertAfter Me.nname.Value
W.ActiveDocument.bookmarks("txtarea").Select
W.Selection.InsertAfter Me.area.Value
W.ActiveDocument.bookmarks("txttele").Select
W.Selection.InsertAfter Me.tele.Value

' تم إضافة السطر التالي لحفظ ملف الورد برقم المسلسل
W.ActiveDocument.SaveAs "C:\Users\MH\Desktop\" & Me.SerialNumber.Value & ".docx"

     

    هذا ما كنت اريده تم الحل

    شكرا وجزاك الله خيرا

     

    • Like 1

    تصدير البيانات من الاكسس الى ملف ورد معد مسبقا وحفظه

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم 

     قمت باعداد ملف ورد مسبقا لاستخراج البيانات من الاكسس الى ملف الورد المعد مسبقا

    واستخدمت هدا الكود لتصدير البيانات من الاكسس الى ملف الورد

    Dim W As Object
    Set W = CreateObject("Word.Application")
    W.Documents.Open "C:\Users\MH\Desktop\test.docx"
    W.Visible = True
    W.ActiveDocument.bookmarks("txtname").Select
    W.Selection.InsertAfter Me.nname.Value
    W.ActiveDocument.bookmarks("txtarea").Select
    W.Selection.InsertAfter Me.area.Value
    W.ActiveDocument.bookmarks("txttele").Select
    W.Selection.InsertAfter Me.tele.Value

    وكنت اريد حفظ ملف الورد عن طريق رقم المسلسل على سبيل المثال حفاظا على الملف المعد مسبقا و بعيدا ان يقوم المستخدم بحفظه عن طريق حفظ باسم  

    الرجاء المساعدة والتوجيه وبارك الله فيكم

     

     

    زياده سنويه بالاقساط

    في قسم الأكسيس Access

    قام بنشر

    11 ساعات مضت, ابوخليل said:

    عليكم السلام

    الاخ الكريم ، بما انك بدأتنا بالسلام فانت مسلم

    هل سمعت بشيء يسمى الربا

    ان ما تحاول القيام به الآن هو اعانة على الظلم .. فهو الربا الصريح بعينه

    اعتقد انه لم يخطر ببالك هذا .

    وفقنا الله واياك لكل خير ورزقنا واياك المال الحلال

    اخى الكريم

    انى اقوم بعمل برنامج يخص تحصيل دفعات لايجار عقاري ويوجد زياده سنويه تراكميه للايجار ووجدت ببرنامج الاقساط (فكره) وارغب فى تعديلها ليناسب التطبيق الذى احاول القيام به 

    واعتذر لعدم التوضيح من البدايه  وشكرا للاهتمام والرد

    زياده سنويه بالاقساط

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه motaha

    السلام عليكم 

    وجدت برنامج جميل على موقعنا خاص بالاقساط واحاول تعديل بان يتم حساب الاقساط بزياده سنويه تراكميه 

    مثال قيمه اول قسط 1000 و نسبه الزياده 10% وعدد الاقساط 3 يكون

    القسط الاول 1000

    القسط الثانى 1100

    القسط الثالث 1210

    برجاء المساعده وشكرا

    الاقساط (1).zip

    استدعاء بيانات

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم وبها نبدأ اي موضوع 

    المطلوب استدعاء بيانات من فولدر

    اقوم بعملية استدعاء بيان عن طريق معدله VLOOKUP من workbook اخر 

    [VLOOKUP(Sheet3!$B2,'C:\Users\MH\Desktop\vl\[3.xlsx]Sheet1'!$A:$B,2,FALSE)=]

    واريد ان يتم تغيير رقم 3 الموجود فى " 3.xlsx " بناءاً على الارقام الموجوده فى B2 

    HyperLink

    في قسم الأكسيس Access

    قام بنشر

    انا بحاول اعمل hyperlink معتمدا على ادخال نص وييتم اضافته تلقائيا الى Hyperlink field

    مثال
    BillNo field = 001
    Hyperlink field = f:/files/001.pdf

    حاولت بهذه الطريقه "f:/files/"&[BillNo]&".pdf"    بس مش فاهم ايه الخطأ

    نسخ البيانات

    في قسم الأكسيس Access

    قام بنشر

    اقوم بعمل قاعده بيانات خاصه بتسجيل منتجات وارده الى الشركه وارغب فى حاله اضافه اسم منتج قد سبق وتم تسجيل البيانات الخاصه بالمنتج فى احد الايام ان يتم نسخ بعض من البيانات الاساسيه للمنتج مره اخرى بمجرد تسجيل اسم المنتج  ولكن ببتاريخ جديد

×
×
  • اضف...

Important Information

  I accept