Skip to main content

AccessTr.neT


uyarı pencerelerini engellemek

uyarı pencerelerini engellemek

Çözüldü #1
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.
.zip varsayılan.zip (Dosya Boyutu: 18,99 KB | İndirme Sayısı: 2)
muradoglu, 28-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
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.
muradoglu, 28-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çö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
Çözüldü #5
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
muradoglu, 28-04-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 06/01/2013, 02:10, Düzenleyen: muradoglu.
Cevapla
Çözüldü #6
  DoCmd.Close acForm, Me.Name
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
Task