çift kayıt engelleme

[önder34]

Sitede mükerrer kayıtla ilgili o kadar çok örenk var ki ama hiç biri benim soruma çözüm olamadı .Bende burada sorayım dedim
Kayıt sayfasından kaydet makrosuyla veri sayfasına kayıt yapıyorum. örneğin Öğrenci matematik kursuna ali öğretmene kayıt olmuşsa, aynı kurs ama farklı öğretmen kayıt yapılamasın ali öğretmen kayıtlı gibi uyarı versin .
Dosyanın kullanıcı adıEMİR Şifresi 12345 tir YArdımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub kaydet()
Dim kayit As Integer
Dim xKontrol As String
Dim BUL As Range, ADRES As String
sat = Sheets(2).[a65536].End(3).Row
xKontrol = "boş"
kayit = 0
 
Set BUL = Sheets("VERİ").Range("C:C").Find(Range("D3"))
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
If Sheets("VERİ").Cells(BUL.Row, "I") = Range("D9") And _
Sheets("VERİ").Cells(BUL.Row, "K") <> Range("D11") Then
MsgBox "MÜKERRER KAYIT !" & Chr(10) & _
Sheets("VERİ").Cells(BUL.Row, "K") & " öğretmen kayıtlı !", vbCritical, "DİKKAT !"
Exit Sub
End If
Set BUL = Sheets("VERİ").Range("C:C").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
 
For i = 2 To sat
If Trim(Sayfa2.Cells(i, 1).Text) = Trim(Sayfa6.Range("D1").Text) And Trim(Sayfa2.Cells(i, 11).Text) = Trim(Sayfa6.Range("D11").Text) Then
xKontrol = "bulundu"
kayit = i
Exit For
End If
Next i
 
If xKontrol = "boş" Then
kayit = sat + 1
End If
For ix = 1 To 27
Sheets(2).Cells(kayit, ix) = Range("d" & ix)
Next
Call Sayfa2.Birles
End Sub

 

[önder34]

Sayın Korhan AYhan Bey çok teşekkür ederim yardımlarınız için bu site sayesinde yaptım bu çalışmayı sağlıcakla kalın

 

[önder34]

Çift kayıt engelleme

Korhan Bey kayıtda güncelleme yapamıyorum KAyıtlı veride 2 ve ya 3 taksit gibi veriler girdiğimde mükerrer kayıt uyarısı alıyorum. Benim söylemek istediğim aynı kurs adı aynı olup öğretmen farklı kayıt yapmasın sadece (matematik ali öğretmeninin 2,3 takistlerde gibi mükerrer kayıt uyarısı vermesin )

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[önder34]

benim için çok büyük sorun gibi olan şey size çok basit geliyor ve hemen çözüm üretebiliyorsunuz tek kelimeyle harikasınız emeğinize sağlık sonsuz teşekkürler