silme kodu yardım
Tarih
30/05/2013 20:28
Konu Sahibi
ferhatozge
Yorumlar
12
Okunma
2283
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
ferhatozge
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... İ....
94
31/10/2008
10
Afyonkarahisar
18/05/2017,22:38
Çözüldü 
iyi akşamlar.
yapmak istediğim bir butona tıklandığında metin8 "1" ise silme işlemi yapılmasın
ve Önce sevk adresini siliniz..." diye uyarı versin.
metin8 "0" ise silme işlemini yapsın.





Private Sub Komut10_Click()
If Me.Metin8 = 1 Then MsgBox "Önce sevk adresini siliniz..."

On Error GoTo Err_Komut10_Click
DoCmd.SetWarnings True
DoCmd.SetWarnings False
MsgBox "siliniyor...", , "SİLİYO"
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut10_Click:
Exit Sub

Err_Komut10_Click:
MsgBox Err.Description
Resume Exit_Komut10_Click

End Sub
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.901
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click
If Me.Metin8 = “1” Then
MsgBox "Önce sevk adresini siliniz..."
else
DoCmd.SetWarnings True
DoCmd.SetWarnings False
MsgBox "siliniyor...", , "SİLİYO"
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
end if
Exit_Komut10_Click:
Exit Sub

Err_Komut10_Click:
MsgBox Err.Description
Resume Exit_Komut10_Click

End Sub
Cevapla

ferhatozge
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... İ....
94
31/10/2008
10
Afyonkarahisar
18/05/2017,22:38
Çözüldü 
teşekkür ederim. ancak;
metin8 "1" iken siliyor.
metin8 "0" iken uyarı veriyor.

ters oldu.Img-grin

bir de silerken "Yes" "No" diye sorsa süper olur...
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.901
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
"-1" denermisin ayrıca örneğini eklesen bizide ugraştırmazsın
Cevapla

ferhatozge
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... İ....
94
31/10/2008
10
Afyonkarahisar
18/05/2017,22:38
Çözüldü 
-1 denedim hata verdiği
örneği EK'te gönderdim.


Ek Dosyalar
.rar   örnek.rar (Dosya Boyutu: 43,94 KB / İndirme Sayısı: 7)
Cevapla

ferhatozge
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... İ....
94
31/10/2008
10
Afyonkarahisar
18/05/2017,22:38
Çözüldü 
Sponsor Reklam
tırnak işaretini değiştirince düzeldi. teşekkür ederim.
silerken "Yes" "No" olayını nasıl yaparım.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click
If Me.Metin8 = "1" Then
MsgBox "Önce sevk adresini siliniz..."
Else
DoCmd.SetWarnings True
DoCmd.SetWarnings False
MsgBox "siliniyor...", , "SİLİYO"
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Komut10_Click:
Exit Sub

Err_Komut10_Click:
MsgBox Err.Description
Resume Exit_Komut10_Click
    
End Sub


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Ürün Sorgu Kodu Çalışmıyor U.ALTUN 9 147 15/05/2017, 17:13 U.ALTUN
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 315 11/05/2017, 22:59 sadooo
Photo Arama Kutusu Hakkında Yardım AloneX 6 115 05/05/2017, 13:52 AloneX
  Terkrarlayan Kayıtları Silme ertans 4 102 22/04/2017, 19:56 atoz112
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 480 12/04/2017, 19:21 uMits


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