+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kritere Göre Ayın o Günlerini Tabloya Ekleme (/konu-kritere-gore-ayin-o-gunlerini-tabloya-ekleme.html)
Sayfalar:
1
2
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - idrisy - 08/01/2015
Sayın hocalarım; yardımlarınızı bekliyorum.
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - idrisy - 09/01/2015
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