ايران ويج

کد: 
[align=left]

dIff = DateDiff("d", date1, date2)

If DateDiff("d", date1, date2) < 0 Then

w = MsgBox("")

Exit Sub

End If

  a = "Select * From Table3 Where DateDiff(""" & "d" & """,""" & date1 & """, MDate )<= """ & dIff & """  "

Adodc1.RecordSource = a

   Adodc1.Refresh

[/align]

اين كدو من براي پبدا كردن تاريخ( كه در داخل فيلد MDate ديتابيس هست) بين دو تاريخ ديگه كه داخل دو متغيير date1 و date2 هست نوشتم
مشگلش اينه كه بگير نگير داره يك دفعه كار ميكنه يك دفعه نميكنه ؟؟

مثلا اگه تاريخ داخل ديتابس(البته يكيش ) باشه 01/07/2006 و date1 هم باشه 28/06/2006 وdate2 هم باشه 31/07/2006 تابع چيزي رو بر نميگردونه ولي اگه همين date1 بشه 20/06/2006 جواب مبده اين يك موردشه
لطفا كمك كنيد

يكي جواب بده

electro-learning

electro-learning