كيف أعدل على دالة تحويل التاريخ

[بصير]

Dim vs As Integer
    Dim I As Date
    Dim x As String
     vs = Calendar
    Calendar = 0 
    I = CDate(wsd.Text)
    Calendar = 1 
    x = CStr(I)
    hhwss = Format(x, "YYYY/MM/DD")
    Calendar = vs

السادة الأعزاء

السلام عليكم

لدي حقل للتاريخ اسمه wsd عندما أقوم بتحديثه  يظهر التاريخ الهجري في HHwss في النموذج

السؤال كيف أعدل على هذا الكود بحيث إذا عدلت على خلية أخرى في النموذج على سبيل المثال kwe ليس لها علاقة بالتاريخ يتحدث HHwss بناء على القيمة الموجودة في wsd بدون الضغط على خلية wsd حيث إن التواريخ جاهزة مكتوبة في wsd وفي كل مرة أحتاج اضغط على wsd لتظهر القيمة في hhwss

 

 

[SEMO.Pa3x]

عليكم السلام، أذهب الى الخلية kwe وفي حدث Form_AfterUpdate أو بعد التحديث وقم بعمل نداء لدالة wsd مثال:

Call wsd_AfterUpdate أو ارفق قاعدة بياناتك لكي نتمكن من مساعدتك.

 

 

[بصير]

هذا المثال ما عرفت اطبقه

تاريخ.accdb

[SEMO.Pa3x]

تفضل جرب وأخبرني النتيجة، للمعلومة الحقل kwe ان لم تستخدمه في أي شي فلماذا قمت بوضعه؟

تاريخ.accdb

[بصير]

شكرا أيها الخبير تمااااااااااااااااااااااام عليك😍

kwe مرتبط بأشياء أخرى لابد منه

[SEMO.Pa3x]

5 دقائق مضت, بصير said:

شكرا أيها الخبير تمااااااااااااااااااااااام عليك😍

kwe مرتبط بأشياء أخرى لابد منه

يرجى إختيار أفضل إجابة لغلق الموضوع.

[بصير]

تمام