16-09-13, 01:23 AM
السلام عليكم
- جرب تكتب الإستعلام بهذه الطريقة :
- جرب تكتب الإستعلام بهذه الطريقة :
كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=" & Trim(Text3.Text) & " Order By rank2 ASC"
Adodc1.CommandType = adCmdText
Adodc1.Refreshكود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
