Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak
Tarih
19/05/2011 14:07
Konu Sahibi
volkan1
Yorumlar
11
Okunma
3862
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
16/03/2017,17:22
Çözüldü 
Sponsor Reklam
[/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
16/03/2017,17:22
Çözüldü 
Sponsor Reklam

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
16/03/2017,17:22
Çö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ü 
Sponsor Reklam
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
  Terkrarlayan Kayıtları Silme ertans 4 112 22/04/2017, 19:56 atoz112
  Klasör İçindeki Mdb Uzantılı Dosyaları Silme husem 2 78 13/03/2017, 10:16 husem
  liste kutusu son sutünden sonra gereksiz boşluk koruyucu 5 273 03/02/2017, 10:43 atoz112
  Listede seçili olanı silme mustim1547 2 136 13/01/2017, 10:45 mustim1547
Çözüldü Liste kutusundan seçili olanı tablodan silme... direnist 11 3.442 13/01/2017, 08:07 mustim1547


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status