عوض

السلام عليكم

Sub LoopFillRange()
'   Fill a range by looping through cells
    Dim CellsDown As Long, CellsAcross As Long
    Dim CurrRow As Long, CurrCol As Long
    Dim StartTime As Double
    Dim CurrVal As Long

'   Change these values
    CellsDown = 500
    CellsAcross = 200
   
    Cells.Clear
'   Record starting time
    StartTime = Timer

'   Loop through cells and insert values
    CurrVal = 1
    Application.ScreenUpdating = False
    For CurrRow = 1 To CellsDown
        For CurrCol = 1 To CellsAcross
            Range("A1").Offset(CurrRow - 1, CurrCol - 1).Value = CurrVal
            CurrVal = CurrVal + 1
        Next CurrCol
    Next CurrRow

'   Display elapsed time
    Application.ScreenUpdating = True
    MsgBox Format(Timer - StartTime, "00.00") & " seconds"
End Sub

ممكن حد يترجملي الكود ده

Sub LoopFillRange()
'   Fill a range by looping through cells
    Dim CellsDown As Long, CellsAcross As Long
    Dim CurrRow As Long, CurrCol As Long
    Dim StartTime As Double
    Dim CurrVal As Long

'   Change these values
    CellsDown = 500
    CellsAcross = 200
   
    Cells.Clear
'   Record starting time
    StartTime = Timer

'   Loop through cells and insert values
    CurrVal = 1
    Application.ScreenUpdating = False
    For CurrRow = 1 To CellsDown
        For CurrCol = 1 To CellsAcross
            Range("A1").Offset(CurrRow - 1, CurrCol - 1).Value = CurrVal
            CurrVal = CurrVal + 1
        Next CurrCol
    Next CurrRow

'   Display elapsed time
    Application.ScreenUpdating = True
    MsgBox Format(Timer - StartTime, "00.00") & " seconds"
End Sub

البرنامج مرفق في المشاركة

[0]-bokeeping.rar

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

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

يعني الاكسيس بيكتب ويظغط انتر ويصدر البيانات بترتيب الخانات اللي في الفورم الاول لما افعل الفورم الثانيه وا افعل اي فورم نفس الخانات والترتيب

وكأنه موظف بيدخل البيانات بيده ويضغط انتر فينتقل للخانه اللي بعدها

ويظغط انتر لاضافة ريكورد جديد وهكذا

ارجو اني اكون عرفت اشرح

ماهو انا ياافندم خلاص مش لاقي حل

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

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

لو عندكم نصيحه اطرح بيها الموضوع ده حد يدلني

السلام عليكم

انا محتاج بس نوع الامر اللي اعمله ع الاكسيس

لما بدوس start

بيبدأ يرسل اللي في الفورم بعد تحديد التاريخ الى شاشة برنامج اخر بس لازم تكون متفعله

فالبرنامج بيكتب اللي في الفورم في فورم شادشة ادخال جافا

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

بحيث اني اوفر مجهود الادخال اليدوي

زي البرنامج المرفق

[0]-bokeeping.rar

للاسف اللي عمل البرنامج مشي ومش متاح انه يرجع

طيب انا محتاج بس نوع الامر اللي عمله ع الاكسيس

لما بدوس start

بيبدأ يرسل اللي في الفورم بعد تحديد التاريخ الى شاشة برنامج اخر بس لازم تكون متفعله

فالبرنامج بيكتب اللي في الفورم في فورم شادشة ادخال جافا

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

بحيث اني اوفر مجهود الادخال اليدوي

السلام عليكم ورحمة الله وبركاته

انا شغال في شركة اوراق ماليه
وبنستخدم البرنامج المرفق ده بيسهل علينا الشغل
والراجل اللي عمله سابنا والبرنامج عاوزين نضيف عليه تعديلات تناسب المرحله الجديده
وهو عامل باسوورد للأكواد
ممكن حد يفتحهولنا
جزاكم الله كل خير
محمد عوض
01100401616

[0]-bokeeping.rar

a.rar

تم تعديل المرفق واسف جدا

awad.rar

ممكن حد يفيدني في الملف المرفق ده

محتاج :-

1- فصل العمليات ال ( Same day ) في ملف لوحدها "" بمعنى ان اي كمية تم شرائها وتم بيعها في نفس التاريخ تفصل في ملف خاص بنفس الاعمده .

2- في حالة شراء كميه وعدم بيعها او العكس في نفس التاريخ تظهر في ملف خاص بنفس الاعمده .

