Private Sub Komut11_Click()

Dim rs As New ADODB.Recordset

rs.Open "OLAY", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim rs1 As New ADODB.Recordset

rs1.Open "PERSONEL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



Dim SID As String

Dim stLinkCriteria As String

SID = Me.[AY1].Value

stLinkCriteria = "[AY1]=" & "'" & SID & "'"



If DCount("*", "OLAY", "AY =AY1") > 0 Then





   MsgBox "Girdiğiniz  " _

          & SID & ".  Ay daha önce girilmiştir." _

          & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation, "Mükerrer Kayıt No Hatası...!"



Me.Undo

Else

If rs1.EOF <> True Then

Do



rs.AddNew

rs("PERNO") = rs1("PERSONEL NO")

rs("ADI") = rs1("ADI")

rs("SOYADI") = rs1("SOYADI")



rs("AY") = Me.AY1

rs.Update

rs1.MoveNext

Loop Until rs1.EOF



Set rs1 = Nothing

Set rs = Nothing

Set conn = Nothing



End If





Form.Requery

Exit Sub

End If



End Sub