Skip to main content

AccessTr.neT


Mükerrer Kayıt Yapmak Istiyorum, Yapamıyorum.

Mükerrer Kayıt Yapmak Istiyorum, Yapamıyorum.

#25
@feraz hocam 
Kusura bakmayın ,
Çıkış yapmak için tc_kimlik girip, tamam dedikten sonra ekranı temizleyemedim. Bunu nasıl yapabilirim?
Son Düzenleme: 04/06/2020, 23:06, Düzenleyen: Mehmet007.
Cevapla
#26
(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.
Cevapla
#27
Rica ederim, iyi çalışmalar.
Cevapla
#28
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.
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

.rar kutuphane giris - Kopya.rar (Dosya Boyutu: 98,76 KB | İndirme Sayısı: 3)
Cevapla
#29
@feraz hocam
@berduş hocam

Elinize emeğinize sağlık.
Teşekkürler...
Cevapla
#30
Sorununuz çözüldü mü?
Konuyu cevaplanmışlara taşıyalım mı?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task