• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Soru Access veritabanına kayıtta mükerrer kayıt engelleme?

s.savas

Altın Üye
Altın Üye
Katılım
11 Ocak 2009
Mesajlar
617
Beğeniler
3
Excel Vers. ve Dili
2003
#21
Merhaba,

Sorguyu aşağıdaki gibi deneyin. Tc alanını access'te metin olarak oluşturduğunuz için hata veriyordu.

Kod:
 rs.Open "select * from [REHBER] where [TC_KIMLIK] = '" & txtTCKimlik & "'", baglan, 1, 3
Aşağıdaki satırı'da koddan kaldırın. Ona göre yok , otomatik sayı alanı olduğu için.

Kod:
rs("KIMLIK") = yeniid.Value
Teşekkürler hocam.
Yeni kayıt işleminde T.C Kimlik ten mükerrerlik kontrolü yapılıyor.
1.PNG
Aynı kontrolü kayıt güncelleme modülünde de yapabilirmiyiz.
Kod:
Private Sub CommandButton2_Click() 'GÜNCELLE
On Error Resume Next

If txtAdi.Text = "" Then
txtAdi.SetFocus
MsgBox ("Lütfen Listeden çift tık ile kişi seçin ..."), vbInformation, "Süleyman SAVAŞ"
Exit Sub
End If

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call baglanti
 
  rs.Open "select * from REHBER where REHBER.KIMLIK like '%" & txKimlik.Text & "%'", baglan, 1, 2

If rs.RecordCount > 0 Then


 rs("ADI_SOYADI") = txtAdi.Value
 rs("TC_KIMLIK") = txtTCKimlik.Value
 rs("SICIL") = txtSicil.Value
 rs("IL") = cmbIL.Value
 rs("ILCE") = cmbILCE.Value

           rs.Update
          
MsgBox txtAdi & " adlı kayıt başarı ile güncellendi.", , "Süleyman SAVAŞ"
End If
        rs.Close

listeye_al
temizle
End Sub
 

kuvari

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
2,737
Beğeniler
11
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#22
Benim görüşüm veritabanı işlemlerinde kayıt güncelleme yapmayın.
En iyisi iptal ederek , yeniden kayıt girmek.

Kayıt güncellemek için listwiev' e bakmam lazım ama 64 bit kullandığım için nesne bende çalışmıyor.
Listbox kullanmanız standart açısından daha iyi olur.
 

s.savas

Altın Üye
Altın Üye
Katılım
11 Ocak 2009
Mesajlar
617
Beğeniler
3
Excel Vers. ve Dili
2003
#23
Benim görüşüm veritabanı işlemlerinde kayıt güncelleme yapmayın.
En iyisi iptal ederek , yeniden kayıt girmek.

Kayıt güncellemek için listwiev' e bakmam lazım ama 64 bit kullandığım için nesne bende çalışmıyor.
Listbox kullanmanız standart açısından daha iyi olur.
Listbox ile listview kullanım tercihi açısından her hangi bir ön yargı veya önkabulüm yok. Dediğim gibi excel ile acces veritabanı kullanımı hakkında temelden başlayıp yavaş yavaş ilerlemek istiyorum.
Yardımcı olursanız diğer bir sorunu arz etmek istiyorum.
Veritabanındaki iller ve ilçeler alanlarından comboboxlara veri alıyorum. Comboxlarda veri varken temizle modülü çalışınca aşağıdaki hatayı veriyor.
Kod:
Private Sub UserForm_Initialize()
       
listeye_al

End Sub

Private Sub listeye_al()
...'kodlar'
cmbIL.Column = baglan.Execute("select distinct [il]  from [iller]").GetRows
End Sub

Private Sub cmbil_Change()
Dim s As String
s = "select evn.[ilce] from [ilceler] as evn INNER JOIN [iller] as T ON evn.[il_ID]= T.[id] where T.[il]='" & cmbIL.Text & "'"
cmbILCE.Column = baglan.Execute(s).GetRows

End Sub

Private Sub temizle()
txKimlik = ""
txtAdi = ""
txtTCKimlik = ""
txtSicil = ""
cmbIL = ""
cmbILCE = ""

txtAdi.SetFocus
End Sub
1.PNG
2.PNG
 

s.savas

Altın Üye
Altın Üye
Katılım
11 Ocak 2009
Mesajlar
617
Beğeniler
3
Excel Vers. ve Dili
2003
#25
Dosyanız hata veriyordu. Sadece veri girişi yapan örnek dosyanın linki aşağıda
http://s3.dosya.tc/server17/s21igw/ornek.zip.html
Not Access dosyasındaki TC_KIMLIK alanını Metin yapın.
Teşekkür ederim arkadaşım. Ortaya çıkan sorunlar değerli uzman arkadaşların yardımlarıyla yavaş yavaş çözülüyor.
Şimdilik çözüm bekleyen sorun: Kayıt güncelleme işleminde de mükerrer kayıt sorgusu yapılması gerekiyor.
 

s.savas

Altın Üye
Altın Üye
Katılım
11 Ocak 2009
Mesajlar
617
Beğeniler
3
Excel Vers. ve Dili
2003
#27
Access ile yeni tanışıyorum. Öğrenmek için yeterli ve detaylı bir kaynak henüz bulamadım

SM-N910C cihazımdan Tapatalk kullanılarak gönderildi
 
Üst