+- 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
Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 17/03/2010
Çok teşekkür ediyorum. İyi bir gün geçirmenizi temenni ederim.
Saygılar,
Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 20/03/2010
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,
Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - ozanakkaya - 20/03/2010
eklediğiniz örnekte form yok, içerisinde kodu kullandığınız form olan örnek ekleyiniz.
Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - SİBEL70 - 21/03/2010
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,
Cvp: Excelden Accesse Mükerrer Kayıt Sorunu - ogulcan92 - 22/03/2010
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