silme kodu yardım
Tarih
30/05/2013 20:28
Konu Sahibi
ferhatozge
Yorumlar
12
Okunma
2260
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
20/02/2017,23:17
Çözüldü 
Sponsor Reklam
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.866
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,09:41
Çö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
20/02/2017,23:17
Çözüldü 
Sponsor Reklam
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.866
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,09:41
Çö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
20/02/2017,23:17
Çözüldü 
Sponsor Reklam
-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
20/02/2017,23:17
Çö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
  İff Kodu İle Form Açıp Kapatmak hknct 5 85 07/02/2017, 13:10 hknct
  Kullanıcı Yetkilendirme Konusunda Yardım arasson 8 184 03/02/2017, 11:35 arasson
  Hata kodu 2001 hakkında okumas 25 500 29/01/2017, 08:24 ozanakkaya
  Access Vba Kodsuz Veri Doğrulama Yardım !!! karakule31 4 170 20/01/2017, 20:02 karakule31
  Listede seçili olanı silme mustim1547 2 100 13/01/2017, 10:45 mustim1547


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