Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] AYNI KAYITTA UYARI VERMESİ

[FORM] AYNI KAYITTA UYARI VERMESİ
arif1971
Yeni Üye 1-15

*
Kayıt Tarihi: 31.10.2013
Toplam 2 konu açtı.
Toplam 12 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#1
31-10-2013, 20:26
Form'da "Kayıt No" bölümüne yeni kayıt girdiğimde bana uyarı vermesini istiyorum.....yada kutucuğun reklenmesini istiyorum.... daha önce verilen örnekleri inceledim fakat yapamadım.

Aşağıda belirttiğim formülü yazdım ama olmadı;
Private Sub kayıt_no_AfterUpdate()
Dim SD As String
Dim stLinkCriteria1, stLinkCriteria2 As String
SD = Me.kayıt_no.Value
stLinkCriteria = "[kayıt_no]=" & "'" & SD & "'"

If DCount("*", "tblkayıt", "kayıt_no='" & Me.kayıt_no) > 0 Then
stDocName = "arif"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

End Sub



Eklenti Dosyaları
.rar   kayıt.rar (Boyut: 16,56 KB / İndirilme: 93)



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#2
31-10-2013, 20:40
selam
alttaki kodu kayıt no alanınızın güncelleştirme öncesi olay yordamına ekleyin

ardından tablonuzu tasarımda açın ve kayıt no alanındaki boşluğu silin ileride sıkıntı çıkarır

Visual Basic
  1. On Error Resume Next ' alan boş olduğundan runtime 94 hatası vermekte
  2. '-----Mükerrer kayıtno Engelleme-----------------------------------------------------------------------
  3. Dim SD As String
  4. Dim stLinkCriteria As String
  5. SD = kayıt_no.Value
  6. stLinkCriteria = "kayıtno" = " & " '" & SD & "'"
  7. Dim kontrol, tari, adi, tcnum As String
  8. kontrol = DLookup("kayıtno", "kayıt", "kayıtno='" & kayıt_no & "'")
  9. If Not IsNull(kontrol) Then
  10. tcnum = DLookup("kayıtno", "kayıt", "kayıtno='" & kayıt_no & "'")
  11. End If
  12. If Len(kontrol) > 0 Then
  13. MsgBox "kayıt no no Benzerliği" & vbCr & vbCr & "kayıt No  : " & tcnum & vbCr & "     " & vbCr & _
  14. "Daha önce kaydedilmiş" & vbCr & _
  15. "Değiştirin...", vbInformation, "A-Yapı"
  16. Cancel = -1
  17. kayıt_no.SetFocus
  18. End If





  Bul
  Alıntı
Bu mesajı beğenenler:
arif1971
Yeni Üye 1-15

*
Kayıt Tarihi: 31.10.2013
Toplam 2 konu açtı.
Toplam 12 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#3
31-10-2013, 20:44 (En son düzenleme: 31-10-2013, 20:50 arif1971.)
Yardımınız için çok teşekkür ederim. Vermiş olduğunuz kodu ekleme çalıştım ama kodu yapıştırdığım yerde çalıştıramadım. Muhtemelen ben bu işi beceremedi.

Aynı kayıt uyarısı vermesini ve kayıt işleminin yapılmamasını istiyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:
arif1971
Yeni Üye 1-15

*
Kayıt Tarihi: 31.10.2013
Toplam 2 konu açtı.
Toplam 12 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#4
31-10-2013, 20:49
Aynı kayıt uyarısı vermesini ve kayıt işleminin yapılmamasını istiyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#5
31-10-2013, 20:52
selam
ek dosyayı inceleyin


Eklenti Dosyaları
.rar   kayıt.rar (Boyut: 17,35 KB / İndirilme: 165)



  Bul
  Alıntı
Bu mesajı beğenenler:
arif1971
Yeni Üye 1-15

*
Kayıt Tarihi: 31.10.2013
Toplam 2 konu açtı.
Toplam 12 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#6
31-10-2013, 20:56
Yardımlarınız için çok teşekkür ederim. Üç gündür iş'den geliyorum uğraşıyorum yapamamıştım. Çok teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme hegu 4 393 11-02-2026, 23:31
Son Mesaj: hegu
  Yaklaşan Tarihte Uyarı Alma xosmaner 3 466 14-11-2025, 21:53
Son Mesaj: özgülapt
  Aynı Günleri Filtreleme Satir 7 759 30-04-2025, 09:33
Son Mesaj: Satir
  Depo Takibinde Malzeme Yoksa Uyarı Vermesi hegu 2 414 22-04-2025, 21:56
Son Mesaj: hegu
  Son Endeks In Ikinci Yeni Kayıtta Ilk Endeks Olarak Gelmesi özgülapt 4 494 22-03-2025, 23:43
Son Mesaj: özgülapt
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 508 11-09-2024, 13:09
Son Mesaj: dsezgin
  [SORGU] Farklı Sütunlardaki Aynı Verileri Saymak TheREDROSE 11 943 31-07-2024, 16:15
Son Mesaj: TheREDROSE
  Aynı Kodlu Farklı Kayıtlara Izin Vermiyor ankaram 2 455 10-07-2024, 09:14
Son Mesaj: ankaram

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi