+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: silme kodu yardım (/konu-silme-kodu-yardim.html)
Cvp: silme kodu yardım - C*e*l*o*y*c*e - 30/05/2013
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
Cvp: silme kodu yardım - ferhatozge - 30/05/2013
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Clickhata veriyor...
Cvp: silme kodu yardım - C*e*l*o*y*c*e - 30/05/2013
On Error GoTo Err_Komut10_Click
Bu kodu iki sefer yazmışız ,birini sil(üstekini sil)
Cvp: silme kodu yardım - ferhatozge - 30/05/2013
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
Cvp: silme kodu yardım - ferhatozge - 30/05/2013
tamam hallettim. teşekkür ederim.
On Error GoTo Err_Komut10_Click
silince düzeldi.
Cvp: silme kodu yardım - C*e*l*o*y*c*e - 30/05/2013
sevindim...bende 9. mesajda onu demiştim zaten
