Çakışan Tarih-Saat Kontrolü

[aydiny]

Merhaba arkadaşlar,
Bir organizasyonda görüşmeler planlanacaktır. Amaç, görüşmeler planlanırken bilgi girişi sırasında görüşme tarih ve saatlerinin kontrol edilerek, aynı tarih ve saatte aynı kişilere başka görüşme kaydı varsa mesaj ile uyarmak.
Örnek dosya ve açıklama ektedir.

Çözüm için vakit ayıran arkadaşlara şimdiden teşekkürler..

 

[aydiny]

Uygulama Konusunda Çözüm Önerileriniz

Arkadaşlar, konu biraz zor sanırım, bir sessizlik oldu..

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre birden fazla sütunlu veritabanında mükerrer kayıt kontrolü için en kolay yöntem bi sütun daha ekleyip kaydedilen verilerin birleştirilmiş halini bu sütuna yazdırmaktır. Bu şekilde kontrol daha kolay olacaktır. Kontrol isimli bir sütun ekledim. Gerekirse bu sütunu gizleyebilirsiniz. Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[aydiny]

Merhabalar,

İlginize öncelikle teşekkür ederim. Örneği inceledim. Ancak burada, kolonların tamamen aynı olmama durumu sözkonusu. Örneğin;


A Heyeti B Heyeti 05.04.2007 15:00 16:00
C Heyeti B Heyeti 05.04.2007 15:30 16:30

buradaki örnekte de uyarı almalıyız çünkü ikinci kayıtta geçen B Heyetinin aynı saatte, başka bir kaydı var..

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Formunuzdaki Kaydet butonuna ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub kaydet_Click()
    Dim bak As Range
    Dim say As Integer
    say = WorksheetFunction.CountA(Range("A1:A5000"))
    id.Value = say
    For X = 2 To [B65536].End(3).Row
    If Cells(X, 2) = gorusen.Value Or Cells(X, 3) = gorusecek.Value Then
    If Cells(X, 4) = CDate(tarih.Value) Then
    If CDate(Cells(X, 5)) >= saat1.Value And Cells(X, 6) <= saat2.Value Then GoTo Son
    End If: End If
    Next
    
    Cells(say + 1, 1).Value = id.Value
    Cells(say + 1, 2).Value = gorusen.Value
    Cells(say + 1, 3).Value = gorusecek.Value
    Cells(say + 1, 4).Value = CDate(tarih.Value)
    Cells(say + 1, 5).Value = saat1.Value
    Cells(say + 1, 6).Value = saat2.Value
    Cells(say + 1, 7).Value = yer.Value
    MsgBox "Verileriniz Kaydedildi", vbInformation, "KAYIT"
    Exit Sub
Son: MsgBox "Bu protokol daha &#246;nce kay&#305;tlara al&#305;nm&#305;&#351;t&#305;r." & vbCrLf & _
"L&#252;tfen girdi&#287;iniz bilgileri kontrol ediniz.", vbExclamation, "Dikkat !"
End Sub