Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak
Tarih
19/05/2011 14:07
Konu Sahibi
volkan1
Yorumlar
11
Okunma
3467
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Herkeze iyi çalışmalar ;
Bir butona atadığım silme sorgusunu, butona tıklandığında hemen tabloyu silmek yerine Evet/Hayır şeklinde bir mesaj kutusuyla uyarı yapıp evet tıklanırsa silmesini hayır tıklanırsa iptal etmesini yapmak istiyorum. Yardımlarınız için teşekkürler.

butonun tıklandığında olay kodu ;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Private Sub Komut99_Click()
On Error GoTo Err_Komut99_Click
    Dim stDocName As String
    stDocName = "Silme_Kullanıcı _Gırıs_Cıkıs"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Komut99_Click:
    Exit Sub
Err_Komut99_Click:
    MsgBox Err.Description
    Resume Exit_Komut99_Click
End Sub


ve evet hayırlı mesaj ktusu kodu;

Visual Basic Code
If MsgBox("SİLMEK İSTİYORMUSUN", 308, "UYARI") = 7 Then 
End If

Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
[/vb]msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then

Bu şekilde denermisin.
Cevapla


volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Malesef hocam hata veriyor. Belkide ben yanlış yere eklemişimdir kodu. Tıklandığnda kodunda 11 satır cod var hangi satıra eklemeliyim.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Komut99_Click() On Error 
GoTo Err_Komut99_Click Dim stDocName 
As String stDocName = 
Silme_Kullanıcı _Gırıs_Cıkıs" 
DoCmd.OpenQuery stDocName, acNormal,
acEdit Exit_Komut99_Click: Exit Sub 
Err_Komut99_Click: MsgBox 
Err.Description Resume 
Exit_Komut99_Click 
msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then
End sub



bu şekilde denermisiniz.

Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Bak birde bu kodu denersin kendine göre uyarlarsın

Visual Basic Code
krz = Form.Name & " silmek istediğinize, emin misiniz?"
If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then 

Cevapla


volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Malesef hata veriyor. Kod yapıştırldığında kırmızı oluyor.
(19/05/2011, 14:58)DUAYEN Adlı Kullanıcıdan Alıntı: Bak birde bu kodu denersin kendine göre uyarlarsın

Visual Basic Code
krz = Form.Name & " silmek istediğinize, emin misiniz?"
If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then 


deniyorum
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Photo İlişkili Tablolarda FORM üzerinden veri silme Mesut Kaytan 6 92 04/12/2016, 22:40 Mesut Kaytan
  Liste kutusu işlem yapma ekleme silme de sorun nightashes 7 110 29/11/2016, 20:24 nightashes
  Tabloya ve forma yeni alanlar ekledikten sonra metin kutusu sonucu almıyor hasanak2 5 303 22/09/2016, 09:28 hasanak2
  Access mysql evet/hayır alan güncelleme sorunu ozguryasin 1 2.080 16/09/2016, 22:34 ozguryasin
  ilişkili tabloda kayıt silme farkli88 8 966 14/07/2016, 01:15 farkli88


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