AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

uyarı pencerelerini engellemek

1 2
06/01/2013, 01:29

muradoglu

ekte varsayılan formunda bulunan sorguyu çalıştır butonuna tıklandığında iki adet uyarı penceresi açılmakta. bunların yerine kendi belirlediğim uyarı penceresini nasıl yapabilirim.
06/01/2013, 01:38

Kur@l

Docmd.SetWarnings False satırı ile Accessin kendi uyarılarını kapatabilirsiniz. Açmak için yani sorgu işi bittikten sonra Docmd.SetWarnings True kullanabilirsiniz.
Tabi bu kalıbın içinde kendi mesajlarınızı yazabilirsiniz.
Kolay Gelsin.


Docmd.SetWarnings False 

'işlemlerinzi. 

Docmd.SetWarnings True
06/01/2013, 01:51

muradoglu

tam olarak nereye yazacağımı gösterirmisiniz


Private Sub Komut2_Click()

On Error GoTo Err_Komut2_Click



    Dim stDocName As String



    stDocName = ChrW(118) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(97) & ChrW(121) & ChrW(305) & ChrW(108) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(110) & ChrW(101) & ChrW(109) & ChrW(115) & ChrW(111) & ChrW(114) & ChrW(103) & ChrW(117) & ChrW(115) & ChrW(117)

    DoCmd.OpenQuery stDocName, acNormal, acEdit



Exit_Komut2_Click:

    Exit Sub



Err_Komut2_Click:

    MsgBox Err.Description

    Resume Exit_Komut2_Click

    

End Sub

ikinci olarak sorgu gerçekleştirildikten sonra yine bir uyarı penceresiyele (örneğin işleminiz gerçekleştirildi gibi) tamama basıldıktan sonra formun kapatılmasını sağlayabilirmiyiz.
06/01/2013, 01:54

Kur@l

Aşağıdaki gibi kullanın....
 

 Private Sub Komut2_Click()

On Error GoTo Err_Komut2_Click

    Dim stDocName As String

    stDocName = ChrW(118) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(97) & ChrW(121) & ChrW(305) & ChrW(108) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(110) & ChrW(101) & ChrW(109) & ChrW(115) & ChrW(111) & ChrW(114) & ChrW(103) & ChrW(117) & ChrW(115) & ChrW(117)

Docmd.Setwarnings False

If MsgBox("sorgu çalışsınmı", vbYesNo, "Kur@l") = vbYes Then

    DoCmd.OpenQuery stDocName, acNormal, acEdit

end if

Docmd.Setwarnings True 

Exit_Komut2_Click:

    Exit Sub

Err_Komut2_Click:

    MsgBox Err.Description

    Resume Exit_Komut2_Click

End Sub
06/01/2013, 02:08

muradoglu

sayın kural çok teşekkür ederim. sizden son bir ricam olacak sorgu gerçekleştirildimi penceresi yerine sorgu gerçekleştikten sonra form kapanmadan tablo güncellenmiyor. sorgu gerçekleştirdikten sonra aktif formun kapatılmasını nasıl sağlayabiliriz. mümkünse bunu bir mesaj penceresiyel işleminiz gerçekleşti. tamama basıldıktan sonra aktif formun kapatılmasını nasıl sağlayabilirim
06/01/2013, 02:10

Kur@l

  DoCmd.Close acForm, Me.Name
1 2