MÜKERRER KAYIT UYARISI

[Ongun]

Günaydın arkadaşlar,

a sütununda sicil no b sütununda dönemi var eğer textbaxlara girilen sicil no ile dönemi a ve b sütunlarında (Her ikisinide aynı satırda olması koşulu ile) var ise mesajla uyarı versin istiyorum.

Örnek dosya ekli

Yardımcı olursanız sevinirim. Saygılarımla :hey:

 

[Kemal Demir]

Sn.Ongun

Tam İstediğiniz Gibi Değil Ama Size Yol Gösterebilir.

Sn.Leventm ait Kodlar

 

[Ongun]

Sayın rakkas, ilginiz için çok teşekkür ederim.

Kodları denedim ama benim istediğim gibi değil, aslında çok kolay gibi görünüyor ancak hem sicil no hem de dönem aynı anda kontrol edilmesi gerekiyor. Çünkü aynı sicil nodan a sutununda birden fazla var, b sutununda da dönem olarak farklı sicil numaraları olmasına rağmen aynı dönemler mevcut bu duruma dikkat çekmek istedim.

Yardımlarınızı beklerim. Saygılarımla :hey:

 

[Ongun]

:yardim: :yardim:

 

[omerceri]

aşağıdaki kodu denerseniz
Private Sub CommandButton1_Click()
say = Sheets("Sayfa1").Range("a1").CurrentRegion.Rows.Count
For i = 1 To say
If Sheets("Sayfa1").Range("A" & i) = TextBox1 And Sheets("Sayfa1").Range("B" & i) = TextBox2 Then
MsgBox "mükerrer kayıt giremezsiniz"
Exit For
Else
Sheets("Sayfa1").Range("A" & say + 1).Value = TextBox1
Sheets("Sayfa1").Range("B" & say + 1).Value = TextBox2

End If
Next
End Sub

 

[Ongun]

Sayın omerceri, henüz tam olarak deneyemedim ama yaptığım denemede olmuş gibi görünüyor.

elinize sağlık Çok teşekkür ederim. k::

Saygılarımla

 

[Ongun]

Sayın omerceri, malesef olmadı.

MsgBox "mükerrer kayıt giremezsiniz" mesajından sonra kayıt yapıyor. Oysa yapmaması lazım. Saygılarımla

:yardim: :yardim: :yardim:

 

[omerceri]

haklısınız kodu aşağıdaki gibi değiştiriseniz.
Private Sub CommandButton1_Click()
say = Sheets("Sayfa1").Range("a1").CurrentRegion.Rows.Count
For i = 1 To say
If Sheets("Sayfa1").Range("A" & i) = TextBox1 And Sheets("Sayfa1").Range("B" & i) = TextBox2 Then
MsgBox "mükerrer kayıt giremezsiniz"
a = 1
Exit Sub
End If
Next
If a <> 1 Then
Sheets("Sayfa1").Range("A" & say + 1).Value = TextBox1
Sheets("Sayfa1").Range("B" & say + 1).Value = TextBox2
End If
End Sub

 

[Ongun]

Sayın omerceri, evet şimdi oldu.

Ancak merak ettiğim birşey var. tersi olursa yani aranan veri bulunamaz ise = (eşittir) işareti yerine <> (değildir) dersek nasıl işlem yaptırabiliriz ben denedim olmadı.

Tekrar teşekkür eder. Çalışmalarınızda başarılar dilerim. Saygılarımla :hey:

 

[omerceri]

Private Sub CommandButton1_Click()
say = Sheets("Sayfa1").Range("a1").CurrentRegion.Rows.Count
For i = 1 To say
If Sheets("Sayfa1").Range("A" & i) <> TextBox1 And Sheets("Sayfa1").Range("B" & i) <> TextBox2 Then
a = 1
Sheets("Sayfa1").Range("A" & say + 1).Value = TextBox1
Sheets("Sayfa1").Range("B" & say + 1).Value = TextBox2
Exit Sub
End If
Next
If a <> 1 Then
MsgBox "mükerrer kayıt giremezsiniz"
End If
End Sub
gibi bir şey

 

[Korhan Ayhan]

Selamlar,

Farklı bir örnek çalışmada ben hazırladım umarım işinize yarar...

 

[canercan02]

peki manuel olarak girilmiş kayıtlarda mükerrer kayıt varsa bu kayıtları aradan çıkartıp c ve d sütünuna yine aynı şekilde dizmek mümkün mü?
örneğin aynı kayıt 85. 106. ve de 125. sıralarda var ise ilk kayıt yerinde kalacak öteki kayıtlar kaç tane var ise c sütununda sicil no ve de d sütununa dönemi alt alta sıralayıp a ve b sütunundaki kayıtları aradan çıkartmak gibi.

 

[Ongun]

Sayın omerceri ve Cost Control, ilginiz ve emeğiniz için çok teşekkür ederim.

Gerçekten önemli bir konudu bana çok yardımcı oldunuz. k:: Saygılarımla, :mutlu:

 

[Ongun]

Tüm form üyelerine, öncelikle herkese günaydın.

Bu bölümde sormuş olduğum soru, yaptığınız bir programın başkaları tarafından hatalı veya yanlış bilgi girişi yapılarak kullanılması yapmış olduğunuz çalışma ne kadar mükemmel olursa olsun "KULLANICI KONTROLU" konulmadığı sürece hiç bir anlam ifade etmeyecektir.

Sonuç olarak, bu konunun önemli olduğunu düşünüyor ve tüm arkadaşlardan bu konuda görüşlerini bekliyorum. Saygılarımla :hey: