04/06/2020, 23:04
Mükerrer Kayıt Yapmak Istiyorum, Yapamıyorum.
04/06/2020, 23:33
feraz
(04/06/2020, 13:29)berduş yazdı: sayın @feraz, sadece temel mantığı göstermek için hazırlandı, o nedenle ekleme arama silme gibi bir çok özellik yok
Sağol abey.
04/06/2020, 23:36
berduş
Rica ederim, iyi çalışmalar.
04/06/2020, 23:38
feraz
Alttaki kodu deneyin abey.Ado ile ekleme yaptıramadım tek başına Dao ile yaptım berduş hocamız el atarsa seviniriz.Tek Ado ile yapınca addnew de hata veriyor.
Ama alttaki gibi kod çalışıyor.
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 05/06/2020, 16:28
berduş
Sorununuz çözüldü mü?
Konuyu cevaplanmışlara taşıyalım mı?
Konuyu cevaplanmışlara taşıyalım mı?