نموذج فرعي داخل صفحة رئيسية بقائمة جانبية

[hanan_ms]

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan  : https://sites.google.com/view/mas-projectss/home

لضم بعض الاعمال وتنزيل المباشر الكل مفتوح المصدر 

********************************************************************************************************

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

1- تعديل حركة اصبح بسلاسة في الجانبين لتسجيل الدخول من غير تداخل في الواجة الرئيسية   
2- تغير الرسائل بتأشر رسالة بديلة في الواجهة الرئيسية 
3- تغير حجم الرسالة مع تعديل التصميم للمعاينة 
4- عند تغير الخلفية او الرمز اضافة زر التحديث 
5- اضافة كل حساب صورة رمز خاصة فيه

6- تصحيح تحديث المزامنة يوجد شرح في الاعدادة

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

...

المرفق اسفل الفيديو Google Drive 

تحميل المرفق Google Drive 

https://drive.google.com/file/d/1wkzvmsK8NxSNwyySyvqycke8ulc-1U9H/view?usp=drive_link

[hanan_ms]

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan  : https://sites.google.com/view/mas-projectss/home

لضم بعض الاعمال وتنزيل المباشر الكل مفتوح المصدر 

********************************************************************************************************

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

1- اضافة ادخال البيانات ( للمبالغ المالية بتحديد العملات - ادخال الوقت العالمي لكافة الدول ما عدا المولايات يجب ذكر الدول مع الفارق الوقت - ادخال الرقم المدني لكافة الدول - ادخال ارقام دول العالم )

- يوجد اختصارات التحكم مثال Space لتنقل لتحديد معيار الدول او المبالغ - back للاغلاق النموذج - Enert لاعتماد القيمة المحددة )

2- اضافة ادراج البيانات داخل القائمة مع الرجوع وعرض البيانات 

- مع ترحيب عند الدخول وتصحيح التكبير 🙂

3- تعديل بسيط للقائمة لسهول التعامل مع تفريع القائمة باول الاسطر 

Private Sub LoadSubForm(n As Integer)
'===========================( ضغط الزر
  '===================(n يعبر عن ارقام الازرار الفرعية بترتيب
  '===================( مثال IB1 افصل الرقم عن الاسم فأذن الرقم 1
    If n = 1 Then
    Form_Time_Sub_Not_Form.Lbl_Time.Visible = True
    Form_ss_2.MainSub.Visible = True
    Form_ss_2.MainSub.SourceObject = "MF_0"
    End If
    
     If n = 2 Then Form_ss_2.MainSub.Visible = False
     If n = 3 Then Form_ss_2.MainSub.Visible = False
     If n = 4 Then Form_ss_2.MainSub.Visible = False
     If n = 5 Then Form_ss_2.MainSub.Visible = False
     If n = 6 Then Form_ss_2.MainSub.Visible = False
     If n = 7 Then Form_ss_2.MainSub.Visible = False
     If n = 8 Then Form_ss_2.MainSub.Visible = False
     If n = 9 Then Form_ss_2.MainSub.Visible = False
     If n = 10 Then Form_ss_2.MainSub.Visible = False
     If n = 11 Then Form_ss_2.MainSub.Visible = False
     If n = 12 Then Form_ss_2.MainSub.Visible = False

End Sub

4- اضافة اربع انواع للقواعد للاضافة التلقائية والتجديد 

....

تابع الفيديو للتوضيح 

تحميل المرفق https://drive.google.com/file/d/1iXXhL4xLaC7vx84VQEro2ZohuifRNt8p/view?usp=drive_link

 

[hanan_ms]

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan  : https://sites.google.com/view/mas-projectss/home

لضم بعض الاعمال وتنزيل المباشر الكل مفتوح المصدر 

********************************************************************************************************

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

1- اضافة اقلاع ولكن للعرض تغير الكود + مفاتيح الترخيص + تصحيح المسارات عند نقل الى جهاز جديد

2- تصحيح ووضع جميع تجربة صندوق رسائل الادخال في نافذة 

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

4- اضافة تعديل شعار النظام وتسمية الوزارة او الشركة - والدولة Ar And En 

5- لا يمكن اغلاق الا بحالتين بزر اغلاق او تاسك منجر 

7- بداية الدخول تسجيل كلمة المرور وبتحديث استكمال

6-اضافة للنافذة غير منبثقة داخل النافذة للبحث والاستعلام المتعدد الكود 

Dim MsG1                                 As String
Dim MsG2                                 As String
Dim MsG3                                 As String
Dim Save_value As String
'-=======-( Chack SQL Value k )
If DCount("*", "[Companey]") = 0 Then
'msgbox
MsG2 = "Sand Massage !": MsG1 = "تم الغاء تنفيذ استعلام والبحث ": MsG3 = " لا توجد بيانات ولا سجلات مضافة من الاصل 0 *! اضافة سجلات جديده ثم اعادة التنفيذ : او الاتصال بالمسؤل او المورد في حالة حدوث مشكلة "
    MyMsgBox (MsG3), (MsG2), (MsG1), msg_OK, Btn_Non, Arabic_Center ', True, 2.5
Exit Sub: End If

If Not IsNull(Me.SSHX) Then Me.Sexxo.SetFocus: Save_value = Me.SSHX: DoEvents: Form_ss_2.SHX = Me.SSHX:   DoEvents:   ': Form_ss_2.MainSub.SourceObject = "MF_0" Else: Exit Sub ': End If

If Me.Sexxo = "اسم الشركة" Then Form_ss_2.SHX = Me.SSHX:   DoEvents: Form_ss_2.MainSub.SourceObject = "MF_01": Exit Sub
If Me.Sexxo = "اسم المؤسس" Then Form_ss_2.SHX = Me.SSHX:    DoEvents: Form_ss_2.MainSub.SourceObject = "MF_02": Exit Sub
If Me.Sexxo = "رقم الترسية" Then Form_ss_2.SHX = Me.SSHX:    DoEvents: Form_ss_2.MainSub.SourceObject = "MF_03": Exit Sub
If Me.Sexxo = "موضوع المناقصة" Then Form_ss_2.SHX = Me.SSHX:    DoEvents: Form_ss_2.MainSub.SourceObject = "MF_04": Exit Sub
If Me.Sexxo = "المبلغ الاجمالي" Then Form_ss_2.SHX = Me.SSHX:    DoEvents: Form_ss_2.MainSub.SourceObject = "MF_05": Exit Sub

ولكن نسيت كود بدل من ضغط على الحقل مر اخرى قبل البحث للنقل قيمة الحقل مع تصحيحات اخرى 

ويوجد نقط اخرى نسيتها مكثره حلو 

تحميل المرفق https://drive.google.com/file/d/1Frq3rpIsVYKGRzDpBQeW9A4LRH_CLkwS/view?usp=drive_link تابع الفيدو للتوضيح ومشاهدة ممتعة