silme kodu yardım
Tarih
30/05/2013 20:28
Konu Sahibi
ferhatozge
Yorumlar
12
Okunma
2197
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.... İ....
93
31/10/2008
0
Afyonkarahisar
08/12/2016,20:56
Çö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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,13:32
Çö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.... İ....
93
31/10/2008
0
Afyonkarahisar
08/12/2016,20:56
Çö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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,13:32
Çözüldü 
"-1" denermisin ayrıca örneğini eklesen bizide ugraştırmazsın
Cevapla


ferhatozge
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... İ....
93
31/10/2008
0
Afyonkarahisar
08/12/2016,20:56
Çö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.... İ....
93
31/10/2008
0
Afyonkarahisar
08/12/2016,20:56
Çö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


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 108 29/11/2016, 20:24 nightashes
  Açılan kutuda girilen ürün kodu yoksa, form açma ferhatozge 9 207 23/11/2016, 23:45 ozanakkaya
  Sorguda kriteri boş bırakma için yardım. okumas 3 175 24/09/2016, 11:43 okumas
Exclamation ACCES mde yardim Mehemmed Fehradli 3 169 24/09/2016, 00:18 ozanakkaya


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