- Katılım
- 22 Ocak 2007
- Mesajlar
- 128
- Excel Vers. ve Dili
- Ofis excell 2003 türkçe
Arkadaşlar yardım ederseniz sevinirim.
Daha önce burda yayımlanmış bi kodu kullanmak istedim ama beceremedim. Veri alanı "Metin" olarak ayarlanmış alan, güncellendiğinde olay kısmana;
Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", 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
yazılmış, benim mükerrer olarak yazılmasını istemediğim, istendiğinde uyarı çıkmasını istediğim alan ise "Sayı", ben yukardaki alanı ona uyarladığımda benzeşmeyen biçim ve veri gibi farklı bi uyarı veriyor. Hatta alanı sayı yerine metine çevirdiğimde ise problem kalmıyor. Ancak benim bahsettiğim alan "Sayı" ve çözümünü bu şekilde bulmak gerekiyor. Yardım edecek arkadaşlar var mı?
edeceklere şimdiden teşekkürler.
"Adısoyadı" yerine "sicili" yazılacak.
Daha önce burda yayımlanmış bi kodu kullanmak istedim ama beceremedim. Veri alanı "Metin" olarak ayarlanmış alan, güncellendiğinde olay kısmana;
Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", 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
yazılmış, benim mükerrer olarak yazılmasını istemediğim, istendiğinde uyarı çıkmasını istediğim alan ise "Sayı", ben yukardaki alanı ona uyarladığımda benzeşmeyen biçim ve veri gibi farklı bi uyarı veriyor. Hatta alanı sayı yerine metine çevirdiğimde ise problem kalmıyor. Ancak benim bahsettiğim alan "Sayı" ve çözümünü bu şekilde bulmak gerekiyor. Yardım edecek arkadaşlar var mı?
edeceklere şimdiden teşekkürler.
"Adısoyadı" yerine "sicili" yazılacak.