السلام عليكم و رحمة الله
كيف الحال اعضاء المنتدى
هذا كود شغال تمام للبحث عن قبل تاريخ اليوم او تاريخ معين
انا ابي التعديل عليه إظهار جميع التواريخ في هذه السنة
كود :
Adodc1.RecordSource = "Select * From individuals Where maturitdate #" & Format(X, "mm/dd/yyyy") & "#"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
امل المساعده وشكرآ لكم
السلام عليكم
- هذا التعديل على الكود لكي يظهر السجلات التي تاريخها في سنة 1434 .
كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=1434"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
- تحياتي .
شكرآ لك بارك الله فيك
امل المساعدة عند وضع متغير
وضع متغير في الكود
Text3.Text
السلام عليكم
- هل غيرت رقم السنه في الإستعلام أم لا ؟
ابي يكون متغير
في Text3.Text
يدخل من المستخدم لبرنامج
السلام عليكم
- هذا الكود بعد تعديله :
كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=" & Trim(Text3.Text)
Adodc1.CommandType = adCmdText
Adodc1.Refresh
- تحياتي .
شكرآ لك اخي بارك الله فيك
شغال الكود 100%100
بس عند إضافة كود الفرز
Order By rank2 ASC
يظهر لي خطآ
امل المساعده
السلام عليكم
- جرب تكتب الإستعلام بهذه الطريقة :
كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=" & Trim(Text3.Text) & " Order By rank2 ASC"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
شكرآ لك اخي بارك الله فيك
السلام عليكم اخوان سؤالي هو كيف اربط بين جدولين داخل الفيجوال ارجو منكم الرد اخوان وباسرع وقت ممكن