Skip to main content

AccessTr.neT


Aynı makinanın tekrar oluşturulamaması

Aynı makinanın tekrar oluşturulamaması

#4
Merhaba,

Sn. Atoz112'nin örneğini incelediğim kadarıyla,

1-) Kontrol alanının aynısı kontrol sorgusunda olmaması için koda
Me.Fayn = ""
eklenebilir.
2-) Bir önceki kayda gitmesi olayı kayıt gezintisinde diğer kayıtları açma olayından mı bahsediyorsunuz anlamadım.
3-) sn atoz112'nin eklediği kodlar uyarı verdirip kaydı geri alıyor, siz kaydın geri alınmasını istemiyorsanız kodları aşağıdakiler ile değiştiriniz.
İptal edilen satırların başına tırnak ekledim, uyarı kodunun altınada yukarı yazdığım kodu ekledim.

'KontrolSorgusu isimli sorguda yer alan MakinaKontrol isimli alanda bulunan değerler,
'formdaki kontrol isimli metin kutusundaki değere göre kontrol edilerek,
'benzer kayıt söz konusu olduğunda uyarı vermesi sağlanmaktadır

'elbette ki,bu işlem SADECE;
'sorgudaki MakinaKontrol alanına ve bu alan için tercih edilen
'üç alan bilgisine göre gerçekleşmektedir!

'son olarak;
'tablodaki benzer kayıtlar silinmemiş ve olduğu gibi bırakılmıştır.
'kodlamadaki kontrol işlemi de var olan kayıtların sonrası için geçerlidir
'bu sebeple,isteğe göre,tablodaki 3. ve 4. kayıtların iptal edilip
'tablodan çıkarılmasının sağlanması yerinde olacaktır.

If Me.kontrol = Dlookup ("MakinaKontrol", "KontrolSorgusu", "[MakinaID]='" & Me.MakinaID & "'") Then
'eğer benzer nitelikte kayıt girilmişse,uyarı mesajının belirmesi için
MsgBox ("Aynı kayıt bilgisi daha önceden girilmiştir" & vbCr & "Lütfen,bilgileri kontrol ediniz."), vbCritical, "UYARI"
Me.Fayn = ""
'MsgBox ("Kaydetme işlemi iptal edildi."), vbInformation, "BİLGİ"
'Me.Refresh
'DoCmd.GoToRecord , , acLast
Else
'kayıtlar benzer değilse,tabloya kaydetmesi için
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Aynı makinanın tekrar oluşturulamaması - Yazar: ozanakkaya - 07/10/2014, 12:15
Task