هل من الممكن تنبيه عن تاريخ داخل الداتا جريد؟
بحيث عندما يتساوى تاريخ داخل الداتا جريد مع تاريخ اليوم تظهر رساله تنبيه msgbox

على افتراض أن الداتا جريد سيتم استقاء بيانتها من قاعدة b بيانات و بها جدول tabb و الحقل الذى سيتم تخزين فية التواريخ المراد التنبيه عنها .....فإن الحل سيكون على النحو التالى :

الكود:

Call egy
R.Open "select * from tabb ", b, 1, 2

Do While Not R.EOF
    If R!dateeg = Date  Then
MsgBox "الرسالة"

End If

R.MoveNext
Loop


فى السطر الاول ....قمت بعمل اجراء لفتح قاعدة البيانات ...واعتقد انت تعلمه جيدا

فى السطر الثانى ......قمنا بفتح جدول البيانات tabb

فى السطر الثالث ....قمنا بعمل حلقة تكرارية و ذلك ربما يكون هناك اكثر من حقل يتضمن تاريخ اليوم ....لذلك علمنا تلك الحلقة للمرور على كل سجلات الحقل dateeg...اما اذا اردت ان يظهر لك اول تاريخ فى الحقل dateeg فلا داعى لتلك الحلقة التكرارية .

فى السطر الرابع ....أستخدمنا جمل شرط للتأكد من وجود سجل فى الحقل dateeg يساوى تاريخ اليوم فإن كان ذلك صحيحا يتم عرض الرسالة المرادة



يمكنك ملاحظة اننا لم نتعامل مع الاداة داتاجريد و انما تعاملنا مع الجدول و الحقول التى سيتم تعبئة الاداة داتاجريد منها

شكراااااا اخى الحبيب فى الحقيقه انا ما عندى كلام اهديه لك غير بدعائى وهو ربنا يفرح قلبك عما قريب كما فرحتنى

لكن عندى استفسار يخصوص اول سطر بصراحه انا دا اول برنامج بصممه ومش اعرف شىء عن الاستدعاء انا كنت بربط الداتا بيز عن طريق العناصر الى بتكون فى اللمين من ريكورد سورس وداتا نيم لو فى موضوع قديم بيتكلم عن الربط او الاستدعاء بشكل اوضح يكون شىء كويس جدا

طرق الربط المختلفة على الروابط التالية :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

سامحنى م/أحمد انا فى حاجه ان حضرتك تفهمنى ايه العلاقه بين الاستدعاء ب call
وبين استخدامى انا باتصالى بالداتا بيز بالطريقه العاديه الى هى داتا نيم / ريكورد سيت
واستعمال السيكوال فى الاستعلام مثالا
data1.recordsurs ="select date from alw"او استعمال الشرط where ضمن استعلام سيكوال
حيث ان date هو فلد التاريخ ..و law هو اسم الجدول ...والداتا بيز هى اكسيس
دى كل معلوماتى بالنسبه لأتصالى بالداتا بيز
ياريت يا م/أحمد تساعدنى وتعرفنى ايه الفرق بين call وباقيه السطور بمعلوماتى الى ذكرتها ولك كل الشكر واسفى لك وعارف انك اكيد هتطفش من المنتدى بسببى بس مفيش مشكله بعملك منتدى جديد وبهدولك هديه لو ده حصل ...

أهلا وسهلا بك أخى الكريم ....بداية أنا ما مهندس انا اساسا خريج تجارة وكنت فاشل فيها كمان لذلك لا داعى للالقاب بيتننا فقط نادى أحمد مناع ....وكما أخبرتك سابقا فأنا وجميع الاخوة فى المنتدى تحت امرك و نتمنى من الله أن نكون عند حسن ظنك ....

أما بالنسبة للكود Call egy هو مجرد إجراء قمت بعمله لفتح قاعدة البيانات ....ففى البرامج الكبير ليس من المعقول فى كل مرة أريد أن أفتح فيها قاعدة البيانات سواء للاضافة أو الحذف أو التعديل و خلاله أن أقوم بكتابة نص الاتصال كل مرة كما يلى :

الكود:


If b.State = adStateOpen Then b.Close

b.CursorLocation = adUseClient
 
b.Provider = "Microsoft.JET.OLEDB.4.0;"
b.Open App.path & "\pj.mdb"


لذلك و اختصار للاكواد بقوم بعمل ما يسمى إجراء sud و يتم إنشاءة سواء على مستوى المشروع ككل أو على مستوى النافذة وبداخله نص الاتصال بقاعدة البيانات وحتى يتسنى لى استخدامها فيما بعد بسطر كود واحد

ففى مثالنا هذا قمت بعمل إجراء يسمى egy بداخل موديل و قد كان على النحو التالى :

الكود:

Sub egy()

If b.State = adStateOpen Then b.Close

b.CursorLocation = adUseClient
 
b.Provider = "Microsoft.JET.OLEDB.4.0;"
b.Open App.path & "\pj.mdb"

End Sub


واقوم بالاتصال به من أى مكان فى المشروع با استخدام سطر واحد حينما اريد فتنح قاعدة البيانات بالسطر التالى :

الكود:

Call egy

فقط هذا كل ما فى الامر ....و أن كنت لا تريد موضوع الاجراء هذا فقط قم بكتابة نص الاتصال بقاعدة البيانات بدلا منه ...



أما اذا كنت تستخدام الاداة Adodc1 فإن الكود سيكون على النحو التالى :

الكود:

Do While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset!dat = Date Then
MsgBox "الرسالة"

End If

Adodc1.Recordset.MoveNext
Loop


مع ملاحظة أن dat هو الحقل الذى يحتوى على التاريخ

انا بستعمل اداة داتا مش ادو وجربت الكود ده لكن ما فلح معايا

Private Sub Form_Load()

Do While Not Data1.Recordset.EOF
If Data1.Recordset!Data = Date Then
MsgBox "ÇáÑÓÇáÉ"

End If

Data1.Recordset.MoveNext
Loop

أذن أخى الكريم قم برفع مثالك للاطلاع عليه

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

تشكر اخى العزيز وده مثالى

أهلا بك مجددا أخى الكريم



لقد أطلعت على مشروعك وكان سبب الخطأ فى الاتى :



1_ قمت بتسمية حقل التاريخ فى قاعدة البيانات بأسم Date فى حين أن تلك الكلمة من الكلمات المحجوزة فى لغة الفجوال بيسك التى قد تسبب اخطاء اذا قمت بتسمية أحد حقول جدول البيانات بها



2_ تنسيق التاريخ ففى قاعدة البيانات التاريخ يأخذ الشكل التالى 30/05/2013 فى حين ربما يكون تنسيق التاريخ الجهاز غير ذلك بأن يأخذ الشكل 30/مايو/2013 لذلك لن تظهر نتائج





و الحل قد ارفقت لك مثال لكن ليس بالاداة data1 ولكن بالاداة adodc ....و السبب فى كونى أستخدمت الاخيرة لان قاعدة البيانات التى ارفقتها مع مثال بتنسيق 97 ولم استطيع فتحها حتى اقوم بتعديل أسم حقل التاريخ ....لذلك قمت بانشاء قاعدة بيانات 2007 تحتوى نفس بيانات قاعدة بياناتك ....ومع كل ذلك كتب لك الكود الخاص فى التعليق لمثالك اذا أحببت أستخدام data1 كل ما عليك فعله هو تغير اسم الحقل الى اسم مناسب

اشششششششششششششششششششششششكرك اووووووووووووووووووووى اوووووووووووووى لتعبك معى وجارى التحميل والمتابعة ربنا يفرح قلبك