AccessTr.neT

Herkeze iyi çalışmalar ;
Bir butona atadığım silme sorgusunu, butona tıklandığında hemen tabloyu silmek yerine Evet/Hayır şeklinde bir mesaj kutusuyla uyarı yapıp evet tıklanırsa silmesini hayır tıklanırsa iptal etmesini yapmak istiyorum. Yardımlarınız için teşekkürler.

butonun tıklandığında olay kodu ;

Private Sub Komut99_Click()

On Error GoTo Err_Komut99_Click

    Dim stDocName As String

    stDocName = "Silme_Kullanıcı _Gırıs_Cıkıs"

    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Komut99_Click:

    Exit Sub

Err_Komut99_Click:

    MsgBox Err.Description

    Resume Exit_Komut99_Click

End Sub

ve evet hayırlı mesaj ktusu kodu;

If MsgBox("SİLMEK İSTİYORMUSUN", 308, "UYARI") = 7 Then 

End If

[/vb]msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then

Bu şekilde denermisin.

Malesef hocam hata veriyor. Belkide ben yanlış yere eklemişimdir kodu. Tıklandığnda kodunda 11 satır cod var hangi satıra eklemeliyim.

Private Sub Komut99_Click() On Error 

GoTo Err_Komut99_Click Dim stDocName 

As String stDocName = 

Silme_Kullanıcı _Gırıs_Cıkıs" 

DoCmd.OpenQuery stDocName, acNormal,

acEdit Exit_Komut99_Click: Exit Sub 

Err_Komut99_Click: MsgBox 

Err.Description Resume 

Exit_Komut99_Click 

msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then

End sub







bu şekilde denermisiniz.

Bak birde bu kodu denersin kendine göre uyarlarsın

krz = Form.Name & " silmek istediğinize, emin misiniz?"

If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then 

Malesef hata veriyor. Kod yapıştırldığında kırmızı oluyor.

---

(19/05/2011, 14:58)DUAYEN yazdı: [ -> ]Bak birde bu kodu denersin kendine göre uyarlarsın

krz = Form.Name & " silmek istediğinize, emin misiniz?"

If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then 

deniyorum