Uyarı verdirmek

[danke]

Arkadaşlar kolay gelsin.
Sorunum şu ki. Yapmış olduğum programda bulunan üç ayrı alandaki verilere baktırarak bu veriler daha önce bu şekilde yanyana gelmişse uyarı versin. "bu kayıt daha önce yapılmış" gibi. Örnek olarak ta: 1. alan: ankara 2. alan: domates 3. alan 19.01.2009 tarihi olsuh, daha önce aynı bu şekilde başka bir kayıt girilmişse yazacağımız kod, deyim ona baksın ve kullanıcıyı uyarsın mümkünse, bilen arkadaşların yardımlarını bekliyorum.
Benim yine buradan sadece bir alandaki sayı mükerrer yazılıysa uyarması için aldığım kod vardı. Ancak buna uyarlayamadım. İlgilenenler için aşağıya kopyalıyorum.
Benim üç alan dediğim yerin ikisi açılır kutu ve alan özelliği metin, birisi ise tarih ilgilenen arkadaşlara şimdiden teşekkürler.


Bir alandaki daha önce girilmiş aynı sayıyı uyaran kod..

Güncelleştirme öncesinde olayına:

Dim SID As Long
Dim stLinkCriteria As String
SID = Me.[edairesayisi].Value
stLinkCriteria = "[edairesayisi]=" & SID&
If DCount("[edairesayisi]", "sorgu&data", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Yazmakta oldugunuz " _
& SID & " sayılı evrak daha önce kaydedilmiş !!!!" _
& vbCr & vbCr & "BU EVRAĞI TEKRAR YAZMANIZA GEREK YOK !!", vbInformation _
, "Mükerrer Kayıt"

End If

 

[modalı]

Sayın danke,

Tablonuzun tam yapısını bilmemiz gerekiyor sanırım. Mümkünse bir örnek te eklerseniz daha çabuk yardımcı olabiliriz.

iyi çalışmalar

 

[danke]

Sayın danke,

Tablonuzun tam yapısını bilmemiz gerekiyor sanırım. Mümkünse bir örnek te eklerseniz daha çabuk yardımcı olabiliriz.

iyi çalışmalar

Sayın modalı ilginiz için teşekkür ediyorum.
Örnek olacak bir uygulamayı ekledim.
evrak formunda sarı zemin olan alanlara aynı veri girilmişse, tarihten çıkılırken kod, deyim veri tabanına baksın desinki bu kayıtta daha önce kayıt yapılmış, kayıt yeni yapılıyorsa birşey demesine gerek yok.

Umarım derdimi anlatabilmişimdir. Bu uygulama ile maksadım mükerrek kaydının önüne geçmek, sayılara yukarda da bahsetmiştim çözüm bulmuştuk. Alanlar açılan kutu ve metin olunca ve birde tarih doğrusu beceremedim.

Kolay gelsin..

 

[danke]

Arkadaşlar gerçekten yardım edecek kimse yok mu?
Eğer bilen varsa bu konu benim için çok önemli, ilgilenen arkadaşlara şimdiden çok teşekkürler..

 

[PLTNAZR]

Arkadaşın Biri Adsoyad,Tarih ve Saat e göre istemişti onun için hazırlamıştım.
Sizkendinize göre düzenlersiniz artıkın
Basit bir örnek

 

[danke]

Sayın PLTNAZR ilginiz içiş teşekkür ediyorum.
Verdiğiniz örneği inceledim, sanki sadece ada göre bakıp, eğer daha önce girilmişse hangi tarihte ve saatte girildiğini uyarıyor gibi geldi. Yanlışsam düzeltin.
Benim istediğim açılır kutu olan ve ikisinin özelliği metin olan iki alan ile özelliği tarih olan alana aynı veri girildiğinde uyarsın. Aynıdan kastım; atıyorum Ankara, elma,01.01.2009 şeklinde daha önce veri girilmişse bu veri daha önce girilmişdiye uyarsın,
Yoksa, sadece Ankara veya sadece elma olduğunda uyarırsa işime yaramıyacak.
Sizin verdiğiniz örneğin sayıya bakarak uyaranının kodunu ben yukarıda işe yarayabilir diye vermiştim.
Eğer isteğim gibi örnekse yardımcı olursanız sevinirim. Değilsede ilgilendiğiniz için teşekkür ediyorum.
Kolay gelsin.

 

[modalı]

Sayın PLTNAZR ilginiz içiş teşekkür ediyorum.
Verdiğiniz örneği inceledim, sanki sadece ada göre bakıp, eğer daha önce girilmişse hangi tarihte ve saatte girildiğini uyarıyor gibi geldi. Yanlışsam düzeltin.
Benim istediğim açılır kutu olan ve ikisinin özelliği metin olan iki alan ile özelliği tarih olan alana aynı veri girildiğinde uyarsın. Aynıdan kastım; atıyorum Ankara, elma,01.01.2009 şeklinde daha önce veri girilmişse bu veri daha önce girilmişdiye uyarsın,
Yoksa, sadece Ankara veya sadece elma olduğunda uyarırsa işime yaramıyacak.
Sizin verdiğiniz örneğin sayıya bakarak uyaranının kodunu ben yukarıda işe yarayabilir diye vermiştim.
Eğer isteğim gibi örnekse yardımcı olursanız sevinirim. Değilsede ilgilendiğiniz için teşekkür ediyorum.
Kolay gelsin.

Sanırım bir hatanız var veriyi kontrol eden ifede:

If DCount("*", "Tablo1", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih='" & Me.Tarih & "' and Saat='" & Me.Saat & "'") > 0 Then

ve arada And var ki üç olayda gerçekleşirse DCount fonksiyonu 1 den büyük oluyor.

Buradaki tek handikap olayın saat metin kutusunun günceleştikten sonra olayına bağlı olması. Yani saati önce adı soyadı sonra değiştirirseniz sınama çalışmayacaktır. Bunun için sınama kodlarını bir alt yordam olarak yhazarak her üç alanın güncelleştirme sonrasında çağrılması gerekir.

İyi çalışmalar

 

[danke]

Sayın modalı ilginiz için teşekkür ederek, acaba benim yukarıda ekte gönderdiğim örneğe söylediklerinizi uygulamanızı istesem kolaycılık mı yapmış olurum?

Bu konuyu acilen uygulamam gerek, ancak altından kalkamadım, yardımlarınız için şimdiden teşekkürler.

Kolay gelsin..

 

[modalı]

Dediklerimi uyguladım.


İyi çalışmalar

 

[PLTNAZR]

Sayın Modalı haklısınız..
Uyarınız için teşekkürler...

 

[danke]

Sayın Modalı;
Sizin verdiğiniz örneği indirdiğimde gayet güzel çalışıyor, arka planda uyguladığınız kodları bende kendi programıma uyguladığımda ise kod işlevini yapmıyor.
Program'da gezinti düğmelerinen yerine, manuel olarak konulan düğmeler var, bir sonraki, bir önceki, ilk kayıt, son kayıt gibi, birde yeni kayıt ekle dendiğinde form kapatılıyor, aynı formun başka bir ismiyle yeni form açılıyor. (aynı form iki adla yani biris evrak, diğeri evrak resen, evrak kaydetmek istendiğinde ekleye basılınca evrak_resen (form ismi) açılıyor ve yeni kayıt ekleniyor) Bunu şey için anlattım. Bu üç alanı (dağıtım, konu, tarih) kontrol edememin sebebi bunlar olabilir mi?
Şimdi diyeceksiniz ki bi örnek versen daha iyi olacaktı, haklısınız ne diyeyim.
İlgilenip cevap vediğiniz için teşekkür ediyorum.

 

[danke]

Tarih alanı olmasada, sadece metin olarak ayarlanmış iki alana bakan bir şekilde kodu ayarlasak olmaz mı?
Ben denedim beceremedim.
Yani metin olarak ayarlanmış iki açılır kutu içerisindeki bilgilere bakılacak, eğer önceden girilmiş ise uyarılacak, bu veri daha önce girilmiş diye.
Çok olduğumu biliyorum :redface:ama yardım edecek arkadaşlara şimdiden teşekkürler.

 

[PLTNAZR]

Kendinize Göre Uyarlayınız...

Private Sub Adi_AfterUpdate()
Dim SD1, SD2, C As String


Dim stLinkCriteria1, stLinkCriteria2 As String

SD1 = Me.Adi.Value
SD2 = Me.Meslegi.Value


stLinkCriteria1 = "[Adi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Meslegi]=" & "'" & SD2 & "'"


If DCount("*", "Tablo1", "Adi='" & Me.Adi & "' and Meslegi='" & Me.Meslegi & "'") > 0 Then
C = MsgBox("DİKKAT!...DAHA ÖNCE...*" _
& SD1 & " *adında * " _
& SD2 & " * Meslekli Biri Girlmiş*" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbYes Then
DoCmd.GoToRecord , , acNewRec
ElseIf vbNo Then
DoCmd.GoToControl "Adi"
End If

End If
End Sub

İki açılır kutununda Güncelleştirme sonrası olayına yazacaksınız.
Örnek ekleyemedim benim PC biraz kafayı yedi

 

[maliyer35]

merhaba arkadaşlar benimde combo sorunum var.

combobox içine değerler girdim, ve içine girdiğim değerlerden iki tanesinin seçilmesine izin verilmemesini ve "bu değerleri giremezsiniz" diye uyarı mesajı vermesini istiyorum. bana yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
not: örneğimi ekledim; orada "close" ve "can" seçilemesin ve "bu değerleri giremezsiniz" diye uyarı mesajı versin istiyorum

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[modalı]

Sayın maliyer35,

Uyarıya falan gerek yok, listede göstermezsiniz biter gider.

İyi çalışmalar

 

[maliyer35]

tabii ki bir sonuç; ama formu iki ayrı kişi kullanıcak ve o değerleri kullanmaması gerekiyor.

 

[maliyer35]

ek biligiyi unuttum. aynı tablodan iki ayrı form oluşturduğum için böyle bir problem var.
Lütfen yardım...

 

[modalı]

İsterseniz 100 form hazırlayın, kodla istediğiniz verileri gösterebilirsiniz açılan kutuda. Madem kullanılmaması gerekiyor o verinin işi yok.

İyi çalışmalar

 

[maliyer35]

o veriyi 2 kişiden sadece 1'i kullanıcak formlarda 2 kişiye yetkilendirilecek.
örneğin aynı tablodan 2 form var ya da 100 ben de 2.

1.formu yetkili kişi açabilecek ve "can" ve "close" değerlerini kullanabilecek.
2.formu yetkisi olmayan kişi açacağı için "can" ve "close" değerlerini kullanmaması gerekiyor.

problemim gayet açık sanırım.

 

[maliyer35]

benim yazdığım kod su şekildeydi düzeltirseniz sevinirim.

durum_AfterUpdate()
if Me.durum = "close" Then
MsgBox "bu değeri giremezsiniz"
end if

belki biraz sallamasyon olabilir