مطلوب (تعديل كود) لإظهار جميع حقول النموذج معاً لحظة تحميله

[أحمد العيسى]

السلام عليكم

نظرياً .. هى مشكلة إزعاج بصري لمن يهوى الناحية الجمالية ، لكن لا تأثير  على الوظيفة

عند تحميل النموذج يظهر أولاً محتوى مربع نص الـ   Code  ثم بعد ثانية أو أقل يظهر الباقى

 

ثم

المطلوب تكرماً التعديل فى كود تحميل النموذج ليكون إظهار جميع الحقول بصرياً معاً

مع الاحتفاظ بوضع مشيرة الكتابة فى حقل الـ Code  كما هو موجود بالنموذج افتراضياً .

أرفقت الجزء المستهدف من التطبيق بالمرفقات ..  لإظهار ما شرحته والعمل عليه

تحياتي للجميع

db1.mdb

تم تعديل بالامس في 14:39 بواسطه أحمد العيسى

[أحمد العيسى]

أين  الرد  !!!!!

أو الإشارة لموضوع مشابه قد تم الرد عليه .

[أحمد العيسى]

لجأت للذكاء الصناعي بأسئلتي  (Google) بعد أن تأخر الرد من حضراتكم

وكان الحل مرضياً بنسبة 90%  من خلال تلك الأكواد التى نقلتها عنه

كما أنه قد قام بحل رعشة الوقت من خلال حذف الثواني من الظهور

Private Sub Form_Load()
    UpdateClock
    Me!LblDateView.Caption = Format(Now, "yyyy /mm /dd")
    Me.wrship.RowSource = ""
    Me.social.RowSource = ""
    ' 1. التركيز أولاً على زر الخروج لإظهار النموذج بالكامل
    Me.cmd_Exit.SetFocus
    ' 2. تشغيل المؤقت بعد نصف ثانية
    Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()
    Static blnDone As Boolean
    ' ينفذ هذا الجزء مرة واحدة فقط بعد نصف ثانية
    If Not blnDone Then
        blnDone = True
        ' إعادة التركيز إلى مربع النص Code
        Me.Code.SetFocus
        ' تظليل النص الموجود بداخله بالكامل
        If Len(Me.Code & "") > 0 Then
            Me.Code.SelStart = 0
            Me.Code.SelLength = Len(Me.Code)
        End If
        ' إعادة المؤقت إلى ثانية واحدة لعمل الساعة بانتظام
        Me.TimerInterval = 1000
    End If
    UpdateClock
End Sub

Private Sub UpdateClock()
    Dim strTime As String
    ' تنسيق الوقت واستبدال AM بـ ص و PM بـ م
    strTime = Format(Time, "hh:nn AM/PM")
    strTime = Replace(strTime, "AM", "ص")
    strTime = Replace(strTime, "PM", "م")
    ' التحديث فقط عند تغير الوقت لمنع الاهتزاز
    If Me!LblClockView.Caption <> strTime Then
        Me!LblClockView.Caption = strTime
    End If
End Sub