3- في حالة ان المتبقى جزء سواء شراء او بيع (( يتم اظهار الكميه المقفوله شراء وبيع بنفس التاريخ في ملف Same Day ولكن بشرط ان يكون Amount و Fees و cairo cap_fees بمقدار الكميه وليس بالاجمالي .

4- المتبقى من جزء الSame day يظهر في ملف ( Postions ) ايضا بقيمته وعمولته .

ارجو ايجاد الحل وباسرع ما يكون لانه مسببلي مشكله في حساباتي كلها .

" ملحوظه "

سيتم تحديث الملفات يوميا "

جزاكم الله خيرا

awad.rar

اشكرك شكرا جزيلا

ممكن اطلب طلب زياده طمعا في اخلاق حضرتك

ينفع نعكس العمليه دي

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

ارجو ان لا اكون عضوا ثقيلا

اااااااااه انا اسف جدا جدا جدا

الخانه المطلوبه هي خانة (Total) تظهر في حالة ظهور التقرير الفرعي وتختفي في حالة اختفائه .

وايضا اريد مثلا رسالة تظهر في حالة الاختفاء توضح انه " لا يوجد تقرير فرعي مثلا " 0

وشكرا على االتعاون والاهتمام

مرفق المثال بعد التعديل

awad.rar

بسم الله السلام على اهل العلم والتعلمارجو الافاده ولكم الاثابه ان شاء اللههل يوجد في التقارير امر ما او اي شيء اذا اضفته يعطي النتيجه الاتيه :- في حالة ظهور (Sub_report) يختفي [Text]&[Label] معينين في التقرير- وفي حالة عدم الاختفاء تظهر مرة اخرى 0" اعتذر عن عدم وجود مثال مرفق بسبب ان البرنامج كبير الحجم "والله الموفق

تم ارفاق مثال ارجو ان يكون واضحا

awad.rar

بسم الله

السلام على اهل العلم والتعلم

ارجو الافاده ولكم الاثابه ان شاء الله

هل يوجد في التقارير امر ما او اي شيء اذا اضفته يعطي النتيجه الاتيه :

- في حالة ظهور (Sub_report) يختفي [Text]&[Label] معينين في التقرير

- وفي حالة عدم الاختفاء تظهر مرة اخرى 0

" اعتذر عن عدم وجود مثال مرفق بسبب ان البرنامج كبير الحجم "

والله الموفق

الله المستعان

حوالي 40 مشاهده ولا يوجد رد واحد

هل من مجيب

السلام عليكم ورحمة الله وبركاته

عندي استفسار مهم بالنسبه لي جدا

هل يوجد كود يجعل الزرار ( تشغيل ) لا يستخدم الا مرة واحده فقط يوميا

وفي حالة الضغط مره اخري في نفس اليوم يطلب تأكيد بنعم او لا

ولكم جزيل الشكر

awad3.rar

الف الف شكر يا افندم

جزاكم الله كل خير

المرفقات

awad1.rar

1-اخواني الاعزاء هل يوجد حل لرسائل التأكيد التى تظهر عند تشغيل ماكرو واحد او اكثر من ماكرو وراء بعضهم

علما بأن Confirm Action غير كافيه

اتمنى ان اجد حل

2- يوجد في المرفقات نموذج اريد عند الضغط على زر Clear ان يقوم بمسح كل بيانات الجدول

الاخوة الأعزاء

اسمحوا لي بهذه المداخلة البسيطة فيما يخص اقتطاع الرقم

يمكنك استخدام الكود التالي

 Left([CutomerID];Len([CutomerID])-3)

تحياتي,,,

الف الف شكر هو ده اللي كنت محتاجه شكرا

ناقص بس حاجه واحده ربنا يكرمكوا

ازاي اضيف قيمة شهريا على عمود معين كانت الاستاذه صابحه قالت على فكره بس انا معرفتش اطبقهافلو ممكن توضيح اكتر

او طريقه تانيه

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

اولا شكرا جدا جدا على الاهتمام والمجهود

ثانيا انا كنت عاوز احذف اول ثلاثة ارقام فقط وليس المطلوب الابقاء على ثلاثة ارقام لانه من الممكن ان يكون العميل مثلا ( 2525001 ) لو ابقينا على اخر ثلاثة ارقم سيصبح ( 252 ) وهذا خطأ كبير 0

ثالثا انا مش فاهم ازاي احدث التاريخ من النماذج ممكن مثال عملي للتوضيح

حولته ل 2003 يارب حد يفيدني

awad2003.rar

انا بصراحه مش عارف اوضح في المرفق وهو باختصار

اولا : انا عاوز القيمه اللي في جدول ال(MonthlyCredit)تضاف شهريا اتوماتيك على القيمه اللي في جدول (TotalNum) .

ثانيا :جدول العملاء عاوز احذف اول ثلاثة ارقام اتوماتيك