biraz zor oldu benim için ama güzel oldu
Kod:
Private Sub Komut0_Click()
On Error Resume Next
Dim sor, bul As String
Dim tc, tcE As String
Dim yt, ytE As Date
Dim tg, tgE As Integer
Dim ilerle As Integer
Dim hatasay As Integer
Dim rs As New ADODB.Recordset
sor = "SELECT kadin_izlem.Kimlikno, kadin_izlem.YapilmaTar, kadin_izlem.ToplamGebelik, kadin_izlem.CanliDogum, kadin_izlem.OluDogum, kadin_izlem.YasayanCocuk, kadin_izlem.OlenCocuk, kadin_izlem.DusukSayi, kadin_izlem.ZorlaDusuk FROM kadin_izlem ORDER BY kadin_izlem.Kimlikno, kadin_izlem.YapilmaTar;"
rs.Open sor, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.MoveFirst
ilerle = 1
hatasay = 0
Do
If ilerle <> 1 Then
If tcE = rs.Fields("Kimlikno") Then
If ytE < rs.Fields("YapilmaTar") Then
If tgE > rs.Fields("ToplamGebelik") Then
Dim ds As New ADODB.Recordset
ds.Open "hatali", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
ds.AddNew
ds.Fields("Kimlikno") = rs.Fields("Kimlikno")
ds.Fields("YapilmaTar") = rs.Fields("YapilmaTar")
ds.Fields("YapilmaTarE") = ytE
ds.Fields("ToplamGebelik") = rs.Fields("ToplamGebelik")
ds.Fields("ToplamGebelikE") = tgE
ds.Update
ds.Close
Set ds = Nothing
End If
End If
End If
End If
tcE = rs.Fields("Kimlikno")
ytE = rs.Fields("YapilmaTar")
tgE = rs.Fields("ToplamGebelik")
rs.MoveNext
ilerle = ilerle + 1
Loop Until rs.EOF
rs.Close
End Sub