Sayın hocalarım; yardımlarınızı bekliyorum.

Arkadaşlar ilginiz için teşekkür ederim. Sorununu hallettim.
İlgilenen arkadaşlar için sorunun çözülmüş hali.

Dim i, j As Integer

Dim rs As New ADODB.Recordset
rs.Open "TabloSonuc", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
DoCmd.SetWarnings True
For i = 1 To 10 Step 1
 e = 1
 rs.AddNew
 For j = 1 To 31 Step 1

  If Dlookup ("gunu", "TabloListe", "sirano=" & i) <> Dlookup ("gunadi", "TabloTarih", "sirano=" & j) Then GoTo 100
  rs("Adi") = Dlookup ("Adi", "TabloListe", "sirano=" & i)
  rs("gunu") = Dlookup ("gunu", "TabloListe", "sirano=" & i)
  rs("Tarih" & e) = Dlookup ("isgunleri", "TabloTarih", "sirano=" & j)
rs.Update
e = e + 1
100
Next
 
Next