AccessTr.neT
uyarı penceresini nasıl yapabilirim? - Baskı Önizleme

+- 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ığı: uyarı penceresini nasıl yapabilirim? (/konu-uyari-penceresini-nasil-yapabilirim.html)



uyarı penceresini nasıl yapabilirim? - yalp_92 - 09/06/2013

veri tabanında bi veriyi silicem. sil adında bi resim koydum resime tıklandığında accessin kendi uyarı penceresi çıkıyo. "1 veya daha fazla kaydı silmek üzeresiniz" diyo. ben bu tarz uyarı penceresini nasıl yapabilirim. tablolardaki geçerlilk metni tarzı bi yazı yazmak istiyorum. ama resim için. aynı işlemi butonda da kullanmam gerekiyo. yardım ederseniz sevinirim


Cvp: uyarı penceresini nasıl yapabilirim? - Kur@l - 09/06/2013

Lütfen Site Kuralları nı Okuyunuz...


Cvp: uyarı penceresini nasıl yapabilirim? - simendifer - 09/06/2013

lütfen aynı hatayı ikinci kez yapıyorsunuz (ACİL: 13 karaktere zorlama) ACİL gibi başlık atmayınız şöyle düşünün aynı sorunu olan bir kardeşimiz sizin açmış olduğunuz konudan sorununa cevap bulacak onun için sorunuzu açık net kısa anlaşılır konu başlığı yazarak sorunuz ayrıca sorunuzu sorarken üzerinde çalıştığınız örnek prg nizıda ekleyiniz
sizin yeni olduğunuzu düşünerek alttaki kodları yazıyorum enceleyiniz
Private Sub SOYİSİM_Enter()
Dim Msg, Style, Title, Response, MyString
Msg = "Kayıt Yapılsın mı ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Dikkat"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
SOYİSİM.SetFocus 'buradaki SOYİSİM metin alanının adı uyarı yazısından sonra imleç
Else 'SOYİSİM metin alanına gider
İSİM.SetFocus
End If
End Sub
----------------------
Kayıt yapıyımmı

Formun Güncelleştirme öncesinde

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim C As Integer
C = MsgBox("Kayıt üzerinde değişiklikler yapıldı.Kaydedilsin mi?", vbYesNo + vbQuestion + vbDefaultButton1, " Bilgi")
If C = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End Sub



Cvp: uyarı penceresini nasıl yapabilirim? - ozanakkaya - 15/06/2013

Problem çözüldü mü Sn. yalp_92