vbYesNoCancel

[oktaykarauzun]

Yapmış olduğum çalışmada yeni kayıt yaparken "Kaydet" tuşuna basmadan kapat düğmesine bastığımda vbYesNoCancel olayını çalıştırmak istiyorum. fakat beceremedim. basit bir konu olabilir ama forumda aradım bulamadım. yardımcı olur musunuz?

 

[modalı]

Sayın oktaykarauzun,

Aşağıdaki kodları kullanın:

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Kaydetmek istiyor musunuz?"    ' Define message.
Style = vbYesNoCancel    ' Define buttons.
Title = "K A Y D E T"    ' Define title.
'Help = "DEMO.HLP"    ' Define Help file.
'Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    Call zKaydet   ' Perform some action.
Else    ' User chose No.
    If Response = vbNo Then
        DoCmd.Close ' Perform some action.
    Else
        Exit Sub
    End If
End If

İyi çalışmalar

 

[oktaykarauzun]

Sayın modalı, zahmet oldu, tşk.