silme kodu yardım
Tarih
30/05/2013 20:28
Konu Sahibi
ferhatozge
Yorumlar
12
Okunma
2224
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
11/01/2017,22:48
Çö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.837
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,01:42
Çö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
11/01/2017,22:48
Çö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.837
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,01:42
Çö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
11/01/2017,22:48
Çö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
11/01/2017,22:48
Çö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
  Listede seçili olanı silme mustim1547 2 66 13/01/2017, 10:45 mustim1547
Çözüldü Liste kutusundan seçili olanı tablodan silme... direnist 11 3.178 13/01/2017, 08:07 mustim1547
  Boş Klasör / Alt Klasör Silme donepezil 14 232 12/01/2017, 09:16 donepezil
  Formaki Temizle Butonuna Tablodaki Sutunu Temizleme Kodu eklemek haziran4 3 75 05/01/2017, 17:06 haziran4
  YARDIM EDER MİSİNİZ Halil Çal 1 84 04/01/2017, 12:55 ozguryasin


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