Skip to main content

AccessTr.neT


silme kodu yardım

silme kodu yardım

Çözüldü #1
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
Çözüldü #2
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
Çözüldü #3
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...
Son Düzenleme: 30/05/2013, 20:52, Düzenleyen: ferhatozge.
Cevapla
Çözüldü #4
"-1" denermisin ayrıca örneğini eklesen bizide ugraştırmazsın
Cevapla
Çözüldü #5
-1 denedim hata verdiği
örneği EK'te gönderdim.
.rar örnek.rar (Dosya Boyutu: 43,94 KB | İndirme Sayısı: 8)
Cevapla
Çözüldü #6
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
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da