- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
Merhaba arkadaşlar.
Userform3 ile access veritabanına kayıt ekle, değiştir ve sil işlemlerini deneme yanılma ile yapmaya çalışıyorum.
Kayıt ekle ve sil kodları çalışırken değiştir kodu çalışmıyor.
Nerede hata yapıyorum.
Userform3 ile access veritabanına kayıt ekle, değiştir ve sil işlemlerini deneme yanılma ile yapmaya çalışıyorum.
Kayıt ekle ve sil kodları çalışırken değiştir kodu çalışmıyor.
Nerede hata yapıyorum.
Kod:
Private Sub Kayıt_ekle()
On Error GoTo hata
kurum = "'" & txtKURUM & "'"
Call BAGLANTI
Set rs = BAGLAN.Execute("INSERT INTO Tablo_KURUM (KURUMU) Values (" & kurum & ")")
Set BAGLAN = Nothing: Set rs = Nothing:
listeye_al
temizle
MsgBox " " & kurum & " başarı ile eklendi.", vbInformation + vbOKOnly, "Kayıt ekleme"
Label25.Caption = "Toplam kayıt:" & ListBox1.ListCount
hata:
If Err = -2147217913 Then
MsgBox "Hatalı değer girdiniz.", vbCritical + vbOKOnly, "Hata"
End If
End Sub
Kod:
Private Sub değiştir()
On Error GoTo hata
Dim kimlik As Integer
kimlik = txKimlik
kurumu = "'" & txtKURUM & "'"
Call BAGLANTI
Set rs = BAGLAN.Execute("UPDATE FROM Tablo_KURUM WHERE Kimlik=" & kimlik)
'Set rs = BAGLAN.Execute("UPDATE Tablo_KURUM SET KURUMU=" & kurum & "WHERE KIMLIK=" & kimlik)
Set BAGLAN = Nothing: Set rs = Nothing:
listeye_al
temizle
MsgBox " " & kurumu & " isimli kayıt güncellendi.", vbInformation + vbOKOnly, "Kayıt yenileme"
hata:
If Err = -2147217913 Then
MsgBox "Bu bir hatadır.", vbCritical + vbOKOnly, "Hata"
End If
End Sub
Kod:
Private Sub Kayıt_Silmek()
If txKimlik = "" Then
MsgBox "Önce listeden çift tıklayarak bir veri seçin.", vbCritical + vbOKOnly, "Rehberden kayıt silmek"
Exit Sub
End If
Dim kimlik As Integer
kimlik = txKimlik
Call BAGLANTI
Set rs = BAGLAN.Execute("DELETE FROM Tablo_KURUM WHERE Kimlik=" & kimlik)
Set BAGLAN = Nothing: Set rs = Nothing:
listeye_al
temizle
MsgBox kimlik & " seri numaralı kayıt silindi.", vbInformation + vbOKOnly, "Kayıt silme"
Label25.Caption = "Toplam kayıt:" & ListBox1.ListCount
End Sub