- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
Merhaba arkadaşlar.
Aşağıdaki kod bloğu ile REHBER isimli veritabanına kayıt ekliyorum. İstiyorum ki yeni kayıt yaparken T.C Kimlik numarası ile mükerrer kayıt kontrolü yapılsın. Aynı kayıttan mevcut ise yeni kayıt yapılmasın.
Zamanı müsait olan arkadaşların ilgilenmesi ricasıyla.
Aşağıdaki kod bloğu ile REHBER isimli veritabanına kayıt ekliyorum. İstiyorum ki yeni kayıt yaparken T.C Kimlik numarası ile mükerrer kayıt kontrolü yapılsın. Aynı kayıttan mevcut ise yeni kayıt yapılmasın.
Zamanı müsait olan arkadaşların ilgilenmesi ricasıyla.
Kod:
Private Sub CommandButton1_Click() 'EKLE
If txtAdi.Text = "" Then
txtAdi.SetFocus
MsgBox ("Lütfen Adını Soyad Bilgisi Girin..."), 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 [KIMLIK] = " & yeniid, baglan, 1, 3
If rs.RecordCount = 0 Then
rs.AddNew
rs("KIMLIK") = yeniid.Value
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 tamamlandı.", , "Süleyman SAVAŞ"
End If
rs.Close
Set kayit = Nothing
listeye_al
temizle
End Sub