السلام عليكم ورحمة الله وبركاتة
If DTPicker1 > Date Then
Text1 = 0
Else
Text1 = 1
End If
بمعنى اذا تاريخ الموجود اكبر من تاريخ اليوم تكست 1=Text1 والا العكس
الاخ عمر السلام عليكم
الكود الذي ارفقته سليم ولا توجد به اي مشكلة
كما تلاحظ في المرفق
وعليكم السلام استاذنا السيد اغالي
الكود يعمل في حال غير بداية الرقم في تاريخ
مثال
اذا تاريخ الموجود 07/01/2015
اذا قمت بتغير 09/01/2015 يشتغل
ولكن اذا قمت بتغير الي 01/01/2017
هنا المشكلة لا يعمل
يعني اذا غيرت الشهر او السنه لا يتغير
السلام عليكم
جرب الكود التالي
كود :
If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then
Text1 = 0
Else
Text1 = 1
End If
والله الموفق
(07-02-17, 10:07 PM)عمر سالم كتب : [ -> ]وعليكم السلام استاذنا السيد اغالي
الكود يعمل في حال غير بداية الرقم في تاريخ
مثال
اذا تاريخ الموجود 07/01/2015
اذا قمت بتغير 09/01/2015 يشتغل
ولكن اذا قمت بتغير الي 01/01/2017
هنا المشكلة لا يعمل
يعني اذا غيرت الشهر او السنه لا يتغير
اخي العزيز عمر سالم السلام عليكم
بطبيعة الحال لا يتغير لان التاريخ (01/01/2017 ) اصغر من تاريخ اليوم لان الشرط يكون text1=0 في حال كان تاريخ اليوم اصغر
(08-02-17, 12:20 AM)السيد الغالي كتب : [ -> ] (07-02-17, 10:07 PM)عمر سالم كتب : [ -> ]وعليكم السلام استاذنا السيد اغالي
الكود يعمل في حال غير بداية الرقم في تاريخ
مثال
اذا تاريخ الموجود 07/01/2015
اذا قمت بتغير 09/01/2015 يشتغل
ولكن اذا قمت بتغير الي 01/01/2017
هنا المشكلة لا يعمل
يعني اذا غيرت الشهر او السنه لا يتغير
اخي العزيز عمر سالم السلام عليكم
بطبيعة الحال لا يتغير لان التاريخ (01/01/2017 ) اصغر من تاريخ اليوم لان الشرط يكون text1=0 في حال كان تاريخ اليوم اصغر
اسف اخي السيد اقصد 01/01/2018 فانه لايعمل
(08-02-17, 12:06 AM)sendbad100 كتب : [ -> ]السلام عليكم
جرب الكود التالي
كود :
If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then
Text1 = 0
Else
Text1 = 1
End If
والله الموفق
مرحبا سند نفس المشكلة يتغير dd ولكن الشهر وسنه فلا يتاثر بذلك
الكود يتغير مره واحده فقط في حال قمت بتغير مره تانية لا يستجيب
(08-02-17, 01:47 AM)عمر سالم كتب : [ -> ] (08-02-17, 12:20 AM)السيد الغالي كتب : [ -> ] (07-02-17, 10:07 PM)عمر سالم كتب : [ -> ]وعليكم السلام استاذنا السيد اغالي
الكود يعمل في حال غير بداية الرقم في تاريخ
مثال
اذا تاريخ الموجود 07/01/2015
اذا قمت بتغير 09/01/2015 يشتغل
ولكن اذا قمت بتغير الي 01/01/2017
هنا المشكلة لا يعمل
يعني اذا غيرت الشهر او السنه لا يتغير
اخي العزيز عمر سالم السلام عليكم
بطبيعة الحال لا يتغير لان التاريخ (01/01/2017 ) اصغر من تاريخ اليوم لان الشرط يكون text1=0 في حال كان تاريخ اليوم اصغر
اسف اخي السيد اقصد 01/01/2018 فانه لايعمل
(08-02-17, 12:06 AM)sendbad100 كتب : [ -> ]السلام عليكم
جرب الكود التالي
كود :
If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then
Text1 = 0
Else
Text1 = 1
End If
والله الموفق
مرحبا سند نفس المشكلة يتغير dd ولكن الشهر وسنه فلا يتاثر بذلك
الكود يتغير مره واحده فقط في حال قمت بتغير مره تانية لا يستجيب
اخي العزيز عمر
ربما هناك التباس في فهم سؤالك يرجى ارفاق صورة لما يحدث عندك . رغم انه يعمل عندي بشكل طبيعي كما في الصورة المرفقه
(08-02-17, 02:13 AM)السيد الغالي كتب : [ -> ] (08-02-17, 01:47 AM)عمر سالم كتب : [ -> ] (08-02-17, 12:20 AM)السيد الغالي كتب : [ -> ] (07-02-17, 10:07 PM)عمر سالم كتب : [ -> ]وعليكم السلام استاذنا السيد اغالي
الكود يعمل في حال غير بداية الرقم في تاريخ
مثال
اذا تاريخ الموجود 07/01/2015
اذا قمت بتغير 09/01/2015 يشتغل
ولكن اذا قمت بتغير الي 01/01/2017
هنا المشكلة لا يعمل
يعني اذا غيرت الشهر او السنه لا يتغير
اخي العزيز عمر سالم السلام عليكم
بطبيعة الحال لا يتغير لان التاريخ (01/01/2017 ) اصغر من تاريخ اليوم لان الشرط يكون text1=0 في حال كان تاريخ اليوم اصغر
اسف اخي السيد اقصد 01/01/2018 فانه لايعمل
(08-02-17, 12:06 AM)sendbad100 كتب : [ -> ]السلام عليكم
جرب الكود التالي
كود :
If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then
Text1 = 0
Else
Text1 = 1
End If
والله الموفق
مرحبا سند نفس المشكلة يتغير dd ولكن الشهر وسنه فلا يتاثر بذلك
الكود يتغير مره واحده فقط في حال قمت بتغير مره تانية لا يستجيب
اخي العزيز عمر
ربما هناك التباس في فهم سؤالك يرجى ارفاق صورة لما يحدث عندك . رغم انه يعمل عندي بشكل طبيعي كما في الصورة المرفقه
اوك , سوف احاول توصيل فكرتي
اذا كتبت التاريخ هكذا 1 والذي هو اليوم و 2 والذي هو الشهر و 2017 هو السنه
فان الكود يقوم بقرائة اليوم اي 1 فقط ولا يلتفت لباقي الناريخ لا لشهر ولا لسنه
وبعدها اذا انت اردت تغير مثلا التاريخ فلا يتغير لا اكبر ولا اصغر يكون بقرائة اول قيمة ادخلتها
الا اذا رجعت من الفورم ودخلت عليه من جديد يتغير ولكن بنفس الطريقة اي يقوم بتعامل مع المعامل الاول والذي هو DD
ضع هذا الكود
Private Sub DTPicker1_Change()
If DTPicker1 > Date Then
Text1 = 0
Else
Text1 = 1
End If
End Sub
سيتاخر قليلا ولكنه يعمل بالاخير
مشكور جدا خوي السيد لكن لاسف نفس المشكلة
انا عايز من القصه هذه الاتي
انا عامل حقل اسمو hala اريد اذا كان التاريخ الموجود اكبر من تاريخ اليوم تكون قيمة هذا الحقل 0
واذا كان اصغر يساوي 1
عملت كود لكن ما ضبط قلت اجرب الطريقة الذي سالت عنها
لكم تحياتي