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
Kritere Göre Ayın o Günlerini Tabloya Ekleme
Bu Konudaki Yorumlar |
Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 04/01/2015, 23:19
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: mehmetdemiral - 05/01/2015, 01:37
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 05/01/2015, 17:10
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: ozanakkaya - 06/01/2015, 17:39
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 06/01/2015, 19:46
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 07/01/2015, 19:40
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 08/01/2015, 23:45
Cvp: Kritere Göre Ayın o Günlerini Tabloya Ekleme - Yazar: idrisy - 09/01/2015, 17:44
|
Konuyu Okuyanlar: 1 Ziyaretçi