Skip to main content

AccessTr.neT


silme kodu yardım

silme kodu yardım

Çözüldü #7
On Error GoTo Err_Komut10_Click
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click
If Me.Metin8 = "1" Then
MsgBox "Önce sevk adresini siliniz..."
Else
If MsgBox("Silinsin mi?", vbQuestion + vbYesNo, "Onay") = vbYes Then
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
End If
Exit_Komut10_Click:
Exit Sub
Cevapla
Çözüldü #8
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click


hata veriyor...
Cevapla
Çözüldü #9
On Error GoTo Err_Komut10_Click
Bu kodu iki sefer yazmışız ,birini sil(üstekini sil)
Cevapla
Çözüldü #10
onu farkketim ama yinede hata veriyor. bulamıyorum.

Private Sub Komut10_Click() bunu sarı yakıyor.
On Error GoTo Err_Komut10_Click bunu mavi yakıyor
Cevapla
Çözüldü #11
tamam hallettim. teşekkür ederim.

On Error GoTo Err_Komut10_Click
silince düzeldi.
Cevapla
Çözüldü #12
sevindim...bende 9. mesajda onu demiştim zaten Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task