AccessTr.neT

Tam Versiyon: uyarı pencerelerini engellemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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
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.
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
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
  DoCmd.Close acForm, Me.Name
Sayfalar: 1 2