06/01/2013, 01:29
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.
Sayfalar: 1 2
06/01/2013, 01:29
06/01/2013, 01:38
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.
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
tam olarak nereye yazacağımı gösterirmisiniz
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.
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 Subikinci 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
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
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
DoCmd.Close acForm, Me.NameSayfalar: 1 2