Skip to main content

AccessTr.neT


Access quit butonu

Access quit butonu

Çözüldü #9
Sn Seruz Hoca dan alıntıdır.

Kod:
Private Sub Komut0_Click()
Dim TumFormlar As Object
    For Each TumFormlar In Application.CurrentProject.AllForms
        If Me.Form.Name <> TumFormlar.Name Then 'Aktif olan formu kapatmasın.
            DoCmd.Close acForm, TumFormlar.Name, acSaveNo
        End If
    Next

End Sub

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
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
Access quit butonu - Yazar: margeaux54 - 29/04/2010, 11:11
Cvp: Access quit butonu - Yazar: Puletin - 29/04/2010, 11:16
Cvp: Access quit butonu - Yazar: Kur@l - 29/04/2010, 11:17
Cvp: Access quit butonu - Yazar: margeaux54 - 29/04/2010, 11:19
Cvp: Access quit butonu - Yazar: Puletin - 29/04/2010, 11:22
Cvp: Access quit butonu - Yazar: margeaux54 - 29/04/2010, 11:24
Cvp: Access quit butonu - Yazar: Puletin - 29/04/2010, 11:28
Cvp: Access quit butonu - Yazar: margeaux54 - 29/04/2010, 11:33
Cvp: Access quit butonu - Yazar: Puletin - 29/04/2010, 11:40
Cvp: Access quit butonu - Yazar: Kur@l - 29/04/2010, 11:40
Task