Skip to main content

AccessTr.neT


Excelden Accesse Mükerrer Kayıt Sorunu

Excelden Accesse Mükerrer Kayıt Sorunu

Çözüldü #7
Çok teşekkür ediyorum. İyi bir gün geçirmenizi temenni ederim.

Saygılar,
Cevapla
Çözüldü #8
Merhabalar,

Ekteki dosyada Nurullah Serdar Bey'in verdiği kodları uyguladığımda istediğim gibi, aynı veri olursa Access dosyasına veriyi kaydetmiyor. Ancak Kaydet butonundaki listeye_al komutu devre dışı kalıyor. Kodda ki

rs1.Open ("select * from MusteriListesi where FirmaAdi='" & tbmbfirmaadi & "'"), baglan, adOpenStatic, adLockBatchOptimistic

If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilhmiş"
Exit Sub
End If

Satırı iptal edildiğinde tekrar listeye almaya başlıyor. Bu sorunu giderebilmek nasıl mümkün olabilir?

Saygılar,
.rar ALSPRO2.rar (Dosya Boyutu: 24,33 KB | İndirme Sayısı: 20)
Cevapla
Çözüldü #9
eklediğiniz örnekte form yok, içerisinde kodu kullandığınız form olan örnek ekleyiniz.
Cevapla
Çözüldü #10
Sayın sledgeab,

Form, ekli klasör içerisindeki Excel dosyasındadır. Ado ile excelden Access üzerine veri kaydetmek için çalışıyorum.

Saygılar,
Cevapla
Çözüldü #11
Sn:SİBEL70
Kaydet butonundaki kodu aşağıdaki şekilde değiştiriniz.

Kod:
Private Sub mbkaydet_Click()

'MBD DOSYASINA VERİ KAYDEDİYOR
Call baglanti
Set rs1 = New ADODB.Recordset
rs1.Open ("select * from MusteriListesi where FirmaAdi='" & tbmbfirmaadi & "'"), baglan, adOpenStatic, adLockBatchOptimistic

If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilhmiş"
Exit Sub
End If
Sira = "'" & tbmbkayitno & "'"
ckod = "'" & tbmbcarikod & "'"
firma = "'" & tbmbfirmaadi & "'"

Set rs = baglan.Execute("INSERT INTO MusteriListesi (Sirano,MusteriId,FirmaAdi) Values (" & Sira & "," & ckod & "," & firma & ")")
Set baglan = Nothing: Set rs = Nothing:

temizle
MsgBox "Yeni kayıt eklendi."
listeye_al
End Sub

OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task