11-08-14, 09:01 AM
السلام عليكم
Dim d1, d2 As String
d1 = Format(Me.DTPicker3.Value, "yyyy/MM/dd")
d2 = Format(Me.DTPicker4.Value, "yyyy/MM/dd")
Adodc1.RecordSource = "select * from bayan where dat2 Between #" & d1 & "# AND #" & d2 & "# Order By dat2 ASC"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
- تحياتي .
Dim d1, d2 As String
d1 = Format(Me.DTPicker3.Value, "yyyy/MM/dd")
d2 = Format(Me.DTPicker4.Value, "yyyy/MM/dd")
Adodc1.RecordSource = "select * from bayan where dat2 Between #" & d1 & "# AND #" & d2 & "# Order By dat2 ASC"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next