Veri sayfasındaki hücreyi değiştirirken onay alsın
Tarih
07/10/2011 15:08
Konu Sahibi
akman37
Yorumlar
5
Okunma
1111
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



akman37
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
22
6
15/01/2009
Kastamonu
Ofis XP
08/02/2014,16:36
Çözüldü 
Sayın üstatlar mrb. Acces de hazırladığım müşteri takip programıma ait Veri sayfasındaki bilgileri değiştirirken veya yanlışlıkla Delete basıldığında yani istemeden değişiklik olması durumunu engellemek için, veri sayfasında herhangi bir değişiklik yaparken önce onay alsın istiyorum. Yani " Kayıt değiştirilecektir.Onaylıyormusunuz" gibi bir onaydan sonra değişiklik yapsın istiyorum. Bu konuda yardımcı olursanız memnun olurum. KOnu ile ilgili örnek dosyam (Orjinal dosyanın kayıtları azaltılmış hali) ektedir. Şimdiden teşekkür eder saygılarım sunarım.


Ek Dosyalar
.rar   Kopyası Müsteri Takip.rar (Dosya Boyutu: 815,77 KB / İndirme Sayısı: 13)
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Değişiklik Onayı İçin Soru Sorar....

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' formda yanlışlıkla bir veri üzerinde değişiklik yapmayalım diye
    ' değişiklik durumunda onay alıyoruz.

    If NewRecord = False Then
        If MsgBox("Değişiklikler kaydedilsin mi?", _
        vbYesNo) = vbNo Then
        Cancel = True
        DoCmd.RunCommand acCmdUndo
        End If
    End If
End Sub

bu kısmı modüle yazınız. kayıt silme için kullanacağımız fonksiyon...

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub KayitSil(Optional ByVal FRM As Form, Optional ShowMsg As Boolean)
  ' Yanlışlıkla kayıt silinmesini engellemek üzere onay alınmasını sağlar.
  On Error Resume Next
  If ShowMsg Then
    If MsgBox("Kayit silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbNo Then Exit Sub
  End If
  If FRM Is Nothing Then
    DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings True
    Exit Sub
  Else
    If FRM.NewRecord And (Not FRM.Dirty) Then Exit Sub
  End If
  If FRM.Dirty Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
  If Not FRM.NewRecord Then
    With FRM.RecordsetClone
    .Bookmark = FRM.Bookmark
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
    FRM.Bookmark = .Bookmark
  End With
  End If
  FRM.Requery
End Sub

kayıtsil kullanımı silme butonunun koduna yazınız

Visual Basic Code
Call KayitSil(Screen.ActiveForm, True)

Cevapla


akman37
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
22
6
15/01/2009
Kastamonu
Ofis XP
08/02/2014,16:36
Çözüldü 
Göndermiş olduğunuz kodlarla işimi halledemedim. Belki sizin için çok klay bir durum ama yamamak çok kötü. Gönderdiğim dosya üzerinde yardımcı olursanız çok sevinirim. İyi çalışmalar.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:01
Çözüldü 
Verilen ilk kod 01-Alıcı Müşteriler Listesi formunun güncelleştirme öncesinde olayına yazıldı,


Ek Dosyalar
.rar   Kopyası Müsteri TakipSled.rar (Dosya Boyutu: 562,13 KB / İndirme Sayısı: 20)
Cevapla


akman37
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
22
6
15/01/2009
Kastamonu
Ofis XP
08/02/2014,16:36
Çözüldü 
Teşekkür ediyorum. Verdiğiniz kodları uyguladım. İsteğimi elde ettim.Ellerinize sağlık.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,18:01
Çözüldü 
Malesef son cevabı aldınız. Üyeliğiniz askıya alınmıştır.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  alt veri sayfasındaki verileri formda görmak murat dikme 4 60 Dün, 18:14 murat dikme
  Formda onay kutusu ile tek personel seçmek!!!!!! ferhatozge 7 220 05/11/2016, 21:53 ferhatozge
  Onay kodu görme?? GTAO 7 484 26/05/2016, 18:26 atoz112
Çözüldü Onay kutusu -1 değilse 0 yazması yenginoglu 2 357 01/02/2016, 17:31 yenginoglu
Çözüldü Sorguda onay kutusu sayma yenginoglu 2 372 14/01/2016, 23:21 yenginoglu


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya