Ama alttaki gibi kod çalışıyor.
Kod:
Private Sub Komut18_Click()
Dim bul
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs As Object, sonuc As Byte
sonuc = 0
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = CurrentProject.Connection
rs.Open "Select TC_kimlik,adi_soyadi,masa_no From tbl_ziyaretci_giris where " & _
"giris_saati=(select max(giris_saati) From tbl_ziyaretci_giris " & _
"where [TC_kimlik]= '" & TC_kimlik & "')", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
On Error Resume Next
If IsNull(rs.Fields.Item(0).Value) Or rs.Fields.Item(0).Value = "" Then
MsgBox "kayit yok", vbCritical
GoTo son
End If
sonuc = 1
Set db = CurrentDb
Set rs1 = db.OpenRecordset("tbl_ziyaretci_cikis", dbOpenTable, dbAppendOnly)
With rs1
.AddNew
!TC_kimlik = Nz(rs.Fields.Item(0).Value, Null)
!adi_soyadi = Nz(rs.Fields.Item(1).Value, Null)
!masa_no = Nz(rs.Fields.Item(2).Value, Null)
.Update
.Close
End With
son:
rs.Close
Set rs = Nothing
Set rs1 = Nothing
If sonuc = 1 Then MsgBox "Aktarildi", vbInformation, "Aktarma"
Me.TC_kimlik.Value = Empty
End Sub
