kontrollü kayıt ekleme

[kocaman24]

arkadaşlar kayıtları girdiğim forma şöyle birşey yapmak mümkünmü acaba
ben her yeni kayıt açtıgımda kaydı girerken örnegin adı soyadı alanına kayıt yaparken eğer daha önceden aynı kişiye kayıt yapmış isem beni uyarsın istiyorum mümkünmüdür acaba şimdiden teşekkür ederim.

 

[kenanyuk]

konu ile ilgilenen yokmudur.

benzer bir durum için benimde ihtiyacım var. lütfen fikir verebilecek varsa sevinirim.

 

[akd]

Merhaba arkadaşlar,
Ben çalışmamda firma isminin tekrar yazılmaması için bu kodu kulanıyorum,
Firmaİsmi kutusundan çıkarken bu kod çalışır, aynısı veri tabanına kayıtlıysa uyarı verir
Private Sub Firmaİsmi_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[Firmaİsmi].Value
stLinkCriteria = "[Firmaİsmi]=" & "'" & SID & "'"
If DCount("[Firmaİsmi]", "Firmalar", stLinkCriteria) > 0 Then
MsgBox SID & " Adlı Bu isim Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "AKD.YAZILIM..."
Me.Undo
Else
Exit Sub
End If
End Sub

İyi çalışmalar...

 

[kenanyuk]

teşekkürler işime yaradı

 

[kocaman24]

yardımlarınız için teşekkür ederim sagolasın çok işime yaradı bu kod

 

[kenanyuk]

daha sonra bu kodu biryerden gördüm kendime uyarladım daha sağlıklı çalıştı belki faydalı olur



Private Sub kisiler_id_BeforeUpdate(Cancel As Integer)

On Error Resume Next

Dim kisi, gorev, kriter As String
Dim c As Long
'GoTo son

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Use the ADO connection that Access uses
Set cn = CurrentProject.AccessConnection
'Create an instance of the ADO Recordset class, and
'set it's properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM gorev_kisi_atama"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
'Set the form's Recordset property to the ADO recordset

kisi = Me.[kisiler_id].Value
gorev = Me.[gorev_id].Value
kriter = "[kisiler_id] = " & kisi & " AND [gorev_id] = " & gorev

rs.Filter = kriter
c = rs.RecordCount

If c > 0 Then
MsgBox " Kişi Zaten Bu Göreve Atanmış..." & vbCr & vbCr & "", vbInformation
Me.Undo
Else
Exit Sub
End If
son:
Set rs = Nothing
cn.Close

End Sub

 

[kocaman24]

teşekkürler arkadaşım 2. kod birazdaha ayrıntılı ama sanırım daha iyi iş görür kolay gelsin selamlar