Excelden Accesse Mükerrer Kayıt Sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excelden Accesse Mükerrer Kayıt Sorunu (/konu-excelden-accesse-mukerrer-kayit-sorunu.html) Sayfalar:
1
2
|
Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 17/03/2010 Merhabalar, Ekteki dosyada Excel üzerindeki bir userformdan, Access veri tabanına veri kaydediyorum. Aynı adda ikinci bir kayıt yapılamaması için kaydet koduna nasıl bir ekleme yapmam gerektiğini bulamadım. Yardımcı olabilirseniz sevinirim. Saygılar Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - Nurullah_Serdar - 17/03/2010 kaydet butonunun kodunun en sonuna Me.CommandButton1.Enabled = False bunu ekle Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 17/03/2010 Nurullah serdar Bey, merhabalar Vermiş olduğunuz kod comand butonu çalışmaz hale getiriyor. Benim ihtiyacım olansa kaydet butonuna basıldığında tb2 adlı textboxtaki değeri, Access tablosundaki adı sütununda kontrol edip daha önceden kaydedilmişse kayıt var mesajı verip tb2 textboxtaki değer değişmeden kayıt yapmaması. Kaydet kodları aşşağıdaki gibi Private baglan As Object, rs As Object 'Private Const veri = "deneme.mdb" Sub baglanti() Set baglan = CreateObject("adodb.connection") baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DENEME.mdb" End Sub Private Sub CommandButton1_Click() 'MBD DOSYASINA VERİ KAYDEDİYOR On Error Resume Next Kod = "'" & txb1 & "'" ad = "'" & tb2 & "'" soyad = "'" & tb3 & "'" cari = "'" & cb1 & "'" Call baglanti Set rs = baglan.Execute("INSERT INTO DENEMELER (Sira,Ad,Soyad,Cturu) Values (" & Kod & "," & ad & "," & soyad & "," & cari & ")") Set baglan = Nothing: Set rs = Nothing: listeye_al temizle MsgBox "Yeni kayıt eklendi." End Sub Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - Nurullah_Serdar - 17/03/2010 sorunu yanlış anlamışım.butonun kodunu Private Sub CommandButton1_Click() 'MBD DOSYASINA VERİ KAYDEDİYOR Call baglanti Set rs1 = New ADODB.Recordset rs1.Open ("select * from DENEMELER where ad='" & tb2 & "'"), baglan, adOpenStatic, adLockBatchOptimistic If rs1.RecordCount <> 0 Then MsgBox "bu kayıt daha önce girilhmiş" Exit Sub End If On Error Resume Next Kod = "'" & txb1 & "'" ad = "'" & tb2 & "'" soyad = "'" & tb3 & "'" cari = "'" & cb1 & "'" Set rs = baglan.Execute("INSERT INTO DENEMELER (Sira,Ad,Soyad,Cturu) Values (" & Kod & "," & ad & "," & soyad & "," & cari & ")") Set baglan = Nothing: Set rs = Nothing: listeye_al temizle MsgBox "Yeni kayıt eklendi." End Sub bununla değiştir Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 17/03/2010 Nurullah Serdar bey, Çok teşekkür ediyorum. Günlerdir bu kodları bulabılmek için çırpınıyordum. Umudumuda kaybetmek üzereydim. Elleriniz dert görmesin. İzniniz olursa, konuyla ilgili birşey daha sormak istiyorum. Kayıt kontrolünde ad ile birlikte soyad sütununuda kontrol etmem gerekirse koddaki düzenleme nasıl olmalı. Saygılar, Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - Nurullah_Serdar - 17/03/2010 rs1.Open ("select * from DENEMELER where ad='" & tb2 & "' and soyad='" & tb3 & "'"), baglan, adOpenStatic, adLockBatchOptimistic hem ad hem soyad değerleri aynı olanları bulur. |