vb kodları

[karaayhan]

slm sayın üyeler,

bahsettiğim konunun ilki çok kullanılan If Then Else olsun ,

elinde örneği olan bütün farklılıkları ile lütfen buraya eklesin...

ben basit bir örnek ekliyorum...konu ile ilgili video kaydı olan varsa onlarda eklesinler lütfen..
'------------------------Kod burdan başlasın------------------------------
On Error GoTo Err_kapat_Click
If (MsgBox("Programdan Çıkılsın mı?", vbQuestion + 1, "Size Soruyorum") = 1) Then
DoCmd.Quit
End If
Exit_kapat_Click:
Exit Sub

Err_kapat_Click:
MsgBox Err.Description
Resume Exit_kapat_Click

'--------------------Kod burada biter-------------------------------------

 

[BKCAN]

umarım dogru iş yapmışımdır sn karaayhan

mükerrer kayıtla ilgili forumdan topladıgım bilgileri derledim

olay>güncelleştirme öncesi>kod oluştur açılan yere aşagıdakileri uyarlayın

Private Sub alanadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[alanadı].Value
stLinkCriteria = "[alanadı]=" & "'" & SID & "'"
If DCount("[alanadı]", "tabloadı", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub

aynı kayıt varsa uyarıyor ve son yazılanı siliyor

End If
Me.Undo
End Sub

stLinkCriteria = "[alan tarih ise]=" & "#" & SID & "#"

stLinkCriteria = "[alan kelime ise]=" & "'" & SID & "'"

stLinkCriteria = "[alan sayı ise]=" & SID