27/12/2022, 12:16
sayın arkadaşlar mükerrer kayıt kontrolünde düzenleme ile ilgili sitede bir çok uygulamayı inceledim ancak kendi projeme uyarlayamadım. yeni kayıt ve düzenle click olaylarındaki kodları ekliyorum. nerde hata yapıyorum bulamadım yardımcı olabilirseniz sevinirim. teşekkürler
Problemli kod
yardımlarınız bekliyorum.
saygılar.
Private Sub Yeni_Kayıt_Click() ( Bu kod görevini yapıyor. mükerrek kayıt kontrolu yapıyor ve kaydediyor.)
On Error GoTo Err_Yeni_Kayıt_Click
Call Butonac
Call Alanac
If Me.Yeni_Kayıt.Caption = "Yeni Kayıt" Then
Call Temizle1
ekle = True
guncelle = False
A1 = DMax("MüsteriNo", "T_MÜSTERİLER")
If IsNull(A1) Then A1 = 0
Me.txtMüsteriNoo = A1 + 1
Me.txtMüsteriNoo.Enabled = False
Else
Me.Yeni_Kayıt.Caption = "Kaydet"
If IsNull(Me.txtMüsteriAdı) Or Me.txtMüsteriAdı = "" Then MsgBox "Müşteri adı giriniz", vbExclamation, "Sistem Uyarı": Me.txtMüsteriAdı.SetFocus: Exit Sub
If IsNull(Me.txtTel) Or Me.txtTel = "" Then MsgBox "Müşteri Telefon No giriniz", vbExclamation, "Sistem Uyarı": Me.txtTel.SetFocus: Exit Sub
If IsNull(Me.txtAdres) Or Me.txtAdres = "" Then MsgBox "Müşteri Adres bilgilerini giriniz", vbExclamation, "Sistem Uyarı": Me.txtAdres.SetFocus: Exit Sub
Dim SD1, SD2 As String
Dim stLinkCriteria1, stLinkCriteria2 As String
SD1 = Me.txtMüsteriAdı.Value
SD2 = Me.txtTel.Value
stLinkCriteria1 = "[MüsteriAdı]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tel]=" & "'" & SD2 & "'"
If DCount("*", "T_MÜSTERİLER", " MüsteriAdı ='" & Me.txtMüsteriAdı & "'") >= 1 Then
MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "İsimli kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtMüsteriAdı.SetFocus
Else
If DCount("*", "T_MÜSTERİLER", " Tel ='" & Me.txtTel & "'") >= 1 Then
MsgBox "" & vbCr & SD2 & " " & vbCr & vbCr & "Numaralı kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtTel.SetFocus
Else
Me.txtMüsteriAdı.SetFocus
Me.txtYetkiliadı.SetFocus
Me.txtTel.SetFocus
Me.txtEmail.SetFocus
Me.txtSehir.SetFocus
Me.txtAdres.SetFocus
If ekle = True Then
If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then
Call Kaydet
MsgBox "Kayıt işlemi yapıldı.", vbExclamation, "Sistem Mesajı"
Call Temizle2
Call Alankapa
Call Butonkapat
MsgBox "KTemizle 2 çalıştı, alan ve buton kapandı."
Else
Me.txt_ara = ""
Me.txt_arafk = ""
Me.Liste17 = ""
Liste17.Requery
Me.txt_ara.Visible = False
Call Alankapa
Me.Yeni_Kayıt.Caption = "Yeni Kayıt"
Call Butonkapat
Call Temizle3
End If
End If
End If
End If
End If
Exit_Yeni_Kayıt_Click:
Exit Sub
Err_Yeni_Kayıt_Click:
MsgBox "İşlem Yapılmadı", vbExclamation, "Sistem Mesajı"
Resume Exit_Yeni_Kayıt_Click
End Sub
Problemli kod
Private Sub btnDüzenle_Click()
On Error GoTo Err_btnDüzenle_Click
Call Alanac
'btnDüzenle.Enabled = True
If Me.btnDüzenle.Caption = "Düzenle" Then
Call Kapat
ekle = False
guncelle = True
Else
Me.btnDüzenle.Caption = "Kaydet"
Dim SD1,SD2 As String
Dim stLinkCriteria1,stLinkCriteria2 As String
SD1 = Me.txtMüsteriAdı.Value
stLinkCriteria1 = "[MüsteriAdı]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tel]=" & "'" & SD2 & "'"
If DCount("*", "T_MÜSTERİLER", " MüsteriAdı ='" & Me.txtMüsteriAdı & "'") >= 1 Then
MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "İsimli kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtMüsteriAdı.SetFocus
Else
If DCount("*", "T_MÜSTERİLER", " Tel ='" & Me.txtTel & "'") >= 1 Then
MsgBox "" & vbCr & SD2 & " " & vbCr & vbCr & "Numaralı kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtTel.SetFocus
Else
Me.txtMüsteriAdı.SetFocus
Me.txtYetkiliadı.SetFocus
Me.txtTel.SetFocus
Me.txtEmail.SetFocus
Me.txtSehir.SetFocus
Me.txtAdres.SetFocus
If guncelle = True Then
If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then
Call MüsteriGuncelle
MsgBox "Düzenleme işlemi yapıldı.", vbExclamation, "Sistem Mesajı"
Me.btnDüzenle.Caption = "Güncelle"
Call Temizle3
Call Alankapa
Call Butonkapat
Call A
Me.Liste17.Requery
End If
End If
End If
End If
End If
Exit_btnDüzenle_Click:
Exit Sub
Err_btnDüzenle_Click:
MsgBox "Güncelleme İşlemi Yapılmadı", vbExclamation, "Sistem Mesajı"
Resume Exit_btnDüzenle_Click
End Sub
yardımlarınız bekliyorum.
saygılar.