selamlar
excelde verilerimi access veri tabanı kullanarak yapıyorum
kaydetme işleminde aynı kayıt varsa uyarması lazım
normalde veri tabanı excel olsa kodlarım var fakat access de biraz yeniyim
ve işi çözemedim yardımcı olursanız sevinirim
kodlar aşağıda
saygılar
Private Sub KAYDET_Click()
'aynı veri varmı bak
For BAK = 1 To [B65500].End(xlUp).Row
If Range("B" & BAK) Like ComboBox1 Then
MsgBox "BU İSİMDE BİR KAYDINIZ VAR DEĞİŞTİRİN", vbInformation
KIRMIZI KODLARLA EXCEL SAYFASINDA AYNI KAYIT VARSA UYARI ALABİLİYORUM FAKAT İŞ ACCESS OLUNCA İŞLER KARIŞTI
KOD = "'" & TextBox2 & "'"
isim = "'" & TextBox3 & "'"
mahalle = "'" & TextBox4 & "'"
cadde = "'" & TextBox5 & "'"
sokak = "'" & TextBox6 & "'"
apt = "'" & TextBox7 & "'"
kat = "'" & TextBox8 & "'"
kapı_no = "'" & TextBox9 & "'"
tel_ev = "'" & TextBox10 & "'"
tel_iş = "'" & TextBox11 & "'"
gsm = "'" & TextBox12 & "'"
NOTLAR = "'" & TextBox13 & "'"
Call baglanti
Set rs = baglan.Execute("INSERT INTO MUSTERİ_REHBERİ (KODU,İSİM,MAHALLE,CADDE,SOKAK,APT,KAT,KAPI_NO,TEL_EV,TEL_İŞ,GSM,NOTLAR) Values (" & KOD & "," & isim & "," & mahalle & "," & cadde & "," & sokak & "," & apt & "," & kat & "," & kapı_no & "," & tel_ev & "," & tel_iş & "," & gsm & "," & NOTLAR & ")")
Set baglan = Nothing: Set rs = Nothing:
listeye_al
Application.ScreenUpdating = True
'ilerleme çubuğunu çalıştır
On Error Resume Next
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i / 10000 * 260
Next
'ilerleme çubuğunu gizle
ProgressBar1.Visible = False
MsgBox "İŞLEM TAMAM.", vbInformation + vbOKOnly, "AYDIN YAPI"
Label13.Caption = "Toplan kayıt= " & ListBox1.ListCount
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
End Sub
excelde verilerimi access veri tabanı kullanarak yapıyorum
kaydetme işleminde aynı kayıt varsa uyarması lazım
normalde veri tabanı excel olsa kodlarım var fakat access de biraz yeniyim
ve işi çözemedim yardımcı olursanız sevinirim
kodlar aşağıda
saygılar
Private Sub KAYDET_Click()
'aynı veri varmı bak
For BAK = 1 To [B65500].End(xlUp).Row
If Range("B" & BAK) Like ComboBox1 Then
MsgBox "BU İSİMDE BİR KAYDINIZ VAR DEĞİŞTİRİN", vbInformation
KIRMIZI KODLARLA EXCEL SAYFASINDA AYNI KAYIT VARSA UYARI ALABİLİYORUM FAKAT İŞ ACCESS OLUNCA İŞLER KARIŞTI
KOD = "'" & TextBox2 & "'"
isim = "'" & TextBox3 & "'"
mahalle = "'" & TextBox4 & "'"
cadde = "'" & TextBox5 & "'"
sokak = "'" & TextBox6 & "'"
apt = "'" & TextBox7 & "'"
kat = "'" & TextBox8 & "'"
kapı_no = "'" & TextBox9 & "'"
tel_ev = "'" & TextBox10 & "'"
tel_iş = "'" & TextBox11 & "'"
gsm = "'" & TextBox12 & "'"
NOTLAR = "'" & TextBox13 & "'"
Call baglanti
Set rs = baglan.Execute("INSERT INTO MUSTERİ_REHBERİ (KODU,İSİM,MAHALLE,CADDE,SOKAK,APT,KAT,KAPI_NO,TEL_EV,TEL_İŞ,GSM,NOTLAR) Values (" & KOD & "," & isim & "," & mahalle & "," & cadde & "," & sokak & "," & apt & "," & kat & "," & kapı_no & "," & tel_ev & "," & tel_iş & "," & gsm & "," & NOTLAR & ")")
Set baglan = Nothing: Set rs = Nothing:
listeye_al
Application.ScreenUpdating = True
'ilerleme çubuğunu çalıştır
On Error Resume Next
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i / 10000 * 260
Next
'ilerleme çubuğunu gizle
ProgressBar1.Visible = False
MsgBox "İŞLEM TAMAM.", vbInformation + vbOKOnly, "AYDIN YAPI"
Label13.Caption = "Toplan kayıt= " & ListBox1.ListCount
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
End Sub