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

[hanan_ms]

  فيديو 3 ومرفيقين 2 + هديه  مرفق Cinema 4D

بسيط جدا من جدول لو كان من استعلام يعرض كافة الشركات المتعاقدة او طبخات دولية 😂 او ابداعات فنية 😂 وجعلة تنظيم قنواتك في اليوتيوب وكتابة وتدوين الملاحظات وتستطيع اضافة المشاركين واضافتهم في شريط المتحرك مع فيديو لقناتك مع اضافة شعار لقناتك او الشركة من خلال تصميم الشعار من برنامج Cinema 4d 

محاولة 

1- يتضمن مرفق Cinema 4d مع شرح طريقة الاستخدام البسيطة فقط غير الصورة  ثم ارفاقة في النموذج 

2- يمكن تعديل مصدر الجدول باضافة دالة IFF

-لتحديد اعلى وادنى قيمة ارقام لعرض السهم في النص المتحرك 

3- الملاحظات من غير استخدام انشاء استعلامات وانما استعلام داخل الكود تحديد  كل السنوات وتحديد الشهر  وعرض الاجماليات وعرض الكل مع تقليص لعرض التاريخ مع الملاحظات والتوسيع توضيح اسفل الفيديو في الاسفل 

4D

بتعديل مرفق استاذ @Moosak 🌹 😇

