ادخلت اصلاح بسيط يحول النص الى تاريخ حتى يعمل الكود

[عادل سرور سرور]

Option Compare Database
Dim trial As Date
Dim b As Date
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Form_Open(Cancel As Integer)

trial = GetSetting("aa", "bb", "trial", Nz(trial))
If trial = Empty Then
SaveSetting "aa", "bb", "trial", Date
End If

trial = GetSetting("aa", "bb", "trial", Nz(trial)) rem هنا التعديل

trial = CDate(trial)
If Date < trial Then
MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical

Else b = trial + 60 ' 60 يوم مدة تجريبية If Date > b Then MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation DoCmd.OpenForm"المصمم" Else MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم" End If End If

End Sub

 

تم تعديل أبريل 9, 2024 بواسطه Moosak
تنسيق الكود

[Foksh]

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

[kams3008]

اريد تحويل التاريخ الى نص ممكن ؟

[Foksh]

1 ساعه مضت, kams3008 said:

اريد تحويل التاريخ الى نص ممكن ؟

ممكن توضح لنا أكثر ، لانه لا علاقة بين مشاركه صاحب الموضوع ومشاركتك . ويفضل فتح موضوع جديد بطلبك مع إرفاق ملف 😊

 

[Moosak]

من صاحب السؤال هنا ؟؟ 

@عادل سرور سرور أم @kams3008 ؟؟ 🤔

[jjafferr]

في 8‏/4‏/2024 at 17:53, عادل سرور سرور said:

CDate(trial)

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

مع ان الاكسس ياخذ التنسيق من الاعدادات الاقليمية للوندوز (مثل dd-mm-yyyy) ، الا انه داخلياً وكجزء من برمجته ، فهو يتعامل مع التاريخ بالطريقة الامريكية: mm-dd-yyyy ، 

ومن تجاربنا لا ننصح باستخدام CDate ونترك للاكسس اختيار اليوم من الشهر حسب الارقام 1-12 (حيث انه تمثل اليوم والشهر) ،

فالطريقة الصحيحة هي استعمال الامر DateSerial حيث فيها تحدد السنه والشهر واليوم ، فلا يكون هناك مجال للاكسس ان يختار بين اليوم والشهر.

واذا كان التاريخ عندك عبارة عن نص ، فيجب ان تستعمل كود يشبه التالي :

 

استخراج تاريخ الميلاد من الرقم القومي
=DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2))

 

انظر هنا لمناقشة شيقة عن التاريخ

 

جعفر