Skip to main content

AccessTr.neT


uyarı pencerelerini engellemek

uyarı pencerelerini engellemek

Çözüldü #4
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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
uyarı pencerelerini engellemek - Yazar: muradoglu - 06/01/2013, 01:29
Cvp: uyarı pencerelerini engellemek - Yazar: Kur@l - 06/01/2013, 01:38
Cvp: uyarı pencerelerini engellemek - Yazar: muradoglu - 06/01/2013, 01:51
Cvp: uyarı pencerelerini engellemek - Yazar: Kur@l - 06/01/2013, 01:54
Cvp: uyarı pencerelerini engellemek - Yazar: muradoglu - 06/01/2013, 02:08
Cvp: uyarı pencerelerini engellemek - Yazar: Kur@l - 06/01/2013, 02:10
Cvp: uyarı pencerelerini engellemek - Yazar: muradoglu - 06/01/2013, 02:18
Cvp: uyarı pencerelerini engellemek - Yazar: muradoglu - 06/01/2013, 11:28
Cvp: uyarı pencerelerini engellemek - Yazar: karaayhan - 06/01/2013, 13:39
Task