==================( تعديل الدالة False , Ture في التحديث 😇

 مرفق شريط نص المتحرك لكافة سجلات في الجدول 

https://www.mediafire.com/file/ooh644tejv8k997/T_V_OpenSures.rar/file

مرفق معد من استاذ @Moosak للملاحظات

https://www.mediafire.com/file/bh1ffw53nau9zzf/__Notes+-+v2+(1).rar/file

[hanan_ms]

 توسيــــــــــــــــــــــــــع واستكمال

* تغير الشريط الى دارك مود مع بعض التحسين *

1- عرض ثلاث اشرطة تحت بعض للشركات والموظفين بنص متحركة حسب نسبة المؤشر 

2- قائمة التحكم بالاضافة وتعديل والمفترض استعلام 😇

مرفق التحميل اسفل الفيديو 

========================================================================*^*

تحميل المرفق

https://www.mediafire.com/file/ot26afk6vbof41c/T_V_OpenSures_V_1.rar/file

[hanan_ms]

 توسيــــــــــــــــــــــــــع واستكمال

 

1- استكمال عمل استاذ @Moosak 🌹 عند النقر للتقلص وتوسع يكون بنفس النوت المحدد النقر 😇

ملاحظة خارج الموضوع

لتتبع اجراءات قيد مالي لا تسجل الى بعد شهر للربع الاول وللربع الثاني وللربع الثالث وللربع الرابع اقصد التتبع يكون بعد شهر وليس كاشير بنفس اليوم تحاسب عندك 3 شهور للربع لا يضعونك بطلب ما^ يشتغل بعد مرور فترة ترك واهمال ثابت يرجع على الموظف كرقابة المالية تقريبا التسجيل بعد شهر لكل نهاية شهر  😇

2- اضافة تحكم بشريط المؤشر اللون والسرعة والمسافة والرموز

3- تستطيع عمل نفس لون الزر حسب تصنيف نسبة المؤشر كانت 1 او 2 او 3 يمكن الزيادة 

4- زيادة في العرض انتقل من 5 الى  10 كدفعت مجموعات 

اشلون تخلي المبالغ نسبة مئوية 

====================( تحديث ان امكن تحكم اكثر حتى بعرض المحدد لكل مجموعة لكل دوران مع

تحميل المرفق اسفل الفيديو

المرفق

https://www.mediafire.com/file/89aa3rpuc9gndwk/T_V_OpenSures_V_2.rar/file

[hanan_ms]

 

 توسيــــــــــــــــــــــــــع واستكمال

تصحيح بعض الكوارث 😂

1- اصلاح مشكلة الفتح والاغلاق بسبب تضارب دالة UISetRoundRect بدالة QuickDoubleBuffering

!!!بما تسبب في استغراق وقت اطول للفتح والاغلاق

'=============( حدث عند اغلاق
Dim run As Integer
   Call QuickDoubleBuffering("back_3", "back_1", "go", False)
   Call QuickDoubleBuffering("back_3", "back_1", "go_2", False)
   Call QuickDoubleBuffering("back_3", "back_1", "go_3", False)
   Call QuickDoubleBuffering("back_3", "back_2", "logen_T_V", False)
'Call QuickDoubleBuffering("back_3", "back_1", "go_3", "back_2", , , False)
'Call QuickDoubleBuffering("frmMain", "sub1", "sub2", , , , True)
For run = 1 To 1
Form_go.TimerInterval = 0
Form_go_2.TimerInterval = 0
Form_go_3.TimerInterval = 0
'Form_logen_T_V.TimerInterval = 0
Next
DoCmd.Close acForm, Me.Form.Name
End Sub
=================================( حدث تايمر عند الفتح 
Private Sub JKX_Click()
Form_go.TimerInterval = 0
Form_go_2.TimerInterval = 0
Form_go_3.TimerInterval = 0
Form_logen_T_V.TimerInterval = 0
Dim jf             As Integer
      For j = 1 To 200 '200 'round corners
        'UISetRoundRect code in modCreateRoundCorners
        UISetRoundRect Form_logen_T_V, j, False
        DoEvents
    Next
    If Not IsNull(DLookup("[Speed_Move_Time]", "[Control_Move_text]")) Then
    For f = 1 To 1
        Form_go.TimerInterval = DLookup("[Speed_Move_Time]", "[Control_Move_text]")
        Form_go_2.TimerInterval = DLookup("[Speed_Move_Time]", "[Control_Move_text]")
        Form_go_3.TimerInterval = DLookup("[Speed_Move_Time]", "[Control_Move_text]")
   Call QuickDoubleBuffering("back_3", "back_1", "go", True)
   Call QuickDoubleBuffering("back_3", "back_1", "go_2", True)
   Call QuickDoubleBuffering("back_3", "back_1", "go_3", True)
  ' Call UpdateTextColorsFromOtherForm
           DoEvents
   Next

   Call QuickDoubleBuffering("back_3", "back_2", "logen_T_V", True)

Form_logen_T_V.TimerInterval = 50

    Else
        For f = 1 To 1
Form_go.TimerInterval = 50
Form_go_2.TimerInterval = 50
Form_go_3.TimerInterval = 50
   Call QuickDoubleBuffering("back_3", "back_1", "go", True)
   Call QuickDoubleBuffering("back_3", "back_1", "go_2", True)
   Call QuickDoubleBuffering("back_3", "back_1", "go_3", True)
 '  Call UpdateTextColorsFromOtherForm
           DoEvents
   Next

      Call QuickDoubleBuffering("back_3", "back_2", "logen_T_V", True)

Form_logen_T_V.TimerInterval = 50

End If

End Sub
Public Sub UpdateTextColorsFromOtherForm()
'   ' On Error Resume Next
    Dim ih As Integer
    Form_go.jk = 1
    Form_go_2.jk = 1
    Form_go_3.jk = 1

End Sub

Private Sub Xcloc_Click()
Call UpdateTextColorsFromOtherForm
End Sub

2- تفعيل الاوان نصوص المتحركه في عداد الوقت عند التغير القيمة او ادوات التحكم عن طريق تمرير قيمة حقل ابسط

' دالة للتحقق من الحقل JX وتحديث الألوان
Private Sub CheckJXAndUpdateColors()
     If Me.jk = 1 Then
           ' Call RefreshVisibleColors
           ReloadInProgress = True ' منع التنفيذ المتعدد
        
        ' إخفاء فوري للعناصر
        For i = 1 To 10
            Me("A" & i).Visible = False
            Me("M" & i).Visible = False
        Next i
        
        ' إعادة التحميل الفوري
        Call LoadDataFromTable("MS_HAnan", "Text_N")
        Me.h200 = 1
        Me.h400 = 500
        intCount = 0
        
        ReloadInProgress = False ' السماح بالتنفيذ مرة أخرى
    
            Me.jk = "" ' إعادة تعيين بعد الاستخدام

        End If
End Sub
Private Sub Form_Timer()
    On Error Resume Next
    Call CheckJXAndUpdateColors
    If ReloadInProgress Then Exit Sub ' منع التنفيذ أثناء إعادة التحميل
    

3- اضافة تحجيم الفيديو ليتناسب مع تسجيل الشاشة بخيارين كما موضح في الفيديو بسيط وتصحيح في YouTube

مع بعض التغيرات وتحسينات يوجد لديكم مصميمين محترفين وهذه محاولة   

ستلاحظ سرعة الفتح والاغلاق ههه 😇

 

ملاحظة خارج الموضوع :

اذا كان الجدول انشأ في اصدار اكسس سابق مثال 2016 لن تعمل نقل البيانات ولا تصدير ولا تغير نوع الحقل في الجدول او جدول في النموذج من غاطس او مظلل او .. ان كان العمل 2019

على اصدار اعلى منه 2019 ويفرق قيليل العمل Pro 

من يعمل على اصدار 24 

 

(2) تحميل المرفق اسفل الفيديو

======================( ينقصة تحويل المبالغ الاجمالية الى نسبة وعرضها في الشريط مع تحكم النسبة مليارات ان كان قيمة عظما - اضافة اداة للتصميم فقط اختر الصور كمجموعات وارفاقها داخل النموذج بوضع التصميم مع التسمية اعتقد كان هناك عمل مشابة للاستاذ @Moosak 😇-- ضبط الجوده

تحميل المرفق

https://www.mediafire.com/file/h8exe7mjt807q4h/T_V_OpenSures_V_2-1_Fixo.rar/file

[hanan_ms]

 توسيــــــــــــــــــــــــــع واستكمال

 

1- اضافة نسبة المئوية لقيمة المبلغ الاخمالي 

2- اضافة العملات الى المبلغ مباشر 

3- اضافة واستكمال الادوات الاعدادة لتحكم بشريط النصوص المتحرك من زيادة حجم النص وارتفاع الى سطرين لكل نص او 300 لسطر واحد مع خيار تنسيق الخط 😇

4- اضافة واجهة جديده كنت بحاول  اطبق تعليمات استاذ @Moosak للتنسيق الاوان😂 وليلة ما عدة 

على الســـــــــــريع واتسكمال بتحديث ===(

-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=--=-=-=[ New ]

المرفق اسفل الفيديو :  

تحميل المرفق

https://www.mediafire.com/file/n598ilyi8n40hm2/T_V_OpenSures_V_2-2.rar/file