+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan kutuda veri değişikliği (/konu-acilan-kutuda-veri-degisikligi.html)
Sayfalar:
1
2
Açılan kutuda veri değişikliği - Aykay - 23/07/2009
Değerli arkadaşlar merhaba;
Form üzerinde açılan kutudaki verilerin, aynı açılan kutuda başka bir verilere bir tıklamayla nasıl çevirebilirim. Bu çevirme esnasında satırdaki bir kriter yerine getirilmişse veri çevirimi gerçekleşecek. (Formun varsayılan görünümü sürekli form)
Örnek;
Bir satırda,
TARIH
TAMGUN (açılan kutuda ilk kayıt TAM GÜN ÇALIŞTI kaydediliyor)
AÇILAN KUTU İÇİNDE,
TAM GÜN ÇALIŞTI
HAFTA TATİLİ
İlk kayıt esnasında açılan kutudaki Tam Gün Çalıştı kaydediliyor. Daha sonra ay içerisindeki pazar günlerine denk kayıtları butona basarak Hafta Tatili verisine dönüşecek.
Teşekkürler
Cvp: Açılan kutuda veri değişikliği - C*e*l*o*y*c*e - 24/07/2009
sanırım ekteki gibi birşey istiyorsunuz,ben sadece tek kişilikleri yapmaya çalıştım sen buna göre çokluları yaparsın
Cvp: Açılan kutuda veri değişikliği - Aykay - 24/07/2009
Sayın Celoyce;
Ben ilk açılan formun üzerindeki açılan kutudaki (Tam gün çalıştı) değerin değişmesi demiştim. Olsun gerçi sizin yaptığınıza da benim ihtiyacım olacaktı. Teşekkür ediyorum. Ben form üzerindeki durumu yaptım. Bir tıklamayla hafta sonlarını Hafta Tatili olarak değiştiriyor.
Peki üstadım;
Aynı çalışma üzerinden gidersek. Mükerrer kaydı nasıl önlerim. En büyük sıkıntım bu benim.
Yeni kayıt yaparken eski kayıtları kontrol (ay, yıl, adsoyad) edecek şayet varsa kullanıcıyı uyaran mesaj belirecek. Ve kesinlikle kaydetmeyecek.
Nasıl bir yol izlemem gerekir.
Yaptığım çalışmayı ekliyorum.
Teşekkürler
Cvp: Açılan kutuda veri değişikliği - C*e*l*o*y*c*e - 24/07/2009
Private Sub ADISOYADI_BeforeUpdate(Cancel As Integer)
Dim SD1, C As String
Dim stLinkCriteria1, Cevap As String
SD1 = Me.ADISOYADI.Value
stLinkCriteria1 = "[ADISOYADI]=" & "'" & SD1 & "'"
If DCount("*", "tblkımlıkler", "ADISOYADI='" & Me.ADISOYADI & "'") > 0 Then
C = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " * Adında,bir kaydınız zaten var,Farklı isim olduğunu düşünüyorsanız,ayırıcı bir özellik daha ekleyin*" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub
If C = vbYes Then
Cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If Cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
End Sub
bu sadece adısoyadı alanı için diğerlerinide kendine göre uyarlıyabilirsin
Cvp: Açılan kutuda veri değişikliği - Aykay - 24/07/2009
Sayın Celoyce;
Bu kodları hangi formun ve hangi olayına yapıştırayım
Teşekkürler
Cvp: Açılan kutuda veri değişikliği - C*e*l*o*y*c*e - 24/07/2009
siz kendinize çevireceksiniz,yani
sizin formdaki örneğin Adı isimli metin kutusunun "güncelleştirmeden önce" bölümüne yapıştıracaksın alanın ismi neyse onu değiştireceksin,bu kodları kendine çevireceksin