Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/05/2013 20:28
Konu Sahibi
ferhatozge
Yorumlar
12
Okunma
2619
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
10/09/2017,15:55
Çö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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,02:05
Çözüldü 
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
10/09/2017,15:55
Çö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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,02:05
Çözüldü 
"-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
10/09/2017,15:55
Çö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
10/09/2017,15:55
Çözüldü 
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

[-]
Etiketler
silme yardım kodu


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Yardım : Tablodaki Bir Verinin Combobox İle Secilerek Tutarının Gösterilmesi orba 2 90 18/09/2017, 04:55 orba
Çözüldü Kayıt Silme Hatası burhanb 6 183 08/09/2017, 14:01 burhanb
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 365 28/08/2017, 01:42 bilservisci
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 957 14/07/2017, 08:32 Gokcen Akan
Çözüldü Aktifse Kodu Kullan... blue_wall 6 390 07/07/2017, 10:31 blue_wall

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.