اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)
 
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

 

تم تعديل بواسطه Moosak
تنسيق الكود
  • Like 1
قام بنشر

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

قام بنشر
1 ساعه مضت, kams3008 said:

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

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

 

قام بنشر
في 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))

 

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

 

جعفر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information