اختيار يوم اخر يوم الخميس

Dim rs As Recordset, i As Integer, x As Double
Set rs = CurrentDb.OpenRecordset("curr")

If Weekday(Date) <> 7 Then GoTo notsaturday
With rs
.MoveLast
.MoveFirst
x = .RecordCount
For i = 1 To x
CurrentDb.Execute ("insert into rate ( currid, rate, rate_date ) values ( " & !currid & "," & DMax("rate", "rate", "currid =" & !currid) & ",#" & Date & "#);")
.MoveNext
Next
End With

notsaturday:
rs.Close
Set rs = Nothing
End Sub

Private Sub Form_Open(Cancel As Integer)