Skip to main content

AccessTr.neT


Açılan kutuda veri değişikliği

Açılan kutuda veri değişikliği

Çözüldü #1
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
.rar Aylık_Puantaj_otomatık_pazar.rar (Dosya Boyutu: 116,48 KB | İndirme Sayısı: 9)
Eğer bir kişi hem akıllı, hem çalışkansa takdir et.
Çalışkan fakat akıllı değilse dikkat et.
Akıllı fakat tembel ise ikaz et.
Hem akılsız, hem tembelse uzaklaşmak için acele et.
Cevapla
Çözüldü #2
sanırım ekteki gibi birşey istiyorsunuz,ben sadece tek kişilikleri yapmaya çalıştım sen buna göre çokluları yaparsın
.rar Aylık_Puantaj_otomatık_pazar_celoyce.rar (Dosya Boyutu: 50,88 KB | İndirme Sayısı: 12)
Cevapla
Çözüldü #3
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
.rar Aylık_Puantaj_otomatık_pazar.rar (Dosya Boyutu: 244,43 KB | İndirme Sayısı: 5)
Eğer bir kişi hem akıllı, hem çalışkansa takdir et.
Çalışkan fakat akıllı değilse dikkat et.
Akıllı fakat tembel ise ikaz et.
Hem akılsız, hem tembelse uzaklaşmak için acele et.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
Sayın Celoyce;

Bu kodları hangi formun ve hangi olayına yapıştırayım

Teşekkürler
Eğer bir kişi hem akıllı, hem çalışkansa takdir et.
Çalışkan fakat akıllı değilse dikkat et.
Akıllı fakat tembel ise ikaz et.
Hem akılsız, hem tembelse uzaklaşmak için acele et.
Son Düzenleme: 24/07/2009, 02:28, Düzenleyen: Aykay.
Cevapla
Çözüldü #6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da