Alıntı:önceden girilen verinin tekrar gelmesi, kullanıcı isterse veriyi çağırıp kontrol etmesi, eğer isterse çağrılan veriden devam ederek kayıt etmesi(Yeni Kayıt Vermesi) istemezse çağrılan kayıdı görüp gerekli bilgileri not edip kayıt etmeden çıkması için
1-)önceden girilen verinin tekrar gelmesi, kullanıcı isterse veriyi çağırıp kontrol etmesi savno daha önce girilmişse msgbox açılıyor, eveti tıklarsan yeni mesaj kutusu açılıyor.
2-)eğer isterse çağrılan veriden devam ederek kayıt etmesi(Yeni Kayıt Vermesi)
Yeni mesaj kutusu açıldığında evet'i tıklarsan daha önce savno alanına kadar girdiğin veri kaydedilir, daha önce girilen savno verisine ait kayda gidilir. Hayır'ı tıklarsan, savno alanına kadar girdiğin veri silinir, önce girilen savno verisine ait kayda gidilir.
3-)istemezse çağrılan kayıdı görüp gerekli bilgileri not edip kayıt etmeden çıkması için
bu istemezse mevzusu yukarıda anlattığım 2. msgbox, yeni kayıt istemezse hayırı tıklar, yeni kayıt silinir, eveti tıklarsa yeni kayıt durur.
Me.Liste1.Requery
Dim GeciciEvrakNo As String
Dim mukerrer As String
mukerrer = Nz(DCount("[savno]", "evrakkayit", "[savno]=" & "'" & [savno] & "'"), 0)
If mukerrer > 0 Then
GeciciEvrakNo = Me.evrakno
Select Case MsgBox("Bu Kayıt Daha Önce Girilmiş. Devam Ederek Diğer Bilgilerini Getirebilirsiniz. Devam Edilsin mi?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Ne Yapmak İstiyorsunuz.")
Case vbYes
Set rs = Me.RecordsetClone
rs.FindFirst "[savno] = " & "'" & Me.savno & "'"
If rs.NoMatch Then
MsgBox "Kayıt Yok"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
If MsgBox("Önceden kaydedilen " & GeciciEvrakNo & " sayılı kayıt silinsin mi?", vbYesNo) = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE evrakno FROM evrakkayit WHERE (((evrakno)='" & GeciciEvrakNo & "'));"
DoCmd.SetWarnings True
Me.Liste1.Requery
Metin455.Requery
Else
Me.Liste1.Requery
Metin455.Requery
End If
Case vbNo
Undo
Me.Liste1.Requery
Exit Sub
End Select
Else
End If
