AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Excelden Accesse Mükerrer Kayıt Sorunu

1 2
17/03/2010, 16:50

SİBEL70

Çok teşekkür ediyorum. İyi bir gün geçirmenizi temenni ederim.

Saygılar,
20/03/2010, 15:33

SİBEL70

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,
20/03/2010, 15:59

ozanakkaya

eklediğiniz örnekte form yok, içerisinde kodu kullandığınız form olan örnek ekleyiniz.
21/03/2010, 02:39

SİBEL70

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,
22/03/2010, 15:40

ogulcan92

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
1 2