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
silme kodu yardım
Bu Konudaki Yorumlar |
silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 20:28
Cvp: silme kodu yardım - Yazar: C*e*l*o*y*c*e - 30/05/2013, 20:44
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 20:49
Cvp: silme kodu yardım - Yazar: C*e*l*o*y*c*e - 30/05/2013, 20:56
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 21:02
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 21:27
Cvp: silme kodu yardım - Yazar: C*e*l*o*y*c*e - 30/05/2013, 21:57
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 22:19
Cvp: silme kodu yardım - Yazar: C*e*l*o*y*c*e - 30/05/2013, 22:28
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 22:36
Cvp: silme kodu yardım - Yazar: ferhatozge - 30/05/2013, 22:51
Cvp: silme kodu yardım - Yazar: C*e*l*o*y*c*e - 30/05/2013, 22:54
Cvp: silme kodu yardım - Yazar: mehmetdemiral - 30/05/2013, 22:59
|
Konuyu Okuyanlar: 1 Ziyaretçi