[Yardım]  mükerrer kayıt engelleme

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

mükerrer kayıt engelleme

İleti#1)  mbayir » 25 Kas 2017 15:22

iyi günler arkadaşlar yazıdıgıö kodu aşagıda veriyorum. bunla müşteri girişi yapıyorum. tek sorun mükerrer kaydı engelleyemiyorum bu konuda bana yardımcı olabilirseniz sevinirim.

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Lütfen Ad-Soyad Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Lütfen Tel. No. No Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Lütfen Ürün Bilgisi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "Lütfen Ürün Fiyatı Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Lütfen Satış Temsilcisi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox "Lütfen Tarih Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox3.Value = "" Then
MsgBox "Lütfen Ödeme Şekli Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox5.Value = "" Then
MsgBox "Lütfen Ek Bilgi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
Sheets("Sayfa1").Range("a65536").End(3)(2, 1) = TextBox1.Value
Sheets("Sayfa1").Range("b65536").End(3)(2, 1) = TextBox2.Value
Sheets("Sayfa1").Range("c65536").End(3)(2, 1) = ComboBox1.Value
Sheets("Sayfa1").Range("d65536").End(3)(2, 1) = TextBox3.Value
Sheets("Sayfa1").Range("e65536").End(3)(2, 1) = ComboBox2.Value
Sheets("Sayfa1").Range("f65536").End(3)(2, 1) = TextBox4.Value
Sheets("Sayfa1").Range("g65536").End(3)(2, 1) = ComboBox3.Value
Sheets("Sayfa1").Range("h65536").End(3)(2, 1) = TextBox5.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
End Sub

Private Sub CommandButton3_Click()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = 1234 Then
Application.Visible = True
Unload Me
Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If
End Sub
Kullanıcı avatarı
mbayir
 
Kayıt: 06 Kas 2017 20:52
Meslek: ögrenci
Yaş: 30
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: afyon

Cevap: mükerrer kayıt engelleme

İleti#2)  şahin » 25 Kas 2017 23:56

Kod: Tümünü seç
Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Then
MsgBox "Lütfen Ad-Soyad Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Lütfen Tel. No. No Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Lütfen Ürün Bilgisi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "Lütfen Ürün Fiyatı Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Lütfen Satış Temsilcisi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox "Lütfen Tarih Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox3.Value = "" Then
MsgBox "Lütfen Ödeme Şekli Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox5.Value = "" Then
MsgBox "Lütfen Ek Bilgi Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
kontrol = WorksheetFunction.VLookup(TextBox1.Value, Sheets("Sayfa1").Range("a1:a" & Sheets("Sayfa1").Range("a65536").End(3).Row), 1, False)
kacinci = WorksheetFunction.Match(TextBox1.Value, Sheets("Sayfa1").Range("a1:a" & Sheets("Sayfa1").Range("a65536").End(3).Row), 0)

If kontrol <> "" Then
  MsgBox "Listede Aynı Ad soyad kayıt var!" & vbLf & "( " & kacinci & ". satırda kayıtlı.. )", vbExclamation, "UYARI!!!"
  Exit Sub
End If

Sheets("Sayfa1").Range("a65536").End(3)(2, 1) = TextBox1.Value
Sheets("Sayfa1").Range("b65536").End(3)(2, 1) = TextBox2.Value
Sheets("Sayfa1").Range("c65536").End(3)(2, 1) = ComboBox1.Value
Sheets("Sayfa1").Range("d65536").End(3)(2, 1) = TextBox3.Value
Sheets("Sayfa1").Range("e65536").End(3)(2, 1) = ComboBox2.Value
Sheets("Sayfa1").Range("f65536").End(3)(2, 1) = TextBox4.Value
Sheets("Sayfa1").Range("g65536").End(3)(2, 1) = ComboBox3.Value
Sheets("Sayfa1").Range("h65536").End(3)(2, 1) = TextBox5.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
End Sub

Private Sub CommandButton3_Click()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = 1234 Then
Application.Visible = True
Unload Me
Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If
End Sub

Private Sub UserForm_Click()

End Sub
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum CommandButton

Online Kullanıcılar

Bu forumu görüntüleyenler: niekine ve 1 misafir

Bumerang - Yazarkafe