[amro1965]

المشكلة بدأت خيوطها تتفك
انا عدلت فى بعض الاكواد والمتغيرات
لكن عند التنفيذ لا تعمل بشكل صحيح
ولا تباهى بتنفيذ قاعدة if
PoolConn
Dim RSt As New ADODB.Recordset
Dim str As String
Dim s As Date
Dim ss As Integer
str = "select * from T_Bank "
'
RSt.Open str, condb, adOpenDynamic, adLockOptimistic
'
Do While Not RSt.EOF
s = (RSt.Fields("date_spend"))
ss = (Month(s))
ss = Month(s)
' MsgBox (ss)
If ss > 9 Then

str = "update T_Bank set M_07 = 31 - day(date_spend) "
condb.Execute str
Else
str = "update T_Bank set M_07 = 0 "
condb.Execute str

End If


RSt.MoveNext
Loop
Adodc1.Refresh