Merhabalar,
Aşağıdaki kodlar ile,excel üzerindeki userform ile accessdeki veri sayfasına kayıt yaparken ilgili kaydın olup olmadığınında kontrolünü yapmak istedim. Kodlar kaydın kontrolünü yapıyor ancak kontrol ettiği verilerden biri bile varsa kayıt mevcut uyarısı veriyor. Kodlarda nasıl bir düzeltme yapmalıyızki ancak bütün kriteler uyuyorsa kayıt mevcut uyarısını versin, ama biri bile değişmişse kaydı yapsın.
Yardımcı olabilirseniz sevinirim.
Private Sub mbkaydet_Click()
On Error Resume Next
'MBD DOSYASINA VERİ KAYDEDİYOR
Call baglanti
Set rs1 = New ADODB.Recordset
rs1.Open ("select * from MusteriCariListe where EvrakNo='" & tbcmcevrakno & "' and Tarih='" & tbcmbtarih & "'and CariKod='" & tbcmcarikod & "'"), baglan, adOpenStatic, adLockBatchOptimistic
If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilmiş"
Exit Sub
End If
CAdi = "'" & tbmbccariad & "'"
ktarih = "'" & tbcmbtarih & "'"
firma = "'" & tbcmbfirmaadi & "'"
aciklama = "'" & tbcmcaciklama & "'"
evrakno = "'" & tbcmcevrakno & "'"
irsaliyeno = "'" & tbcmcirsno & "'"
borc = "'" & tbcmbborctutar & "'"
alacak = "'" & tbcmbalacaktutar & "'"
donem = "'" & tbcmcdonem & "'"
mckod = "'" & tbcmcarikod & "'"
mcvergidaire = "'" & tbcmcvergidaire & "'"
mcvergino = "'" & tbcmcvergino & "'"
Set rv = baglan.Execute("INSERT INTO MusteriCariListe (CariAdi,Tarih,FirmaAdi,Aciklama,EvrakNo,IrsaliyeNo,Borc,Alacak,Donem,CariKod,VergiDaire,VergiNo) Values (" & CAdi & "," & ktarih & "," & firma & "," & aciklama & "," & evrakno & "," & irsaliyeno & "," & borc & "," & alacak & "," & donem & "," & mckod & "," & mcvergidaire & "," & mcvergino & ")")
Set baglan = Nothing: Set rs = Nothing:
MsgBox "Yeni kayıt başarıyla eklendi.", vbInformation + vbOKOnly, "ALSPRO MÜŞTERİ CARİ"
tbcmbtarih.Text = ""
End Sub
Saygılar,
Aşağıdaki kodlar ile,excel üzerindeki userform ile accessdeki veri sayfasına kayıt yaparken ilgili kaydın olup olmadığınında kontrolünü yapmak istedim. Kodlar kaydın kontrolünü yapıyor ancak kontrol ettiği verilerden biri bile varsa kayıt mevcut uyarısı veriyor. Kodlarda nasıl bir düzeltme yapmalıyızki ancak bütün kriteler uyuyorsa kayıt mevcut uyarısını versin, ama biri bile değişmişse kaydı yapsın.
Yardımcı olabilirseniz sevinirim.
Private Sub mbkaydet_Click()
On Error Resume Next
'MBD DOSYASINA VERİ KAYDEDİYOR
Call baglanti
Set rs1 = New ADODB.Recordset
rs1.Open ("select * from MusteriCariListe where EvrakNo='" & tbcmcevrakno & "' and Tarih='" & tbcmbtarih & "'and CariKod='" & tbcmcarikod & "'"), baglan, adOpenStatic, adLockBatchOptimistic
If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilmiş"
Exit Sub
End If
CAdi = "'" & tbmbccariad & "'"
ktarih = "'" & tbcmbtarih & "'"
firma = "'" & tbcmbfirmaadi & "'"
aciklama = "'" & tbcmcaciklama & "'"
evrakno = "'" & tbcmcevrakno & "'"
irsaliyeno = "'" & tbcmcirsno & "'"
borc = "'" & tbcmbborctutar & "'"
alacak = "'" & tbcmbalacaktutar & "'"
donem = "'" & tbcmcdonem & "'"
mckod = "'" & tbcmcarikod & "'"
mcvergidaire = "'" & tbcmcvergidaire & "'"
mcvergino = "'" & tbcmcvergino & "'"
Set rv = baglan.Execute("INSERT INTO MusteriCariListe (CariAdi,Tarih,FirmaAdi,Aciklama,EvrakNo,IrsaliyeNo,Borc,Alacak,Donem,CariKod,VergiDaire,VergiNo) Values (" & CAdi & "," & ktarih & "," & firma & "," & aciklama & "," & evrakno & "," & irsaliyeno & "," & borc & "," & alacak & "," & donem & "," & mckod & "," & mcvergidaire & "," & mcvergino & ")")
Set baglan = Nothing: Set rs = Nothing:
MsgBox "Yeni kayıt başarıyla eklendi.", vbInformation + vbOKOnly, "ALSPRO MÜŞTERİ CARİ"
tbcmbtarih.Text = ""
End Sub
Saygılar,