Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/03/2010 11:45
Konu Sahibi
SİBEL70
Yorumlar
10
Okunma
4165
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

SİBEL70

Üye
Üye
 47
 11
 4
 17/02/2009
0
 İstanbul
 
 Ofis XP
 18/12/2014,23:39
Çözüldü 
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


Ek Dosyalar
.rar   mbd veri tabanı.rar(Dosya Boyutu: 20,8 KB / İndirme Sayısı: 34)

Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
 36
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 01/07/2013,13:21
Çözüldü 
kaydet butonunun kodunun en sonuna
Me.CommandButton1.Enabled = False
bunu ekle


İyiki Varsın Access Img-grin

Kullanici Avatari

SİBEL70

Üye
Üye
 47
 11
 4
 17/02/2009
0
 İstanbul
 
 Ofis XP
 18/12/2014,23:39
Çözüldü 
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



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
 36
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 01/07/2013,13:21
Çözüldü 
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.Recor DCount <> 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


İyiki Varsın Access Img-grin

Kullanici Avatari

SİBEL70

Üye
Üye
 47
 11
 4
 17/02/2009
0
 İstanbul
 
 Ofis XP
 18/12/2014,23:39
Çözüldü 
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,



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
 36
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 01/07/2013,13:21
Çözüldü 
rs1.Open ("select * from DENEMELER where ad='" & tb2 & "' and soyad='" & tb3 & "'"), baglan, adOpenStatic, adLockBatchOptimistic
hem ad hem soyad değerleri aynı olanları bulur.


İyiki Varsın Access Img-grin


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü UserForm sorunu kenan827 2 1.780 17/04/2018, 15:20
Son Yorum: Subco
Çözüldü Excel Veri Çekme Sorunu goksel86 7 1.081 26/05/2017, 16:14
Son Yorum: ozanakkaya
Çözüldü Alış Stok Listesinde Mükerrer kayıt uyarı versin kenevir47 15 1.795 04/01/2017, 12:45
Son Yorum: kenevir47
Çözüldü Excelden otomatik mail gönderme ve Onay istemesi yildiray 8 3.870 20/05/2016, 00:11
Son Yorum: ozanakkaya
Çözüldü Güncelleme ve Kaydetme sorunu yok_06 2 817 16/05/2016, 17:02
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.