17/03/2010, 16:50
Sayfalar: 1 2
20/03/2010, 15:33
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,
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
eklediğiniz örnekte form yok, içerisinde kodu kullandığınız form olan örnek ekleyiniz.
21/03/2010, 02:39
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,
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
Sn:SİBEL70
Kaydet butonundaki kodu aşağıdaki şekilde değiştiriniz.
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 SubSayfalar: 1 2